亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

VB中使用DDE技術為應用程序增輝

2019-11-18 17:41:45
字體：大 中 小
來源：轉載
供稿：網友
上網的朋友一定都用過網絡螞蟻(NetAnts)的吧？不知你在使用過程中有沒有注意過，那就是如果你想調動兩個“螞蟻”為您效力是不可能的——它總會把新運行的關閉。而“螞蟻”程序的妙處就在于：在重復運行“螞蟻”時它不僅拒絕運行，而且能把已經運行的“螞蟻”激活，這樣用上面的程序就無能為力了。但事實上實現拒絕運行并激活已運行的程序有多種方法：

　　1、用FindWindow函數得到已經運行窗體的句柄（HWND），然后用SetActiveWindow等API函數將其激活。其缺點也很明顯，那就是沒法傳遞參數。

　　2、用FindWindow函數得到已運行窗體的句柄后用SendMessage的方法給窗體傳送一個自定義消息（附帶參數），然后在窗體中攔截并進行處理，但這樣做要修改窗體的標準消息處理程序，用在VC，BC或DELPHI編寫的程序中還行，但在VB中工作量太大，并且容易發生“一
般保護行錯誤”使VB崩潰，不太可?。ó斎?，如果你有足夠的信心和不怕崩潰的精神，也可以試一下）。

　　3、使用DDE技術

　　所謂DDE技術，就是動態數據交換技術。也許你很奇怪，這與本文所討論的內容有什么相干的？且聽我慢慢講來。

　　為了實現拒絕運行并把已經運行的程序激活并實現各種功能，我們可以先用本文開頭提到的方法，檢測一下程序有沒有被運行過，如果沒有，就正常運行，如果已經被運行過，就打通與它的DDE通道，傳給它一個（或一些）數據，然后由已經運行的程序對數據進行處理，再去實現各種“意想不到”的功能，這時也許就有人對這你的程序喊：“酷、酷……”

　　好了，耳聽為虛，眼見為實，下面讓我們動點真格的。

　　打開VB，新建一個工程，選擇菜單中的“工程->工程1屬性”，把工程名稱改為“P1”，把已有的一個窗體的“LinkTopic”屬性改為“FormDDE”，把“LinkMode”屬性改為“1-Source”，添加一個PictureBox控件作為DDE執行控件，命名為picDDE。然后添加一個TextBox控件，命名為“txtInfo”，并把“MultiLine”屬性設置為“True”，以便顯示多行文本，作為消息顯示控件。

　　最后在窗體代碼區輸入以下代碼：

->ConstCOMMANDLINE="CommandLine="注釋：還是為了省事，定義一個常量

Me.WindowState=2
Info=Info vbNewLine "窗體已被最大化"
Case"ShowTime"
Info=Info vbNewLine "最后一次運行這個程序的時間是：" Str(Now)
Case"Count"
lngCount=lngCount 1
Info=Info vbNewLine "你已經第" Str(lngCount) "次重復調用這個程序。"_
vbNewLine "但怕您不多給工資，所以只運行了一個^_^"
EndSelect

IfLeft(CmdStr,Len(COMMANDLINE))=COMMANDLINEThen
Info=Info vbNewLine "新程序曾以命令行形式運行" vbNewLine "命令行為："_
vbNewLine Right(CmdStr,Len(CmdStr)-Len(COMMANDLINE))
EndIf

txtInfo.Text=Info注釋：把信息顯示出來

Cancel=False

EndSub


PrivateSubLinkAndSendMessage(ByValMsgAsString)
DimtAsLong
picDDE.LinkMode=0注釋：--
picDDE.LinkTopic="P1|FormDDE"注釋：|______連接DDE程序并發送數據/參數
picDDE.LinkMode=2注釋：|“|”為管道符，是“退格鍵”旁邊的豎線，
picDDE.LinkExecuteMsg注釋：--不是字母或數字！

t=picDDE.LinkTimeout注釋：--
picDDE.LinkTimeout=1注釋：|______終止DDE通道。當然，也可以用別的方法
picDDE.LinkMode=0注釋：|這里用的是超時強制終止的方法
picDDE.LinkTimeout=t注釋：--
EndSub


PrivateSubForm_Load()
IfApp.PrevInstanceThen注釋：程序是否已經運行

Me.LinkTopic=""注釋：這兩行用于清除新運行的程序的DDE服務器屬性，
Me.LinkMode=0注釋：否則在連接DDE程序時會出亂子的

LinkAndSendMessage"Max"注釋：--
LinkAndSendMessage"Count"注釋：|-----連接DDE接受程序并傳送數據/參數
LinkAndSendMessage"ShowTime"注釋：--

IfCommand<>""Then注釋：如果有命令行參數，就傳遞過去
LinkAndSendMessageCOMMANDLINE Command
EndIf
End注釋：結束新程序的運行
EndIf
EndSub->

　　測試一下：

　　把工程“P1”編譯成EXE文件（設名稱為P1.EXE）

　　1、打開“我的電腦”，找到P1.EXE并執行?？梢钥吹匠绦蛘＿\行了。

　　2、再運行一次，這次新程序沒有運行成功，而原來運行的程序卻被最大化了，而且文本框中有以下字符：

　　窗體已被最大化
　　你已經第1次重復調用這個程序

　　但怕您不多給工資，所以只運行了一個。

　　最后一次運行這個程序的時間是：05-2-67:11:01

　　3、打開MS-DOS方式，用命令行方式再次運行程序，如“P1HowAreYou?”，這時原來運行的程序文本框中又多了幾行字：

　　窗體已被最大化
　　你已經第2次重復調用這個程序。
　　但怕您不多給工資，所以只運行了一個
　　最后一次運行這個程序的時間是：05-2-67:14:32

　　新程序曾以命令行形式運行

　　命令行為：

　　HowAreYou?

　　OK，運行完全正確，然后你就可以把它應用的你的程序中了。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
欧美激情一级精品国产| 久久亚洲综合国产精品99麻豆精品福利| **欧美日韩vr在线| 国产ts一区二区| 国产一区二区三区在线观看网站| 日韩精品免费看| 亚洲日本中文字幕免费在线不卡| 伦伦影院午夜日韩欧美限制| 欧美激情久久久久| 91免费精品视频| 青草青草久热精品视频在线网站| 日韩一区二区福利| 91精品在线看| 国产伊人精品在线| 91av在线看| 亚洲18私人小影院| 成人欧美在线观看| 欧美韩日一区二区| 亚洲色图18p| 成人淫片在线看| 久久久久女教师免费一区| 日韩电影大片中文字幕| 久久精品人人做人人爽| 欧洲亚洲在线视频| 88xx成人精品| 国产精品日韩av| 亚洲国产精品久久久久秋霞蜜臀| 久久久久久美女| 精品国内自产拍在线观看| 国产91av在线| 欧美激情精品久久久久久大尺度| 日韩av在线网址| 91在线网站视频| 色视频www在线播放国产成人| 国产精品海角社区在线观看| 亚洲成年网站在线观看| 中文字幕国产亚洲2019| 国产美女久久久| 亚洲三级 欧美三级| 美女啪啪无遮挡免费久久网站| 国产精品mp4| 俺去啦;欧美日韩| 中文字幕精品国产| 欧美性猛交xxx| 色狠狠av一区二区三区香蕉蜜桃| 欧美中文字幕在线播放| 成人免费大片黄在线播放| 97香蕉超级碰碰久久免费的优势| 992tv成人免费视频| 日韩精品高清在线| 久久久极品av| 日本免费久久高清视频| 国产一区二区三区三区在线观看| 91精品国产综合久久香蕉922| 亚洲国产精品久久久| 成人网在线免费观看| 青草青草久热精品视频在线观看| 亚洲区bt下载| 亚洲国产成人爱av在线播放| 51久久精品夜色国产麻豆| 中文字幕在线观看日韩| 亚洲福利视频二区| 色噜噜狠狠狠综合曰曰曰| 夜夜躁日日躁狠狠久久88av| 亚洲成人久久久| 亚洲天堂免费观看| 成人性生交大片免费观看嘿嘿视频| 中文字幕久精品免费视频| 国产精品国产福利国产秒拍| 日韩av中文字幕在线| 欧美日韩aaaa| 亚洲三级av在线| 91丨九色丨国产在线| 中文字幕日韩专区| 日韩av影片在线观看| 国模私拍一区二区三区| **欧美日韩vr在线| 欧美中文字幕在线播放| 久久精品国产96久久久香蕉| 精品少妇v888av| 亚洲最大福利网| 国产精品久久久久久av福利软件| 国产精品久久在线观看| 欧美一级淫片videoshd| 伊人精品在线观看| 欧美日韩一区二区在线| 精品亚洲精品福利线在观看| 亚洲级视频在线观看免费1级| 国产精品亚洲激情| 国模gogo一区二区大胆私拍| 日韩av免费在线| 国产亚洲一区二区精品| 国产精品免费一区二区三区都可以| 在线视频国产日韩| 伊人精品在线观看| 国产精品美女久久久久久免费| 国产亚洲免费的视频看| 97久久久久久| 国产亚洲精品久久久优势| 91久久久久久久一区二区| 亚洲电影第1页| 色天天综合狠狠色| 欧美日韩中文字幕日韩欧美| 国产欧美va欧美va香蕉在线| 自拍偷拍亚洲在线| 欧美性视频在线| 一区二区三区天堂av| 亚洲精品一区中文| 日韩一级裸体免费视频| 欧美又大粗又爽又黄大片视频| 欧美一级bbbbb性bbbb喷潮片| 久久久国产一区二区三区| 成人激情视频免费在线| 少妇高潮久久77777| 57pao国产精品一区| 性夜试看影院91社区| 精品在线观看国产| 成人国产精品久久久| 97国产精品视频人人做人人爱| 欧美福利视频网站| 日韩黄色在线免费观看| 亚洲美腿欧美激情另类| 久久精品一本久久99精品| 日韩中文字幕在线播放| 欧美精品在线观看| 91香蕉国产在线观看| 亚洲美女黄色片| 国产精品jvid在线观看蜜臀| 一本色道久久88综合日韩精品| 午夜精品久久久久久久99热浪潮| 国产精品成熟老女人| 中文综合在线观看| 久久视频在线视频| 2019精品视频| 亚洲a∨日韩av高清在线观看| 国产一区二中文字幕在线看| 91热精品视频| 97高清免费视频| 国产精品91久久| 精品久久久久久国产| 亚洲国产精品久久久久| 欧美制服第一页| 国产乱人伦真实精品视频| 久久精品国产亚洲7777| 欧美夫妻性生活xx| 啪一啪鲁一鲁2019在线视频| 欧美性猛交xxxxx免费看| 精品五月天久久| 亚洲高清福利视频| 国产成人精品999| 成人a在线观看| 97国产精品久久| 国产成人精品免费视频| 俺去了亚洲欧美日韩| 亚洲第一男人天堂| 欧美激情喷水视频| 97久久精品人搡人人玩| 欧美日韩美女在线观看| 中文字幕九色91在线| 亚洲人成77777在线观看网| 国产69久久精品成人看| 欧美老女人xx| 国产在线观看精品| 亚洲人成网站在线播|