از کار افتادن دکمه Ctrl

[Hassan2500]

سلام

از دوستان میخوام این کد رو جوری تغییر بدن که دکمه Ctrl هم کار کند


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr("ابپتثجچحخدذرزژسشصضطظعغفقک گلمنوهی ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
End Sub

[SlowCode]

برای این کار باید کدت رو توی رویداد keydown یا keyup بنویسی و کد زیر رو بهش اضافه کنی:
If Shift = 2 then Shift = 0

[Hassan2500]

جناب محسن 15 وقتی کد رو از KeyPress به keydown یا keyup اضافش میکنم حروف الفبائی رو که در کد مشخص کردم که فقط اینها داخل تکست1 تایپ شوند اما کاراکترهای دیگه ای هم تایپ میشوند چکار کنم فقط این حروف الفبا که نوشته ام تایپ شوند میشه کاری کرد که کد هم در KeyPress باشه و هم کنترل کار کنه

[just4froum]

سلام

از دوستان میخوام این کد رو جوری تغییر بدن که دکمه Ctrl هم کار کند


با سلام :

من دقیقا نفهمیدم می خوای با CTRL چی کار کنی ولی این دکمه اصلا keyascii نداره به همین دلیل کار می کنه.

نکنه منظورت اینه که میخوای کاری کنی که کار نکنه ؟

[Hassan2500]

کد پست1 کلید ترکیبی Ctrl + V رو از کار انداخته حالا اگه میشه کاری کنید در Text1_KeyPress کلید ترکیبی Ctrl + V هم کار کنه

[Hassan2500]

کسی نیست پاسخ بده

[SlowCode]

رويداد keyascii متد shift نداره پس نميتونيم با ctrl,alt,shift كار كنيم، توي رويداد keydown هم نميتونيم مثل keypress كي اسكي رو صفر كنيم، پس هيچ كدوم نميتونه نياز شما رو برطرف كنه.
تنها راه استفاده از api هست و بهتره اين سوال رو از آقاي setroyd بپرسي.

[l4dl4d]

دوست عزیز شما از نرم افزار acci-Top استفاده کنید که کد اسکی ها رو داره
دوست عزیز محسن به api کاری نداره خود وی بی توابعشو داره
ولی در کل این نرم افزار کد همه رو داره