فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا - أسامة - 01-02-14
ما هو الكود لى هذه العمليات
فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا
فحص اذا كانت التكست بوكس تحتولى على حروف صغيره او لا
فحص اذا كانت التكست بوكس تحتولى على حروف كبيره و صغيره او لا
RE: فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا - ربيع - 02-02-14
نحمده ونصلي على رسوله الكريم
كود :
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
RE: فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا - أسامة - 02-02-14
(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
RE: فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا - ناجي إبراهيم - 02-02-14
السلام عليكم...
نعم، استعمل الكود التالي:
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CaseFlag As Integer = 0
If TextBox1.Text Like "*[a-z]*" Then
CaseFlag = 1
End If
If TextBox1.Text Like "*[A-Z]*" Then
CaseFlag += 2
End If
Select Case CaseFlag
Case 0
MsgBox("لا توجد حروف إنجليزية")
Case 1
MsgBox("حروف صغيرة فقط")
Case 2
MsgBox("حروف كبيرة فقط")
Case 3
MsgBox("حروف صغيرة و كبيرة")
End Select
End Sub
نرجو الاستفادة و السلام.
RE: فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا - أسامة - 02-02-14
(02-02-14, 07:31 PM)ناجي إبراهيم كتب : السلام عليكم...
نعم، استعمل الكود التالي:
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CaseFlag As Integer = 0
If TextBox1.Text Like "*[a-z]*" Then
CaseFlag = 1
End If
If TextBox1.Text Like "*[A-Z]*" Then
CaseFlag += 2
End If
Select Case CaseFlag
Case 0
MsgBox("لا توجد حروف إنجليزية")
Case 1
MsgBox("حروف صغيرة فقط")
Case 2
MsgBox("حروف كبيرة فقط")
Case 3
MsgBox("حروف صغيرة و كبيرة")
End Select
End Sub
نرجو الاستفادة و السلام.
شكرآ جزيلآ اخى
|