+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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.Object, e As System.EventArgs) Handles Button1.Click
If ComboBox1.Items.Contains(TextBox1.Text) Then
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