OLEObject ngitembase
long ll_status
integer li_return
long ll_a1
string ls_a2
//创建OLEObject对象
ngitembase = Create OLEObject
ll_status= ngitembase.ConnectToNewObject("ngitembase.ngitembase")
if ll_status=0 then
//调用类内的公共函数
li_return = ngitembase.ShowMsg(ref ll_a1,ref ls_a2)
messagebox(string(ll_a1)+" "+ls_a2,string(li_return))
end if
//释放资源
ngitembase.DisConnectObject()
- 1
- 2
- 3
- 4
- 5
- 6
前往页