Visual Basic - Hacer que no aparesca el menu emergente en TXT

Life is soft - evento anual de software empresarial
 
Vista:

Hacer que no aparesca el menu emergente en TXT

Publicado por Rodrigo Vera C. (63 intervenciones) el 04/12/2003 21:07:07
Hola amigos:

Tengo una aplicación en la cual no quiero que aparesca un menu emergente, me explico, al hacer clic derecho en la caja de texto, aparece el tipico menu emergente donde dice: deshacer, cortar, copiar, etc...

E revisado las propiedades pero aun no logro hacerlo.

De antemano muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Hacer que no aparesca el menu emergente en TXT

Publicado por Cecilia Colalongo (3116 intervenciones) el 06/12/2003 00:29:52
No hay una propiedad o un método directo, lo puedes hacer con API's de Windows, fijate con ésto:

Public Const WM_CUT = &H300
Public Const WM_COPY = &H301
Public Const WM_PASTE = &H302
Public Const WM_CLEAR = &H303
Public Const GWL_WNDPROC = -4
Public Const WM_RBUTTONUP = &H205

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
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

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

Public 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_CUT
Case WM_COPY
Case WM_PASTE
Case WM_CLEAR
Case WM_RBUTTONUP
Case Else
WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Select
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar