Ejemplos usando el Api de windows para Visual basic

173 - Deshabilitar el menú contextual en un ComboBox

Ejemplo que utiliza un Hook para poder desactivar el menú contextual al hacer clic derecho sobre un Combo

El ejemplo es exactamente igual a este: Deshabilitar menú contextual en textbox .. con la diferencia de que hay que realizar un paso mas

. En el ejemplo del TextBox, se utiliza el Hwnd del Text para indicar cual Textbox se deshabilitará el menú.

Pero en los ComboBox no se puede utilizar el Hwnd del Combo, si no que hay que obtener el Hwnd del área de edición , ya que el combobox, como otros controles, aunque parezca uno solo, está formado por varios otros, en este caso el combo son tres controles o " Ventanas" ( El combo, el área de edición y el botón de la lista desplegable )

Este Hwnd ( el del área de edición ), lo podemos obtener con la función Api FindwindowEx

Hwnd_Combo = FindWindowEx(Hwnd_Combo, 0, "EDIT", vbNullString)

Controles:

Agregar un módulo bas al proyecto
Colocar un ComboBox en el formulario

Nota: No se debe producir ningún error en el programa, ya que al utilizar un hook, si produce un error, el vb se cerrará por completo

Código fuente en el módulo bas

Option Explicit 'Declaraciones Api '************************************************************************* 'Función Api SetWindowLong Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long ' Función Api CallWindowProc Private 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 ' Para buscar el Hwnd del área de edición del combobox Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _ ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long 'Constantes Private Const WM_CONTEXTMENU = &H7B Private lpPrevWndProc As Long 'Comienza el Hook para deshabilitar el menú contextual Public Sub Hook_Combo(Hwnd_Combo As Long) 'El primer parámetro es el Hwnd del área de edición del combo lpPrevWndProc = SetWindowLong(FindWindowEx(Hwnd_Combo, 0, _ "EDIT", vbNullString), _ -4, AddressOf WinProc) End Sub ' Termina el Hook Public Sub UnHook_Combo(Hwnd_Combo As Long) Dim ret As Long ret = SetWindowLong(FindWindowEx(Hwnd_Combo, 0, _ "EDIT", vbNullString), _ -4, lpPrevWndProc) End Sub ' Procedimiento que chequea si se despliega el menú contextual ' mediante el mensaje WM_CONTEXTMENU Public Function WinProc(ByVal hwnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long 'Mensaje ( Cuando se despliega el menú, el mensaje es WM_CONTEXTMENU ) _ al asignarle a la función el valor TRue se deshabilita el mismo If Msg = WM_CONTEXTMENU Then WinProc = True Else ' ... Otros mensajes WinProc = CallWindowProc(lpPrevWndProc, _ hwnd, Msg, wParam, lParam) End If End Function

Código en el formulario

Option Explicit Private Sub Form_Load() ' Instala el hook en la aplicación _ para procesar los mensajes de windows que llegan _ e interceptar el mensaje WM_CONTEXTMENU Call Hook_Combo(Combo1.hwnd) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' Elimina el hook Call UnHook_Combo(Combo1.hwnd) End Sub

Relacionados

Buscar en Recursos vb