|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
Private Class ButtonListener
Implements pfcls.IpfcUICommandActionListener
Implements ICIPClientObject
Public Function GetClientInterfaceName() As String _
Implements ICIPClientObject.GetClientInterfaceName
GetClientInterfaceName = "IpfcUICommandActionListener"
End Function
Public Sub OnCommand() Implements pfcls.IpfcUICommandActionListener.OnCommand
Me.UserFunction()
End Sub
Public Sub UserFunction()
Dim par As IpfcArgument
Dim parname As String
parname = ""
Dim aC As pfcls.IpfcAsyncConnection
aC = (New CCpfcAsyncConnection).GetActiveConnection
Dim parguvalue As IpfcArgValue
parguvalue = (New CMpfcArgument).CreateASCIIStringArgValue("")
par = (New CCpfcArgument).Create(parname, parguvalue)
Dim bs As IpfcFunctionReturn
Dim pars As IpfcArguments
pars = New CpfcArguments
pars.Append(par)
Dim dll As IpfcDll
dll = aC.Session.LoadProToolkitDll("Example2_1", "F:\\JLINK\\calledtoolkit\\debug\\yangli.dll", "F:\\JLINK\\calledtoolkit", True)
bs = dll.ExecuteFunction("modelpath", pars)
dll.Unload()
End Sub
End Class
本帖最后由 2323220987 于 2010-10-3 10:41 编辑 |
|