منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التأكد من نص بداخل ComboBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التأكد من نص بداخل ComboBox (/showthread.php?tid=39321)



التأكد من نص بداخل ComboBox - aftfm - 16-08-21

السلام عليكم ورحمة الله وبركاته

كيف اتأكد من نص أو جزء من النص موجود بداخل اسطر اداة الكومبوبوكس


RE: التأكد من نص بداخل ComboBox - asemshahen5 - 16-08-21

PHP كود :
   Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        If ComboBox1
.Items.Contains(TextBox1.TextThen
            MsgBox
("True")
 
       Else
            MsgBox
("False")
 
       End If
 
   End Sub 



RE: التأكد من نص بداخل ComboBox - aftfm - 16-08-21

جزاك الله خير اخي الكريم

لكن المطلوب جزء من السجل المكتوب على الكومبو

مثلا
قلم رصاص
قلم جاف
قلم حبر
مرسام

المطلوب في حالة تم اختيرا اي سطر من المكتوب فيه (قلم) تظهر رسالة نعم

أي كان هذا القلم


RE: التأكد من نص بداخل ComboBox - ابراهيم ايبو - 17-08-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
 من محاسن الصدف اني البارحة كنت اقرأ عن كلمة Like 
وقد وظفتها الان لك في ماتريد ان شاء الله فقط اريد ان اشير الى الاشارة نجمة فهي تعبر عن عدد غير معين من الحروف وقد وضعتها قبل وبعد حتى يمكن جلب اول كلمة من الـ Item او الكلمة الثانية 
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim KK As String = ""
       For i As Integer = 0 To ComboBox1.Items.Count - 1
           If ComboBox1.Items(i) Like "*" & ComboBox1.Text & "*" Then
               KK = "موجود"
               Exit For
           Else
               KK = "غير موجود"
           End If
       Next
       MsgBox(KK)
   End Sub
لكن اخي لهذا الكود بعض العيوب وهو لو كتبت  اي حرف موجود في اي item سيعطيك موجود او حرفين لهما نفس التسلسل او ثلاثة او حتى فراغ واحد لانك تبحث بجزء والجزء يبدأ من حرف وانت صاعد لذلك يفضل كتابة كلمة على الاقل