【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-组态王通过DDE与VB应用程序 - 行业软件的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

组态王通过 DDE 与 VB 应用程序、Excel 程序进行数据交换组态王支持通过 DDE 方式与其它应用程序进行数据交换，通过 DDE 方式用户自编的应用程序可以无缝的与组态王进行数据交换，扩充组态王的功能，为用户提供更为灵活的应用空间。

    现就组态王与 VB 应用程序、Excel 程序通过 DDE 方式进行数据交换的使用方法进行简要的说明：一、 与 Excel 程序进行实时的数据交换Excel 程序从组态王中获得数据1． 在组态王中建立变量。

    建立变量B，并设置允许 DDE 访问。

    本例连接的物理设备为亚控仿真 PLC2． 创建 Excel 数据表格，输入访问组态王变量的连接语句。

    图二选择R1C2单元格按如下格式输入 DDE 连接语句 VIEWTAGNAME设备地址，其中设备地址为在组态王中定义的 IO 变量的寄存器地址，其格式为连接设备名.寄存器名。

    在本例中访问组态王中变量B的 DDE 连接语句为 VIEWTAGNAMEPLC.INCREA100。

    3． 运行组态王的运行系统加载演示本演示工程，Excel 数据表格可以实时的得到组态王变量的数据。

    组态王从 Excel 程序中获得数据1． 创建 Excel 数据表格，并给工作表起名为AAA参见图-2。

    2． 在工作表AAA的 R1C1 单元格添加R1C2的语句在 R1C1 单元格引用 R1C2 的值。

    3． 在组态王中建立 Excel 的 DDE 连接。

    图三在组态王工程浏览器 à 设备 àDDEà 新建 DDE 设备。

    弹出设备向导参见图-3，要求输入 DDE 的连接设备名， 单击下一部参见图-4，本例为 Excel可按用户的实际需求命名； 设置 DDE 的服务程序名ExcelExcel程序的服务名，不可更改，设置话题名AAA为 Excel 的表格名称，可以按用户的实际需求设定，设置数据交换方式为标准的 Windows 项目交换兼容微软应用程序 DDE 数据交换。

    单击下一步参见图-5，显示所配置 DDE 设备信息，确认无误后单击完成，即完成 Excel DDE 设备的配置。

    图四图五4． 在组态王中添加由 Excel 作为数据源的 IO 变量参见图-6。

    设置连接设备为Excel（DDE 设备名），项目名为R1C1Excel 表格的名称。

    单击确认。

    在组态王的画面中建立此 IO 点的动态连接。

    图六5． 运行组态王的运行系统加载本演示工程，参见图-7。

    Excel 通过 DDE 连接获得组态王变量B的数值，并通过表格的付值操作将值传递给R1C1单元格，组态王 IO 变量Excel2获得此值并显示在画面上。

    图七二、 与 VB 应用程序进行实时的数据交换VB 应用程序从组态王中获得数据1． 创建 VB 应用程序。

    参见图-8创建标准 EXE 程序工程名为 VBDDE，窗体名为VBDome（DDE 服务的话题名）。

    图八2． 在 VB 应用程序中建立与组态王变量的 DDE 连接参见图-9，在 VB 窗体里加一个Label控件将其命名为 VB2，，在其属性里设置与 DDE 相关的项目：设置 LinkTopic 的值为viewtagname组态王默认的服务名和应用名，不可更改；设置 LinkItem 的值为PLC.INCREA100组态王变量得寄存器地址，格式为 连接设备名.寄存器名；设置 LinkMode 的值为1如组态王运行系统未运行，显示错误，参见第 3 步；设置 LinkTimeout 的值为50为默认值即可。

    图九3． VB 应用程序启动时设置连接模式为自动VB2.LinkMode1。

    参见图-10。

    单击窗体Foem，弹出代码编辑框，选择 Form 的 Load 属性。

    键入VB2.LinkMode1。

    编译本工程。

    图十4． 运行组态王的运行系统加载本演示工程，运行生成的 VB 运行程序。

    Vb 应用程序即可通过 DDE 方式得到组态王变量B的实时数据，并显示其值在当前的窗口。

    组态王从 VB 应用程序中获得数据1． 利用上述创建的 VB 应用程序，在菜单条选择VBDDE 属性弹出如下窗口参见图-11。

    选择生成属性框，在应用程序的标题中键入VBDDEDDE 服务程序名。

    图十一2． 在窗体里添加 TextBox 控件命名为 VB1，将作为 DDE 服务的项目名，参见图-12。

    选择代码编辑窗口，选择 Form 的 MouseMove 事件，键入如下语句 VB1.Text IntVB2.Caption1。

    图十二3． 设置 VBDDE 程序为 DDE 发布端。

    设置窗体属性的 DDE 属性，参见图-13。

    设置 LinkMode 的值为1表示应用程序为 DDE 的发布端；设置 LinkTopic 的值为VBDome（DDE 话题名。

    设置完成并确认无误后即可编译生成应用程序文件图十三4． 在组态王建立 IO 变量，并以前面所创建的 VB 用程序作为数据源。

    添加 DDE 设备的方法同前定义的DDE 设备名为 VBDDE，DDE 的应用程序名和话题名为前面设置的名称，即应用程序名为VBDDE，话题名为VBDome。

    5． 在组态王建立变量VB2参见图-14，连接设备为VBDDE，项目名为VB1即为 VB 程序 TexTBox 控件的名称。

    图十四6． 在画面里建立与变量VB2的动画连接。

    7． 运行组态王的运行系统加载演示本演示工程，运行前面建立的 VB 应用程序组态王画面的点VB2 的值不变化，选择菜单中的特殊 à重新建立 DDE 连接即可。

    参见图-15。

    本例 VB 应用程序获得组态王变量B的数值并将此数值返回到组态王变量VB2中并在画面显示此值。

    图十五