Visual Basic - seleccionar con el boton derecho

Life is soft - evento anual de software empresarial
 
Vista:

seleccionar con el boton derecho

Publicado por josefello (38 intervenciones) el 21/06/2005 12:39:45
Hola
me gustaría saber como puedo hacer para que cuando pulso con el botón derecho del ratón encima de la celda de un DataGrid, seleccione la misma, ya para seleccionar una celda tengo que pulsar primero con el botón izquierdo para seleccionar la celda, y luego con el derecho para que muestre el menú correspondiente a la celda.
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
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:seleccionar con el boton derecho

Publicado por SuNcO (599 intervenciones) el 08/07/2005 21:47:59
La pregunta tiene casi 1 mes pero pues la acabo de ver

Con este codigo das click derecho y automaticamente se da un click izquierdo (para seleccioarla) y despues se da un click derecho (para sacar el menu)

En un modulo :

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10

Public Sub DarClick1()
RightDown
RightUp
End Sub

Public Sub RightDown()
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End Sub

Public Sub RightUp()
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Public Sub DarClick2()
LeftDown
LeftUp
End Sub

Public Sub LeftDown()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub

Public Sub LeftUp()
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

' ---------------------------------------------------------

En el Formulario :

Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
DarClick2
DarClick1
End If
End Sub
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