[أسامة]

(02-02-14, 02:38 AM)ربيع كتب : نحمده ونصلي على رسوله الكريم

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    MessageBox.Show(IIf(New System.Text.RegularExpressions.Regex("[A-Z]").Match(TextBox1.Text).Success, "يحتوي على حرف كبير", "لا يحتوي على حرف كبير"))
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    MessageBox.Show(IIf(New System.Text.RegularExpressions.Regex("[a-z]").Match(TextBox1.Text).Success, "يحتوي على حرف صغير", "لا يحتوي على حرف صغير"))
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    MessageBox.Show(IIf(New System.Text.RegularExpressions.Regex("[A-Z][a-z]").Match(TextBox1.Text).Success, "يحتوي على حرف صغير وكبير", "لا يحتوي على حرف صغير وكبير"))
End Sub

شكرآ اخى
لاكن يوجد مشكله فى هذا الكود

كود :

MessageBox.Show(IIf(New System.Text.RegularExpressions.Regex("[A-Z][a-z]").Match(TextBox1.Text).Success, "يحتوي على حرف صغير وكبير", "لا يحتوي على حرف صغير وكبير"))

المشكله هى لازم اكتب الحرف الكبير و بعده الصغير لا ينفع العكس
هذا الكود مماثل له

كود :

If TextBox1.Text Like "[A-Z][a-z]" Then
            MessageBox.Show("يحتوي على حرف صغير وكبير")
        Else
            MessageBox.Show("لا يحتوي على حرف صغير وكبير")
        End If

ممكن اجعل الكود مثل هذا

كود :

If TextBox1.Text Like "[A-Z][a-z]" Or TextBox1.Text Like "[a-z][A-Z]" Then
            MessageBox.Show("يحتوي على حرف صغير وكبير")
        Else
            MessageBox.Show("لا يحتوي على حرف صغير وكبير")
        End If

لاكن يوجد مشكله برده لو اضف حروف مثلآ sAs
هل توجد طريقه اذا جاء الحرف الف الاخر فى المنتصف او اتكرر AsA sAs من غير تزويد اسطر الكود فى كل مره

كود :

If TextBox1.Text Like "[A-Z][a-z]" Or TextBox1.Text Like "[a-z][A-Z]" Or TextBox1.Text Like "[A-Z][a-z][A-Z]" Then
            MessageBox.Show("يحتوي على حرف صغير وكبير")
        Else
            MessageBox.Show("لا يحتوي على حرف صغير وكبير")
        End If