المشاركات : 340
المواضيع 119
الإنتساب : Jul 2013
السمعة :
6
الشكر: 599
تم شكره 466 مرات في 66 مشاركات
ما هو الكود لى هذه العمليات
فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا
فحص اذا كانت التكست بوكس تحتولى على حروف صغيره او لا
فحص اذا كانت التكست بوكس تحتولى على حروف كبيره و صغيره او لا
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
نعم، استعمل الكود التالي:
كود :
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
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ