在线中文-在线在线ccc66-在线永久免费观看的毛片-在线永久免费观看的a站视频-久久精品最新免费国产成人-久久精品综合一区二区三区


曙海教育集團論壇開發語言培訓專區VB語言 → VB中子分類技術實例應用


  共有8331人關注過本帖樹形打印

主題:VB中子分類技術實例應用

美女呀,離線,留言給我吧!
wangxinxin
  1樓 個性首頁 | 博客 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:青蜂俠 帖子:1393 積分:14038 威望:0 精華:0 注冊:2010-11-12 11:08:23
VB中子分類技術實例應用  發帖心情 Post By:2010-12-14 14:19:11

子分類技術的原理:要先取得原先Window Procedure所在的地址,將之記錄起來,接著設定所有的消息都先轉到我們所寫的消息處理過程上來,我們過濾傳過來的消息,尋找特定的消息進行處理,其余的送回系統,由系統決定如何處理。等到我們不需要再處理這些特定的消息時,便取消消息的截取,即中止子分類過程。它一般需要三個過程:開始截取,消息處理,中止截取. 
  程序需要一個模塊,在模塊中聲明如下: 
  ’api函數Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

A s Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function

CallWindowProc Lib "user32" Alias "CallWindowProcA" _ 
  (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _ 
  ByVal wParam As Long, ByVal lParam As Long) As Long 
  ’定義常數Public Const GWL_WNDPROC = (-4) Public Const WM_MOUSEMOVE = &H200 Public Const WM_RBUTTONDOWN = &H204 
  ’全局變量,存放控件標志性數據Public preWinProc As Long 
  ’本函數就是用來接收子分類時截取的消息的Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _ 
  ByVal wParam As Long, ByVal lParam As Long) As 
  Long 
  ’截取下來的消息存放在msg參數中. 
  if msg=WM_RBUTTONDOWN then 
  ’檢測到鼠標右擊消息,這里就可以加入我們的處理代碼如: 
  msgbox "你好,鼠標右擊消息!" 
  ’需要注意,如果這兒不加入任何代碼,則相當于吃掉了這條消息. else 
  ’如果我們不是我們需要處理的消息,則將之送回原來的程序. 
  wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam) endif End Function 
’以下代碼在窗體中: ’本例以截取一個combobox控件的消息為例,假設該’控件的名字是:comb1 Private Sub subclass() Dim ret As Long 
  ’記錄Window Procedure的地址 
  preWinProc = GetWindowLong(comb1.hwnd, GWL_WNDPROC)


支持(0中立(0反對(0單帖管理 | 引用 | 回復 回到頂部

返回版面帖子列表

VB中子分類技術實例應用








簽名
主站蜘蛛池模板: 精品一区二区三区在线成人 | 成人区精品一区二区毛片不卡 | 一区二区国产精品 | 久久久91精品国产一区二区三区 | 亚洲欧美在线观看视频 | 精品久久精品久久 | 黄色资源在线观看 | 九九久久精品 | 日本欧美视频 | 亚洲精品亚洲九十七页 | 男女精品视频 | 亚洲国产中文字幕在线观看 | 亚洲图片在线播放 | 亚洲男人天堂2021 | 亚洲精品99久久久久久 | 亚洲欧美日本国产一区二区三区 | 日韩在线视频不卡 | 亚洲精品理论电影在线观看 | 亚洲国产第一 | 四虎成人免费视频 | 男人天堂伊人网 | 亚洲欧美日韩国产精品网 | 性欧美在线视频 | 五月天 丁香 | 爱啪啪影视 | 国产羞羞羞视频在线观看 | 国内精品视频成人一区二区 | 在线观看精品视频一区二区 | 久久精品成人一区二区三区 | 国产男人的天堂 | 久久精品欧美一区二区 | 五月综合久久 | 国产在线麻豆精品观看 | www.激情小说.com | 五月婷婷视频在线观看 | 日本人免费xxx在线视频 | 亚洲精品欧美日韩 | 在线观看免费网址大全 | 爱插综合网 | 九九香蕉视频 | 欧美日韩视频在线第一区 |