[freeviwer]

بسم الله الرحمن الرحيم

الصورة توضح ما اريد



ارجو المساعدة

[freeviwer]

ارجوكم يا شباب هذا الكود متوقف علية برنامج كبير
ارجو المساعدة انا عارف ان الكود صعب شوى

انا حاولت وجبت الكود ده بس مش نافع

PHP كود :

If New List(Of String)(txtDataViwe.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(txtxxxxxxxxxx.Text) Then
            MessageBox.Show("موجود")
        Else

        End If 


[freeviwer]

شباب مساعدة ارجوكم

[3booody]

اخي لدي حل قد يفيدك

كود :

If TextBox1.Text.Contains("بسم") = True And TextBox2.Text.Contains("بسم") = True Then
            MsgBox("موجود")
        End If

[freeviwer]

لا ما نفع

[3booody]

freeviwer كتب :لا ما نفع

اخي انته كان قصدك اذا كلمة بسم موجوده بالنصين وكودي مابه أي خطأ؟؟

[freeviwer]

انا عايز اغير الكلمة عن طريق التيكست بوكس

ممكن تراجع الصورة ارجوك

[3booody]

اخي استطيع مساعدتك ان شاء الله لكن حيرتني ممكن تحدد مطلبك بالضبط وشكرآ

[الشاكي لله]

اعتقد هذا طلبك


سي شارب :

PHP كود :

int index = -1;
            List<string> lstboxItems = new List<string>();


            foreach (string Estr in listBox1.Items)
            {
                lstboxItems.Add(Estr);
            }

            foreach (string Istr in lstboxItems)
            {
               
                    if (textBox1.Text.Contains(Istr))
                    {
                        index = lstboxItems.IndexOf(Istr);
                    }
                
            }

            if (index == -1)
            {
                listBox1.SelectedIndex = -1;
            }
            else
            {
                listBox1.SelectedIndex = index;
            } 


فيجوال بيسك :

PHP كود :

Dim index As Integer = -1
Dim lstboxItems As New List(Of String)()


For Each Estr As String In listBox1.Items
    lstboxItems.Add(Estr)
Next

For Each Istr As String In lstboxItems

    If textBox1.Text.Contains(Istr) Then
        index = lstboxItems.IndexOf(Istr)

    End If
Next

If index = -1 Then
    listBox1.SelectedIndex = -1
Else
    listBox1.SelectedIndex = index
End If 


[kslawy]

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

كود :

Imports System.Text.RegularExpressions


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each itm As String In Me.ListBox1.Items
            Dim rgex As Match = Regex.Match(Me.TextBox1.Text, itm, RegexOptions.IgnoreCase)
            If rgex.Success = True Then
                MsgBox(itm & " موجودة ", MsgBoxStyle.Exclamation, "بحث")
            End If
        Next
    End Sub
End Class