找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 19390|回复: 3
打印 上一主题 下一主题

[分享] 在VB.NET中调用DLL

[复制链接]
跳转到指定楼层
1
发表于 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 编辑
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
 楼主| 发表于 2010-10-7 10:27:17 | 只看该作者

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

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

x
3
 楼主| 发表于 2010-10-7 10:27:44 | 只看该作者

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

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

x
4
发表于 2010-10-18 16:38:10 | 只看该作者

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

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

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-14 13:56 , Processed in 0.023190 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表