تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا
#1
ما هو الكود لى هذه العمليات
فحص اذا كانت التكست بوكس تحتولى على حروف كبيره او لا
فحص اذا كانت التكست بوكس تحتولى على حروف صغيره او لا
فحص اذا كانت التكست بوكس تحتولى على حروف كبيره و صغيره او لا
الرد
تم الشكر بواسطة:
#2
نحمده ونصلي على رسوله الكريم

كود :
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
الرد
تم الشكر بواسطة: kslawy , أسامة , Sajad , prj
#3
(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
الرد
تم الشكر بواسطة:
#4
السلام عليكم...

نعم، استعمل الكود التالي:

كود :
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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: Sajad , kslawy , أسامة , Mohamad Anan , ربيع , prj
#5
(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

نرجو الاستفادة و السلام.

شكرآ جزيلآ اخى
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تفريق الحروف فى التكست بوكس saidhamed 3 376 06-04-22, 06:45 PM
آخر رد: saidhamed
  كيف أربط الموبايل بالفيجوال بيسك وقراءة الباركود بالكاميرا ونقله للتكست بوكس جيولوجي مبتدئ 2 578 23-03-22, 03:32 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] طريقة جعل التكست بوكس يغير اللون لتنبيه المستخدم محمد بوقزاحة 2 508 30-01-22, 02:18 PM
آخر رد: محمد بوقزاحة
  [VB.NET] كيف اجعل داتا جريد فيو ينتقل مع تاكست بوكس bilgacim 1 505 28-01-22, 04:30 AM
آخر رد: سعود
  [VB.NET] اختيار نص معين من تكست بوكس ميدو الفنان 2 943 28-01-22, 04:26 AM
آخر رد: ميدو الفنان
  [VB.NET] تكست بوكس EMADSS 2 447 21-01-22, 03:13 PM
آخر رد: ابراهيم ايبو
  [سؤال] كيفيه تعطيل خاصيه اللصق فقط في تكست بوكس حسن الجلب 1 430 14-01-22, 11:50 PM
آخر رد: معاند الحظ
  ليست بوكس remonmary 1 447 24-12-21, 11:53 PM
آخر رد: ابو انس
  تعريب عناصر جدول في الريتش بوكس _ مرفق _( كود _ مثال _صورة ) zinom 5 698 28-11-21, 09:52 PM
آخر رد: zinom
  كيفية اضافة الصوت مع ظهور المسج بوكس ابو نور الهدى 1 564 28-11-21, 12:52 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم