Detectar Click o doble click en cualquier objeto

[Judgement]

Iniciado por eldelpuerto

Me gustaria darle un click con el boton del medio (o rueda) en cualquier objeto de cualquier form de un proyecto y que me saliera un mensaje dicendome como se llama el objeto, tipo de objeto que es, form al que pertenece..etc.. o sea poder saber sus propiedades.

Saludos, creo que esto te puede ayudar un poco.

Código vb:

Public Sub ShowInfo(ByRef objThis As Object)
    MsgBox "Nombre del control:" & vbTab & vbTab & objThis.Name & vbCrLf & _
           "Tipo de objeto:" & vbTab & vbTab & TypeName(objThis) & vbCrLf & _
           "Contenedor del objeto:" & vbTab & objThis.Parent.Name, _
           vbInformation, "Info"
End Sub
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbMiddleButton Then
        ShowInfo Command1
    End If
End Sub
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbMiddleButton Then
        ShowInfo Label1
    End If
End Sub
 

Como podras ver, necesitas invocar el procedimiento en el evento MouseDown de todos los controles los cuales desees mostrar su informacion respectiva.

Espero que te sea de utilidad