C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[8535] Visual Basic -> Builder
최수인 [designer] 1121 읽음    2001-06-27 14:52
질문입니다..

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

그 다음은 ?????

부탁드립니다....

+ -

관련 글 리스트
8535 Visual Basic -> Builder 최수인 1121 2001/06/27
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.