سلام
چگونه میتوانم کلید Shift را غیر فعال و از کار بیندازم
Printable View
سلام
چگونه میتوانم کلید Shift را غیر فعال و از کار بیندازم
تو محیط vb ؟؟
تو keyup ,down تعریف کن که اگه کلید فشرده شد keycode =0 و shiftesh .
من خوب متوجه نشدم مثلا من یک Text روی Form دارم دقیقا چه کدی بنویسم و چه رویدادی را انتخاب کنم که دکمه Shift از کار بیفته کدش را اگر میشود دقیقا واسم بنویسید
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 16 Then KeyCode = 0
If Shift = 1 Then Shift = 0
End Sub
با api بهتره چون کاملا دست user رو میشه بست .
سلام
جناب setroyd من دقیقاً همین کدی را که نوشتیدبرای Text1 نوشتم اما دکمه Shift برای Text1 از کار نیفتاد
سلام علیکم
قبلا" راجع به کامپوننت EventVB.dll توضیحاتی دادم، همچنین ضمیمه شد، اما اگر روش جناب setroyd عمل کرد بهتر است
موفق باشید
با سلام.
روی فرم یه تکس باکس بزار و کد زیر رو تو قسمت کد پیست کن. البته فقط برای حروف a تا z و A تا Z درست کار میکنه و برای بقیه کلیدها من KeyAscii رو صفر کردم که اصلا عمل نکنه. جالبه! امتحانش کن.
Dim ShKeyDowned As Boolean
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 1 Then
ShKeyDowned = True
Else
ShKeyDowned = False
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If ShKeyDowned = True Then
If (KeyAscii >= 65 And KeyAscii <= 90) Then
KeyAscii = KeyAscii + 32
ElseIf (KeyAscii >= 97 And KeyAscii <= 122) Then
KeyAscii = KeyAscii - 32
Else
KeyAscii = 0
End If
End If
End Sub
در واقع کار این کد از کار انداختن نیست کاراکتر هارو با شیفت محدود میکنه . ولی کد خوبیه برای اینکه در یک محدوده استفاده بشه . ولی اگه کلا بخوای شیفت رو از کار بندازی باید از api استفاده کنی .
با سلام.
نقل قول:
با api بهتره چون کاملا دست user رو میشه بست .
هی میگه API، API!نقل قول:
ولی اگه کلا بخوای شیفت رو از کار بندازی باید از api استفاده کنی .
خوب بابا این دستور API رو بزار مارو هم خلاص کن دیگه!