Mausbewegung zusammen mit shift/strg Taste

[Dietrich Möck]

Ich möchte in einem Formular bei Mausbewegung ein Ereignis auslösen (Setzen eines Feldwertes), aber nur, wenn gleichzeitig auch die shift opder strg-Taste gedrückt wird.
Welchen Code muss ich eingeben?

[DF6GL]

Hallo,

im Mouse_Move-Ereignis den Wert des Shift-Argumentes auswerten.

[Dietrich Möck]

schon klar, aber wie lautet dafür der Code?

[DF6GL]

wie lauten Deine Feldnamen?

[Dietrich Möck]

Der Feldname lautet M7

[Dietrich Möck]

konkret:
Der Feldname lautet M7  und soll bei Mausbewegung und shift den Wert "1" erhalten und bei
Mausbewegung und strg den Wert "0" erhalten

[DF6GL]

Private Sub M7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 1 Then
Me!M7 = 1
ElseIf Shift = 2 Then
Me!M7 = 0
End If
End Sub

[lumbumba]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Select Case Shift
       Case 1
           'Me.M7 = 1
           Me![M7] = 1
       Case 2
           'Me.M7 = 0
           Me![M7] = 0
       Case 3
           'Me.m7 = "Shift&Ctrl-Taste"
       Case 4
           'Me.m7 = "Alt-Taste-Taste"
   End Select
End Sub

[Dietrich Möck]

Vielen Dank, hat funktioniert, ich habe die Rückgabewerte nicht gekannt.