|
질문입니다..
ActiveX control을 사용하는데 있어서 다음과 같은 사항의 Visual Basic Code는 Builder에서 어떻게 처리해야 하는지 도움을 부탁드립니다.
TBAControl : ActiveX control
TBAControl *BAControl1; // in header
[Visual Basic]
Dim IdRange As Object
Dim Return As Object
Dim AddrData As Object
Set Customer = BAControl1.GetSAObject("Customer")
Set AddrData = BAControl1.DimAs(Customer, "GetList", "ADDRESS")
Set Return = BAControl1.DimAs(Customer, "GetList", "RETURN")
Set IdRange = BAControl1.DimAs(Customer, "GetList", "IDRANGE")
IdRange.AppendRow
IdRange.Columns("SIGN").Value(1) = "I"
IdRange.Columns("OPTION").Value(1) = "NP"
IdRange.Columns("LOW").Value(1) = ""
IdRange.Columns("HIGH").Value(1) = ""
Customer.GetList RETURN:=Return, ADDRESSDATA:=AddrData, _
IDRANGE:=IdRange
[Builder]
Customer = BAControl1->GetSAObject(StringToOleStr("Customer"));
Variant AddrData = BAControl1->DimAs(Customer, StringToOleStr("GetList"),
StringToOleStr("AdressData"));
Variant Return = BAControl1->DimAs(Customer, StringToOleStr("GetList"),
StringToOleStr("RETURN"));
Variant IdRange = BAControl1->DimAs(Customer, StringToOleStr("GetList"),
StringToOleStr("IDRANGE"));
IdRange.OleFunction("AppendRow"); // 여기까지는 OK
그 다음은 ?????
부탁드립니다....
|