از کار انداختن کلید Shift

[hr0694]

سلام
چگونه میتوانم کلید Shift را غیر فعال و از کار بیندازم

[setroyd]

تو محیط vb ؟؟
تو keyup ,down تعریف کن که اگه کلید فشرده شد keycode =0 و shiftesh .

[hr0694]

من خوب متوجه نشدم مثلا من یک Text روی Form دارم دقیقا چه کدی بنویسم و چه رویدادی را انتخاب کنم که دکمه Shift از کار بیفته کدش را اگر میشود دقیقا واسم بنویسید

[setroyd]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 16 Then KeyCode = 0
If Shift = 1 Then Shift = 0
End Sub

[setroyd]

با api بهتره چون کاملا دست user رو میشه بست .

[hr0694]

سلام
جناب setroyd من دقیقاً همین کدی را که نوشتیدبرای Text1 نوشتم اما دکمه Shift برای Text1 از کار نیفتاد

[محسن واژدی]

سلام علیکم
قبلا" راجع به کامپوننت EventVB.dll توضیحاتی دادم، همچنین ضمیمه شد، اما اگر روش جناب setroyd عمل کرد بهتر است

موفق باشید

[quiet_programmer]

با سلام.

روی فرم یه تکس باکس بزار و کد زیر رو تو قسمت کد پیست کن. البته فقط برای حروف 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

[setroyd]

در واقع کار این کد از کار انداختن نیست کاراکتر هارو با شیفت محدود میکنه . ولی کد خوبیه برای اینکه در یک محدوده استفاده بشه . ولی اگه کلا بخوای شیفت رو از کار بندازی باید از api استفاده کنی .

[quiet_programmer]

با سلام.

با api بهتره چون کاملا دست user رو میشه بست .

ولی اگه کلا بخوای شیفت رو از کار بندازی باید از api استفاده کنی .

هی میگه API، API!
خوب بابا این دستور API رو بزار مارو هم خلاص کن دیگه!