کد اسکی

[behzad5952]

با عرض سلام و خسته نباشید خدمت دوستان.
من مشکلی که دارم اینه که می خوام تا زمانی که کاربر کلیدهای ctrl یا shift یا Alt را نگه داشته باشه بقیه کلیدها غیر فعال بشه از کد زیر استفاده کردم ولی جواب نداد.



If KeyCode = 16 And KeyCode = 17 Or KeyCode = 18 Then
Else
KeyCode = 0
End If

[Abbas Amiri]

با عرض سلام و خسته نباشید خدمت دوستان.
من مشکلی که دارم اینه که می خوام تا زمانی که کاربر کلیدهای ctrl یا shift یا Alt را نگه داشته باشه بقیه کلیدها غیر فعال بشه از کد زیر استفاده کردم ولی جواب نداد.



If KeyCode = 16 And KeyCode = 17 Or KeyCode = 18 Then
Else
KeyCode = 0
End If


از روش زیر استفاده کنید


Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = acShiftMask Or Shift = acAltMask Or Shift = acCtrlMask Then
KeyCode = 0
End If
End Sub

[behzad5952]

با تشکر فراون از جناب امیری.
دوستان اگر لطف کنند و یک مثال هم در رابطه با ترکیب و استفاده همزمان از کلیدهای ALT یا SHIFT یا CTRL با سایر کلیدها مثلا A که کار خاصی را انجام بدهد بزنند ممنون می شم.

[Abbas Amiri]

با تشکر فراون از جناب امیری.
دوستان اگر لطف کنند و یک مثال هم در رابطه با ترکیب و استفاده همزمان از کلیدهای ALT یا SHIFT یا CTRL با سایر کلیدها مثلا A که کار خاصی را انجام بدهد بزنند ممنون می شم.

از روش زیر میتوانید استفاده کنید:


Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
If Shift = acShiftMask Then
'type your code
ElseIf Shift = acCtrlMask Then
'type your code
ElseIf Shift = acAltMask Then
'type your code
Else
'type your code

End If
Case vbKeyS
' some code

Case vbKeyG
' some code

End Select
End Sub