程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB中抑制控件的彈出菜單

VB中抑制控件的彈出菜單

編輯:VB綜合教程

  在VB的某些控件如文本框(TEXTBOX)、組合框(COMBOBOX)等上單擊鼠標右鍵都會有缺省的彈出菜單,這些缺省彈出菜單,在某些情況下我們並不需要或者根據實際情況需要使用自己的彈出菜單,那麼如何抑制控件的彈出菜單呢?我們需要檢測控件的鼠標右鍵單擊消息,然後什麼事也不做或者使用自己的彈出菜單,這需要編寫一個鉤子函數來完成。下面以抑制文本框的彈出菜單為例說明實現方法。

  為窗體添加一個模塊,在模塊中編寫鉤子函數:

  首先聲明使用的API函數及常量,

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
Declare Function SetWindowLong Lib
"user32" Alias "SetWindowLongA" _
 (ByVal hWnd As Long, ByVal nIndex
  As Long, ByVal dwNewLong As Long) _
  As Long
Public Const GWL_WNDPROC = -4
Public Const WM_RBUTTONUP = &H205
Public lpPrevWndProc As Long
Private lngHWnd As Long

  鉤子函數編寫:

Public Sub Hook(hWnd As Long)
 lngHWnd=hWnd
 lpPrevWndProc = SetWindowLong(lngHWnd,
 GWL_WNDPROC, AddressOf WindowProc)
End Sub

  鉤子函數撤消:

Public Sub UnHook()
Dim lngReturnValue As Long
lngReturnValue = SetWindowLong(lngHWnd,
GWL_WNDPROC, lpPrevWndProc)
End Sub
Function WindowProc(ByVal hw As
Long, ByVal uMsg As Long, _
  ByVal wParam As Long, ByVal
  lParam As Long) As Long
  Select Case uMsg
檢測鼠標擊鍵消息,如果是單擊右鍵
  Case WM_RBUTTONUP
   什麼事也不做
  或彈出自己定制的菜單
  Case Else
WindowProc = CallWindowProc(lpPrevWndProc,
hw, uMsg, wParam, lParam)
  End Select
End Function

  在窗體中添加一個文本框,在窗體的Form_Load事件中啟動鉤子函數:

Private Sub Form_Load()
Call Hook(Text1.hWnd)
End Sub

  在窗體的Form_Unload事件中撤消鉤 數?

Private Sub Form_Unload(Cancel As Integer)
  Call UnHook
End Sub

  注意,在窗體退出時必須撤消鉤子函數,否則程序會出錯。

  本程序在VB5.0、WIN98下調試通過。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved