Discussion :

[19cmos83]

Bonjour,

j'aimerais, que quand je fais un DoubleClick avec CTRL enfoncé sur un Label, il m'affiche un Msgbox par exempe ...

Comment pourrais faire ...

Un truc comme ca ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Label1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) _ 
Handles Label1.MouseDoubleClick
 
     '
     ' if CTRL enfoncé Alors
     '    MessageBox
     ' else
     '    Rien
     '
 
End Sub

[19cmos83]

ou peut etre un truc comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Label1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
        If (a) Then
            MsgBox("ok")
        End If
    End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
     Dim a As Boolean = True
   Private Sub Forms_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Forms.KeyPress
        '
        ' if e.Keychar == CTRL Then
        '        
        a = true
        'End if
    End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Private Sub Forms_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Forms.KeyUp
        a = False
    End Sub

Le probleme vient de recuperer l ascii de CTRL,

sinon, y doit y avoir plus simple ...