25-07-13, 03:06 PM
بسم الله الرحمن الرحيم
الصورة توضح ما اريد
ارجو المساعدة
الصورة توضح ما اريد
ارجو المساعدة
25-07-13, 04:33 PM
ارجوكم يا شباب هذا الكود متوقف علية برنامج كبير
ارجو المساعدة انا عارف ان الكود صعب شوى
انا حاولت وجبت الكود ده بس مش نافع
ارجو المساعدة انا عارف ان الكود صعب شوى
انا حاولت وجبت الكود ده بس مش نافع
PHP كود :
If New List(Of String)(txtDataViwe.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(txtxxxxxxxxxx.Text) Then
MessageBox.Show("موجود")
Else
End If
25-07-13, 08:40 PM
شباب مساعدة ارجوكم
25-07-13, 09:12 PM
اخي لدي حل قد يفيدك
كود :
If TextBox1.Text.Contains("بسم") = True And TextBox2.Text.Contains("بسم") = True Then
MsgBox("موجود")
End If25-07-13, 09:33 PM
لا ما نفع 
25-07-13, 10:11 PM
freeviwer كتب :لا ما نفعاخي انته كان قصدك اذا كلمة بسم موجوده بالنصين وكودي مابه أي خطأ؟؟
25-07-13, 10:19 PM
انا عايز اغير الكلمة عن طريق التيكست بوكس
ممكن تراجع الصورة ارجوك
ممكن تراجع الصورة ارجوك
25-07-13, 11:56 PM
اخي استطيع مساعدتك ان شاء الله لكن حيرتني ممكن تحدد مطلبك بالضبط وشكرآ
26-07-13, 12:05 AM
اعتقد هذا طلبك
سي شارب :
فيجوال بيسك :
سي شارب :
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
26-07-13, 04:01 PM
السلام عليكم ورحمة الله وبركاته
كود :
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