محدود کردن textbox

[mehrdadtk]

سلام مجدد
می خواستم در textbox فقط فارسی تایپ بشه باید چه دستوری وارد کنم ؟

[barbodsoft.com]

می تونی دستور تغییر کیبورد از انگلیسی به فارسی رو اجرا کنی اگه کدش رو نداری بگو برات بزارم. البته تو همین سایت هم هست باید جستجو کنی.

[mehrdadtk]

اگر ممکنه بزارید.واقعا ممنونم.

[mehrdadtk]

دوستان کمک کنید لطفا.:افسرده:

[Poria.Net]

دوستان کمک کنید لطفا.:افسرده:
سلام عزیز یه "Text Box" برای همین کار دارم . فقط نمی دونم چطوری اپ لودش کنم !

[mehrdadtk]

سلام دوست عزیز

در قسمت ضمیمه روی دکمه مدیریت ضمیمه مانند کلیک کن، بعد افزودن فایل رو بزن فایلت رو فراخوانی کن بعد آپلود.

[mgh64120]

سلام دوست عزيز
قطعه كد تغيير زبان كيبورد به فارسي :

If InputLanguage.CurrentInputLanguage.LayoutName = "US" Then
Dim Farsi As New Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Farsi)
End If
موفق باشيد...

[damanpak]

سلام دوست عزيز
قطعه كد تغيير زبان كيبورد به فارسي :

If InputLanguage.CurrentInputLanguage.LayoutName = "US" Then
Dim Farsi As New Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Farsi)
End If
موفق باشيد...

دوست عزیز از سورسی که گذاشتین ممنون اما منظور mehrdadtk اینه که فقط فارسی تایپ بشه توی تکست باکس نه اینکه زبان تایپ و نوشتاری سیستم فارسی بشه

[damanpak]

سلام مجدد
می خواستم در textbox فقط فارسی تایپ بشه باید چه دستوری وارد کنم ؟
اینم نمونه سورس
86765

[barbodsoft.com]

اینم نمونه سورس
86754

اگه کاربر خواست از عداد استفاده کنه نمی تونه.
اگر کاربر خواست قسمتی از متن رو پاک کنه نمی تونه.

بهتره تو رویداد enter تکست باکس کد پست 7 رو بنویسید . البته اگه می خواهید که مطمئن تر باشید بهتره این کد رو تو رویداد keydown هم بنویسید.

[damanpak]

اگه کاربر خواست از عداد استفاده کنه نمی تونه.
اگر کاربر خواست قسمتی از متن رو پاک کنه نمی تونه.

بهتره تو رویداد enter تکست باکس کد پست 7 رو بنویسید . البته اگه می خواهید که مطمئن تر باشید بهتره این کد رو تو رویداد keydown هم بنویسید.
دوست عزیز اگه دقت کنید جناب mehrdadtk فرمودند که
می خواستم در textbox فقط فارسی تایپ بشه باید چه دستوری وارد کنم ؟
و هیچ اشاره ای به اعداد نکردند از طرفی واسه اعداد که فارسی و انگلیسی معنی نداره چون هفت انگلیسی و هفت فاسی یک مقدار رو دارن پس نتیجه میگیریم که
1- واسه اعداد این سورس گذاشته نشده(گرچه میتونید با یه تغییر کوچیک اعداد رو هم بهش اضافه کنید)
2-میتونید داخل سورس برنامه برید و یک تکست باکس دیگه اضافه کنید با یه متغییر دیگه و کارای که واسه تکست فارسی انجام دادین رو این دفعه با متغییر جدید انجام بدین
3-لینک بالا رو دوباره گذاشتم امکان پاک کردن متن با کلید Delete که از قبل وجود داشت و پاک کردن متن با کلید Back Space هم توش گذاشتم

[barbodsoft.com]

دوست عزیز اگه دقت کنید جناب mehrdadtk فرمودند که
می خواستم در textbox فقط فارسی تایپ بشه باید چه دستوری وارد کنم ؟
و هیچ اشاره ای به اعداد نکردند از طرفی واسه اعداد که فارسی و انگلیسی معنی نداره چون هفت انگلیسی و هفت فاسی یک مقدار رو دارن پس نتیجه میگیریم که
1- واسه اعداد این سورس گذاشته نشده(گرچه میتونید با یه تغییر کوچیک اعداد رو هم بهش اضافه کنید)
2-میتونید داخل سورس برنامه برید و یک تکست باکس دیگه اضافه کنید با یه متغییر دیگه و کارای که واسه تکست فارسی انجام دادین رو این دفعه با متغییر جدید انجام بدین
3-لینک بالا رو دوباره گذاشتم امکان پاک کردن متن با کلید Delete که از قبل وجود داشت و پاک کردن متن با کلید Back Space هم توش گذاشتم


خیلی وقتها یک کاربر یک سوال را مطرح می کنه. تو اولین پست جوابش رو می گیره و بی خیال می شه. ولی کاربرای دیگه به این بحث ادامه می دن و به موضوع وسعت بیشتری می دن و از جنبه های مختلف بررسی اش می کنن که این خوبه.



واسه اعداد این سورس گذاشته نشده(گرچه میتونید با یه تغییر کوچیک اعداد رو هم بهش اضافه کنید)

فقط اعداد نیست صدها علامت هم می تونه شاملش بشه. به حرحال روش شما هم جالب بود . من قبلا ندیده بودم.

[mehrdadtk]

باتشکر از همه اساتید
دوستان برای جلوگیری از paste و copy چه کدی رو باید در textbox وارد کنم ؟

[Hybrid]

باتشکر از همه اساتید
دوستان برای جلوگیری از paste و copy چه کدی رو باید در textbox وارد کنم ؟

خاصیت ShortcutsEnabled از تکست باکس رو برابر false قرار بده.

موفق باشیـــــد./

[sehm67]

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
Dim Str As Object
Str = " ضصثقفغعهخحجچپگکمنتالبیسشظ طزژرذدئءوی ی ةي.-"
If KeyAscii > 26 Then
If InStr(Str, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
e.KeyChar = Chr(KeyAscii)
If KeyAscii = 0 Then
e.Handled = True
End If
Clipboard.Clear()
End Sub


Clipboard.Clear() برای جلوپیری از کپی و پیست