مشکل در user name , password

[mehdiDER_5]

با سلام

من برای برنامه ام یک یوزی نیم و پسورد (به نام شماره شناسائی و نام عبور قرار دادهام )که شماره شناسائی یک حرف مثلاً برنامه نویس و نام عبور که کاربر وارد مینماید یک عدد باید باشد مثلاً 2007 حال اگر این حروف و عدد را وارد نماید باکلید بر روی button میتواند وارد برنامه شود
حال برای کنترل این مسئله دررویداد کلید یک حالت در نظر گرفتهام که اگر کابر چیزی در textboxوارد نکرد با زدن کلید پیغامی بیاید که کاربر اجازه ورود ندهد حال برای اینکه اگربه جای حروف عدد وارد کند تابع isnumeric را استفاده کردئهام اما نمیدانم برای کنترل اینکه فرد اگر به جای عدد حروف وارد کرد یعنی با جای حروف ، عددنوشت با چه تابعی این را کنترل کنم و به کاربر پیغام دهم از کسی سوال کردم گفت باید کد اسکی حروف را پیدا کنی و بگی اگر بین این حروف نبود یعنی عدد یا ستاره یا ویرگول یا ......بود یک پیغام بدهد اما من کدش را نتوانستم بنویسم از دوستان میخواهم دراین مورد مرا یاری دهند

ممنون

[asilverisis]

سلام
برای Textboxی که می خواهید حرف وارد نشود از این کد استفاده کنید


Private Sub TxtName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtName.KeyPress
If Char.IsLetter(e.KeyChar) Then
e.Handled = True
End If

End Sub



جایی هم که میخواهید عدد وارد نشود به جای IsLetter از IsNumber استفاده کنید.
موفق و موید.

[mehdiDER_5]

با سلام و تشکر از شما دوست گرامی

این کد شما فقط حروف بین a تا z صفحه کلید را غیر فعال میکند تا اینجا درست اما اگر کاربر به جای اینکه عدد تایپ کند ستاره ویرگول بعلاوه منها و خط فاصله تایپ کند با این کد نمیتوان آن را کنترل کرد راه حل چیست

منتظر جواب شما هستم

[marzban]

با سلام
چنین امکانی را در کامپوننت های ژانوس دیدم.
با این حال بدون کامپوننت های هم باید بشود انجام داد.
اگر کسی کمک کند من هم ممنون می شوم.
با تشکر مرزبان

[na3er-faraji]

دوست عریز فکر کنم تابع زیر کارتو راه بندازه

Public Function Ptext(KeyAscii) As Boolean
Dim str As String
Dim str1 As String
str = "123456789qwertyuiop[]';lkjhgfdsazxcvbnm,./\|QWERTYUIOP{}ASDFGHJKL:?><MNBVCXZ~!@#$%^&*()_+=-" & Chr(34)
If KeyAscii > 26 Or KeyAscii = 8 Then
If InStr(str, Chr(KeyAscii)) <> 0 Then
KeyAscii = 0
Ptext = False
Else
Ptext = True
End If
End If
End Function
اون چیزهایی که جلوی str نوشته شده فیلتر میشه . من این تابع رو واسه textbox هایی نوشتم که فقط حروف فارسی قبول کنه . یک کمی تغییرش بدی درست میشه .
واسه استفاده هم تو رویداد keypress کد اسکی رو بفرست به تابع بعد Handle v رو بر اساس خروجی set کن

[ice007]

با دستور زیر فقط اعداد 0 - 9 چک می شوند حالا خودت می دونی کجا و چجوری و به چه تعداد استفاده کنی


like #####