public declare function setwindowshookex lib "user32" alias "setwindowshookexa" (byval idhook as long, byval lpfn as long, byval hmod as long, byval dwthreadid as long) as long
public declare function callnexthookex lib "user32" (byval hhook as long, byval ncode as long, byval wparam as long, lparam as any) as long
public declare function unhookwindowshookex lib "user32" (byval hhook as long) as long
好玩不?? 超級簡單....放到乙個timer控制項裡就搞定了
技術盤點之VB6事件機制
第一種場景 主表單調出客戶列表表單選擇乙個客戶 流程 使用者單擊主表單相應控制項調出客戶列表表單，選擇乙個客戶，被選中的客戶資料返回給主表單。解釋 a.主表單 mainform 宣告乙個私有的客戶列表表單 customerlist withevents 關鍵字表明該物件可以觸發事件。b.公開乙個 被...
vb6中訪問XML文件
dim xmldoc as new msxml.domdocument dim xmlnode as ixmldomnode dim root as ixmldomnode dim node as ixmldomnode dim xmlele as ixmldomelement dim xmlatt...
VB6技巧 總結
vb設定多行textbox的位置 由於自動輸入的文字比較多，最後輸入的跑到下面了，想要自動滾動到下面，本來以為 操作滾動條呢，但是沒有方法。於是我巧妙的採用了 顯示列表是設定了乙個多行 的 textbox 顯示列表.selstart len 顯示列表.text 1 顯示列表.sellength 1 ...