如何使用VB写一个单实例的ACTIVEX DLL（有些难度吧）！

Dev 2000-05-08 08:42:00

...全文

329 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

Marksman 2000-05-21

打赏
举报

好像只要设置工程的一个属性就行了
是什么Global Use ，Single Use之类的，自己找找吧

Un1 2000-05-11

打赏
举报

在Class初始化时做物理标记，比如写注册表或者文件什么的，正常终结时复位此标记。第二个实例检测到此标记就在初始化中失败返回。当然你必须考虑到Window的非正常退出，因此，此标记可能是一个时间什么的而不是简单的Boolean, 或者此标记不止一个。

摘要:VB源码,控件组件,DLL　　VB做DLL并引用DLL的源码实例，新建个ActiveX DLL工程，修改类名，将Class1改成thedll,（也可以改成其他名字,在exe中要注意声明类名就是你改的那个），写DLL代码(代码和类一样，有属性和方法)，生成mydll.DLL。　　引用DLL步骤如下（即exe引用DLL）------- 　　新建标准EXE工程　　菜单栏-->工程-->引用->浏览-->选择你生成的mydll.DLL 　　写exe代码（包含调用DLL代码）　　生成usedll.exe，usedll.exe和mydll.DLL要放在一个目录下。　　　　注意：如果引用的时候可能会出现这样的错误：“名称与已存在的工程模块对象冲突” 　　解决方法是打开DLL工程编程界面，菜单-->工程-->工程1属性，然后修改工程名，再在EXE工程重新引用mydll.dll 　　如果运行时出现错误：“找不到工程或库” 　　解决办法在EXE工程重新引用mydll.dll，并且去掉“丢失工程”对勾。　　由于工程中引用DLL绝对路径，你做的的软件所以需要注册DLL，注册DLL方法，可以在VB中用Shell调用cmd命令，也可以将注册命令放入BAT文件，有的人喜欢将文件复制到system32目录下，然后在注册，都可以。　　

【达摩老生出品，必属精品，亲测校正，质量保证】资源名：VB通过ActiveX的DLL与S7-12001500以太网通讯实例源码.zip 资源类型：程序源代码源码说明： B通过ActiveX的DLL与S7-1200/1500以太网通讯该类通讯组件适用于基于PC高级语言的工业自动化控制系统，用于PC与可编程控制器(PLC)、智能仪表等进行数据通讯。组件采用动态链接库文件(*.DLL)的形式，在PC系统的项目工程里引用该组件，调用相应的属性与方法函数，即可快速实现PC与PLC的数据高效交换。 DLL通讯组件无须安装，直接复制到工程文件目录，方便打包安装部署；无须任何配置，直接调用函数，与应用开发无缝衔接；多年工程经验的软件团队开发测试，经过本公司及客户的海量实际应用检验，稳定可靠；采用稳定高效的内部协议，无须编写PLC内部程序配合，直接访问PLC 适合人群：新手及有一定经验的开发人员

手把手教您如何快速开发一个属于自己的Excel插件，制作Excel众多功能，办公自动化，高效率办公，开发一个个性化的excel插件。我会从头到尾开始教学，开发过程常遇到什么问题，该如何解决。记录我开发excel插件的案例和问题，将开发经验分享给大家

本例子中实现在c#中调用由vb生成的dll文件（com调用）例子由两个主要步骤组成：一为在vb中生成有参数和返回值的dll ；二是在c#中引入步骤一中生成的dll，然后生成实例调用步骤一：首先在vb中新建一个ActiveX DLL 工程，然后在类模块文件中填入以下代

利用activeX实现matlab和vb的混合编程-vb_matlab_activeX.rar 想要在vb里面直接执行matlab的代码吗?想省去编译dll文件的代码吧? 好的,activeX帮你实现这样的功能. activeX简介: ActiveX部件是Microsoft公司提供的一种用于模块集成的新的协议，它是Visual Basic工具箱的扩充部分。在程序中加入ActiveX后，它将成为开发和运行环境的一部分。Matlab实现了ActiveX自动化服务支持，在Visual Basic下通过ActiveX自动化接口可将Matlab作为Visual Basic语言的一个ActiveX部件调用，实现VB与MATLAB间的无缝集成，该方式比较适合C/S模式，具有自动化程度高、效率高、占用资源少、数据交换能力强等优点，大大缩短了程序开发周期，优化了系统性能。 activeX运用: 使用ActiveX部件，首先必须获得Matlab ActiveX对象在系统注册表中定义的名字─Matlab.Application。在VB中创建ActiveX对象的代码如下： Dim Matlab as Object. Set Matlab = CreateObject Matlab.Application对象主要有3个函数，具体如下：（1） BSTR Execute（[in]BSTR Command）方法接受单一的字符串（Command）, MATLAB将运行命令及结果作为一个字符串返回。用于执行一个合法的MATLAB命令；（2） PutFullMatrix方法 void PutFullMatrix pr, [in] SAFEARRAY pr, [in] SAFEARRAY pi ) 将一个指定变量名的一维或二维数组（mxArray）放入工作空间。（3） GetFullMatrix方法 void GetFullMatrix pr, [in] SAFEARRAY pr, [in] SAFEARRAY pi ) 通过GetFullMatrix方法，从指定的工作空间检索一个完整的一维或二维的实型或虚型数组（mxArray），其实部和虚部分别存放到两个单独的Double型数组中。[2] 通过这三种方法，可以方便地利用Matlab执行命令，从VB向Matlab中输送数据或者从Matlab中获取数据。实例举例: 1.程序功能: 给出三个变量:x=0:0.05*pi:10*pi;y=sin;z=cos 并且做出x,y,z的三维图形,并在vb的image窗口中显示, 下面是vb程序的界面,只有一个command按钮和image图片框程序界面.jpg 下面是程序的运行结果: 程序运行结果.jpg 2.代码 Dim Matlab As Object Dim Result1 As String Dim Result2 As String Dim Result3 As String Private Sub Command1_Click() Result1 = Matlab.Execute;z=cos") Result2 = Matlab.Execute") Result3 = Matlab.Execute") Image1.Picture = Clipboard.GetData() Call Matlab.quit '退出Matlab End Sub Private Sub Form_Load() Set Matlab = CreateObject End Sub 3.程序源程序: vb_matlab_activeX.rar

ATL

3,245

社区成员

48,539

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章