Sección de códigos , trucos y ejemplos para visual basic

21 - Deshabilitar el menú contextual en TextBox y Combos

Contenido

Utilizando un Hook para interceptar el mensaje WM_CONTEXTMENU
Sin utilizar un Hook - Desplegando un menú en el evento MouseDown
Deshabilitar en controles Combo
Ejemplos relacionados

Utilizando un Hook

Este ejemplo utiliza un Hook para interceptar los mensajes de Windows que llegan a nuestra aplicación, y de esta forma poder deshabilitar el menú contextual de un TextBox al hacer click derecho ( El menú de copiar , pegar, seleccionar todo )

Para inicializar el hook se debe llamar a la función Hook y para removerlo o finalizarlo , la función UnHook.

A los dos procedimientos, se le debe pasar como parámetro el Hwnd del control Textbox. por ejemplo

Deshabilita:

Call Hook (Text1.Hwnd)

Habilita

Call UnHook (Text1.hwnd)

En este caso el Hook o procedimiento que procesa los mensajes, debe estar obligatoriamente declarado en un modulo .Bas

Importante: no se puede detener la ejecución del programa para depurarlo, por ejemplo con un punto de interrupción en el procedimiento ( en el Hook ), ya que el programa se colgaría y se cerraría hasta el propio IDE del Visual basic. También puede ser conveniente, deshabilitar el hook, hasta que la aplicación esté libre de errores, ya que al producirse uno se cerrará el visual basic, y podremos haber perdido los cambios realizados en nuestro programa.

Ejemplo

Colocar un control Textbox llamado Text1 en el formulario

Código fuente en un módulo bas:

Option Explicit 'Función Api SetWindowLong Public 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 Public 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 'Constantes '''''''''''''''''''''''' ' mensaje para el menú contextual Public Const WM_CONTEXTMENU = &H7B Global lpPrevWndProc As Long 'Comienza el Hook Public Sub Hook(Handle As Long) lpPrevWndProc = SetWindowLong(Handle, -4, AddressOf WinProc) End Sub 'Termina el Hook Public Sub Unhook(Handle As Long) Call SetWindowLong(Handle, -4, lpPrevWndProc) End Sub 'Procedimiento chequea los mensajes que llegan _ para ver si se despliega el menú contextual _ en el textbox indicado ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function WinProc(ByVal hWnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long ' Chequea si el mensaje es WM_CONTEXTMENU ( el menú contextual ) If Msg = WM_CONTEXTMENU Then WinProc = True Else WinProc = CallWindowProc(lpPrevWndProc, _ hWnd, Msg, wParam, lParam) End If End Function

Código fuente en un formulario

Option Explicit Private Sub Form_Load() ' inicializa el Hook ( Indicar el Textbox a deshabiltar ) Call Hook(Text1.hWnd) End Sub Private Sub Form_Unload(Cancel As Integer) ' Remueve Call Unhook(Text1.hWnd) End Sub

Si quisieramos deshabilitar el menú contextual de todos los controles textbox que hay en el form, podemos hacerlo con un bucle For Each

Ejemplo

Option Explicit Private Sub Form_Load() Dim Ctrl As Control 'REcorre todos los textbox del formulario For Each Ctrl In Me.Controls ' verifica que el control es un textbox If TypeOf Ctrl Is TextBox Then ' inicia el hook Hook Ctrl.hWnd End If Next End Sub Private Sub Form_Unload(Cancel As Integer) Dim Ctrl As Control 'Recorre en un bucle todos los textbox del form For Each Ctrl In Me.Controls ' ¿ es un textbox ? If TypeOf Ctrl Is TextBox Then ' Finaliza el hook Unhook Ctrl.hWnd End If Next End Sub

Sin Hook - Desplegando un menú en el evento MouseDown

Nota: Otra forma de poder realizar esto sin un Hook, es creando nuestro propio menú con el editor de Visual basic, y en el evento mouseDown del textbox, desplegamos un menú propio.

Por ejemplo suponiendo que el menú popUp se llama mnu_popUp

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button <> vbRightButton Then Exit Sub Text1.Enabled = False Text1.Enabled = True Text1.SetFocus 'Despliega el PopupMenu en el textbox Me.PopupMenu mnu_popUp End Sub

Otra forma de hacer esto es con el Api ReleaseCapture, y podés ver un ejemplo en el siguiente enlace : desplegar un menu popup propio en un textBox

En controles Combos

Ver ejemplo

Recursos vb6 - Enlaces Relacionados

Buscar en Recursos vb