在VB.NET中调用DLL

2323220987 · 发表于 2010-10-3 10:38:49

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

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 编辑