سلام
چگونه میتوانم کلید Shift را غیر فعال و از کار بیندازم
سلام
چگونه میتوانم کلید Shift را غیر فعال و از کار بیندازم
تو محیط vb ؟؟
تو keyup ,down تعریف کن که اگه کلید فشرده شد keycode =0 و shiftesh .
من خوب متوجه نشدم مثلا من یک Text روی Form دارم دقیقا چه کدی بنویسم و چه رویدادی را انتخاب کنم که دکمه Shift از کار بیفته کدش را اگر میشود دقیقا واسم بنویسید
با api بهتره چون کاملا دست user رو میشه بست .
سلام
جناب setroyd من دقیقاً همین کدی را که نوشتیدبرای Text1 نوشتم اما دکمه Shift برای Text1 از کار نیفتاد
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 16 Then KeyCode = 0
If Shift = 1 Then Shift = 0
End Sub
سلام علیکم
قبلا" راجع به کامپوننت 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 رو بزار مارو هم خلاص کن دیگه!