PDA

View Full Version : کد کلیدههای ترکیبی



ario
پنج شنبه 04 اردیبهشت 1382, 03:19 صبح
برای استفاده از کلیدها در برنامه باید از چه رویدادی و کجا استفاده کنیم مثلا ctrl+pبرای چاپ

Abbas Arizi
پنج شنبه 04 اردیبهشت 1382, 12:27 عصر
برای این کار شما باید در رویداد 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 را بزنید تا برنمه بسته شود