[foxweb]

جزاك الله خير
لكن الكود لايعمل بالشكل المطلوب وقمت بتجريب هذه الداله IsLetterOrDigit  قبل كتابه الموضوع
لو انتبهت للداله فيها or يعني او رقم او حرف فهي ترجع لك true اذا المستخدم ادخل فقط حروف راح تبقى النتيجه true
انا هنا اريده يدخل خليط من الاحرف والارقام و الرموز لانها كلمه مرور وكل ماكانت الكلمه معقده كان صعب التخمين عليها
ايضا الكود قمت ارفاقه اخي الحبيب فيه مشكلة يتوجب استخدام and
لانه لو بتجرب الكود وتضع هكذا @@@@ بداخل textbox راح يقبله منك ويطبع ok وهذا يعتبر خطا
المفروض يصبح الشرط هكذا

كود :

If (checkLetter(txtValue.Text) And checkNoLetterOrDigit(txtValue.Text)) Then
           MsgBox("Ok")
       End If

استفدت من جمله نفي الشرط في هذا الكود

كود :

Not Char.IsLetterOrDigit(z(index))

للتاكد من ادخال رموز  ... بشكرك كثيرا الان الكود يعمل معي 100 %

كود :

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If (checkLetter(txtValue.Text)) Then
           MsgBox("Ok")
       End If

       

   End Sub
   Private Function checkLetter(z As String) As Boolean
       Dim x As Boolean = False
       Dim y As Boolean = False
       Dim p As Boolean = False

       For index = 0 To z.Length - 1
           If (Char.IsNumber(z(index))) Then
               x = True
           ElseIf (Char.IsLetter(z(index))) Then
               y = True
           ElseIf (Not Char.IsLetterOrDigit(z(index))) Then
               p = True
           End If
         
       Next ' end for
       If (x And y And p) Then
           Return True
       End If

       Return False
   End Function


End Class

لكن مازال الكود كما هو يمر بالعديد من العمليات
فهل ممكن تحسين الكود اكثر من ناحيه الاداء
تحيتي للجميع