تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟
#1
السلام عليكم

ترون هذا الكود

PHP كود :
If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then
            TextBox1
.SelectionStart TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())
            
TextBox1.SelectionLength TextBox2.Text.Length
            TextBox1
.HideSelection False


        End 
If 


ده كود بيبحث عن كلمة فى textbox

لو لقيها بيعمل select عليها

انا عايز بدل ما يعمل select
يطلع رسالة بالكلمة الى عثر عليها

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

ويا ريت لو الكود ده كمان حد يطلعلى ناتج بحثة ده بيتاكد من نص موجود فى لستة arry
PHP كود :
If New List(Of String)(txtDataViwe.Text.Split(New String() {" "Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(txtxxxxxxxxxx.TextThen
            MessageBox
.Show("موجود")
        Else

        
End If 
الرد }}}}
تم الشكر بواسطة:
#2
كود :
If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then
            TextBox1.SelectionStart = TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())
            MsgBox(Mid(TextBox1.Text, TextBox1.SelectionStart + 1, TextBox2.Text.Length))
        End If
الرد }}}}
تم الشكر بواسطة:
#3
بالنسبة للمصفوفة اسهل طريقة هكذا
كود :
For i As Integer = 0 To UBound(str)
            If str(i).ToLower.Contains(TextBox1.Text.ToLower) = True Then
                MsgBox(str(i))
            End If
        Next
الرد }}}}
تم الشكر بواسطة:
#4
شكر على مرورك لاكن يوجد خطاء فى الجملة الاولى فى كلمة
str

PHP كود :
For As Integer 0 To UBound([color=#FF0000]Str[/color])
            
If Str(i).ToLower.Contains(TextBox1.Text.ToLower) = True Then
                MsgBox
(Str(i))
            
End If
        
Next 
الرد }}}}
تم الشكر بواسطة:
#5
لا اخي لايوجد خطأ str هي المصفوفه
كود :
Dim arr() As String = {"vb4arb", "member_3booody:", "abc", "Arr", "Str", "freeviwer"}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To UBound(arr)
            If arr(i).ToLower.Contains(TextBox1.Text) = True Then
                MsgBox("المصفوفه=" & arr(i) & vbNewLine & "رقم المصفوفه=" & i)
            End If
        Next
    End Sub
الرد }}}}
تم الشكر بواسطة:
#6
اشكرك جدا :o اخى 3booody
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤااااااااااااااال في الفيجوال بيسك Ahmed jroup 2 27 منذ 33 دقيقة مضت
آخر رد: Ahmed jroup
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 110 17-10-17, 12:09 AM
آخر رد: e-coder
  [VB.NET] دمج النصوص العربية Concate? khaled_35 2 38 16-10-17, 02:23 AM
آخر رد: khaled_35
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 36 13-10-17, 06:39 PM
آخر رد: e-coder
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 383 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 6 900 11-10-17, 08:48 PM
آخر رد: رمضان محمد
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 60 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 132 08-10-17, 11:30 PM
آخر رد: dubai.eig
  [VB.NET] اريد التعديل علي المديول التالي محمد اسماعيل 2 65 08-10-17, 07:37 PM
آخر رد: محمد اسماعيل
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 55 04-10-17, 11:34 PM
آخر رد: ahmed kamal

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


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