日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

两个VB程序之交换数据的DDE工程

發布時間:2023/12/16 编程问答 25 豆豆
生活随笔 收集整理的這篇文章主要介紹了 两个VB程序之交换数据的DDE工程 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

新建一個VB工程
把Form1的
Caption設置為工程1
WindowState設置為Minimized
LinkMode設為Source
LinkTopic設為Form1

在Form1添加TextBox,text1
設置text1的text值為:這是EXE文件中TEXT1中的數據

編譯生成 工程1.EXE

再建一個VB工程
把Form1的
LinkMode設為Source
LinkTopic設為Form1
在Form1添加TextBox,text1
把工程保存在一個文件夾內,把上面所做的工程1.EXE復制到這個文件夾內.
不用編譯,在VB環境中寫以下程序調試就可以了.
Private Sub Form_Click()
? If Text1.LinkMode = vbNone Then
? ? ? Z = Shell("C:/Documents and Settings/Administrator/桌面/dde/工程1.exe", 4)
? ? ? Text1.LinkTopic = "工程1|Form1"? ' 設置連接主題。
? ? ? Text1.LinkItem = "text1"? ? ? ? ? ' 設置連接項目。
? ? ? Text1.LinkMode = vbLinkManual? ? ' 設置連接模式。
? End If
?
? ? ? Text1.LinkItem = "text1"? ' 設置連接項目。
? ? ? Text1.LinkRequest??????????? ' 獲得數據
?????

??????'Text1.LinkItem = "text1"? ' 設置連接項目。
? ? ? 'Text1.text="xxxxxx"???????????
????? 'text1.LinkPoke??????????????????' 發送數據"xxxxxx"
End Sub

按F5運行程序,單擊form1,就可以看到從工程1.EXE的text1中讀回來的數據了

總結

以上是生活随笔為你收集整理的两个VB程序之交换数据的DDE工程的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。