Hassan2500
جمعه 24 شهریور 1391, 14:50 عصر
سلام
سورس زیر کارش اینه که وقتی متنی رو کپی میکنی که اون متن ترکیبی از حروف فارسی و انگلیسی است هنگام Ctrl + V کردن فقط حروف فارسی اون متن رو داخل تکست1 میندازه
92855
حالا من اومدم و کدهای زیر رو هم به این سورس اضافه کرده ام اما باعث شدن که کد اصلی کار نکنه و هنگام Ctrl + V کردن حروف انگلیسی هم در تکست1 برای بار اول بیفتن کسی میتونه کاری کنه که وقتی این دو کد زیر هم اضافه شدن کد اصلی بخوبی کار کنه فکر کنم مشکل از رویداد Text1_KeyDown است که باید کدش جوری دیگه نوشته بشه
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr("اآأإبپجچدهةوؤزژحطىيييئكکگ لمنسعفصقرشتثخذضظغ ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
With Text1
If Shift = vbCtrlMask And KeyCode = vbKeyC And .SelText > "" Then: Clipboard.Clear: Clipboard.SetText .SelText
If Shift = vbCtrlMask And KeyCode = vbKeyV Then .SelText = Clipboard.GetText
End With
End Sub
سورس زیر کارش اینه که وقتی متنی رو کپی میکنی که اون متن ترکیبی از حروف فارسی و انگلیسی است هنگام Ctrl + V کردن فقط حروف فارسی اون متن رو داخل تکست1 میندازه
92855
حالا من اومدم و کدهای زیر رو هم به این سورس اضافه کرده ام اما باعث شدن که کد اصلی کار نکنه و هنگام Ctrl + V کردن حروف انگلیسی هم در تکست1 برای بار اول بیفتن کسی میتونه کاری کنه که وقتی این دو کد زیر هم اضافه شدن کد اصلی بخوبی کار کنه فکر کنم مشکل از رویداد Text1_KeyDown است که باید کدش جوری دیگه نوشته بشه
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr("اآأإبپجچدهةوؤزژحطىيييئكکگ لمنسعفصقرشتثخذضظغ ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
With Text1
If Shift = vbCtrlMask And KeyCode = vbKeyC And .SelText > "" Then: Clipboard.Clear: Clipboard.SetText .SelText
If Shift = vbCtrlMask And KeyCode = vbKeyV Then .SelText = Clipboard.GetText
End With
End Sub