کد کلیدههای ترکیبی

[Abbas Arizi]

برای این کار شما باید در رویداد KeyDown مقدار Shift محاسبه کنید.

4 = ALt
Shfit = 1
Ctrl = 2
مثلا:

Private Sub Form_Load()

   Me.KeyPreview = True

End Sub



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyX And Shift = 2 Then End

End Sub

Ctrl + X را بزنید تا برنمه بسته شود