كيف اعدل على الكود ليبحث عن نتيجة اخرى(البحث في مربع نص)

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اعدل على الكود ليبحث عن نتيجة اخرى(البحث في مربع نص)
#1
PHP كود :
       Me.TextBox2.Focus()
 
       Me.TextBox2.SelectionStart TextBox2.Text.IndexOf(TextBox1.Text)
 
       Me.TextBox2.SelectionLength TextBox1.TextLength 

هذا كود يبحث عن كلمة مكتوبة بمربع النص الاول في مربع النص الاخر.
السؤال كيف لو وجد اكثر من نتيجة ينتقل لها عند النقر مرة اخرى على الزر.
Heart
الرد
تم الشكر بواسطة:
#2
حاول تستخدم RichTextBox لأن إمكانياته أفضل من التكست بوكس
الرد
تم الشكر بواسطة: سعود
#3
السلام عليكم اخوي بطيك كود سهل جدا احد الاخوى الافاضل ساعدتني في هذا الموضوع :

هذا الكود بالكامل

كود :
Imports System.Data.OleDb
Public Class Ar_Fr8
   Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Data.accdb;Persist Security Info=False;")
   Dim ds As New DataSet
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If RadioButton1.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_Carno = '" & TextBox1.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       ElseIf RadioButton2.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_No = '" & TextBox3.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       ElseIf RadioButton3.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_Date = '" & TextBox2.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       ElseIf RadioButton4.Checked = True Then
           Dim da As New OleDbDataAdapter("Select * from report where Re_Warrenty = '" & TextBox4.Text & "'", cn)
           da.Fill(ds, "report")
           DataGridView1.DataSource = ds.Tables("report")
       End If
       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
   End Sub

   Private Sub Ar_Fr8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       cn.Open()
   End Sub

   Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
       If RadioButton1.Checked = True Then
           TextBox1.Enabled = True
       ElseIf RadioButton1.Checked = False Then
           TextBox1.Enabled = False
       End If
   End Sub

   Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
       If RadioButton3.Checked = True Then
           TextBox2.Enabled = True
       ElseIf RadioButton3.Checked = False Then
           TextBox2.Enabled = False
       End If
   End Sub

   Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
       If RadioButton2.Checked = True Then
           TextBox3.Enabled = True
       ElseIf RadioButton2.Checked = False Then
           TextBox3.Enabled = False
       End If
   End Sub

   Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
       If RadioButton4.Checked = True Then
           TextBox4.Enabled = True
       ElseIf RadioButton4.Checked = False Then
           TextBox4.Enabled = False
       End If
   End Sub
End Class
الصورة
في المرفقات


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: سعود
#4
جرب هذا الكود مع RitchTextBox

لكن خلي التصاريح بالمتغيرات  فوق لا تكون في الحدث كلك حتى لا ترجع القيمة نفسها

PHP كود :
Dim srchterm As String "test"
Dim index As Int32 0
While index <> -1
    index 
RichTextBox1.Find(srchtermindexRichTextBoxFinds.None)
    If index <> -1 Then
        
' do your own thing here.
        RichTextBox1.SelectionBackColor = Color.Orange
        index += 1
    End If
End While
RichTextBox1.DeselectAll() 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: سعود
#5
بارك الله فيكم وشكر لكم جميعا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] محتاج تعديل بسيط على الكود dubai.eig 5 65 17-08-18, 03:01 AM
آخر رد: elgokr
  [VB.NET] تعديل علي الكود دموع الوطن 10 169 08-08-18, 09:19 AM
آخر رد: elgokr
  [سؤال] كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql essawq 3 98 04-08-18, 04:01 PM
آخر رد: aljzazy
  البحث في الداتاقريدفيو المتألق9 2 88 31-07-18, 07:40 AM
آخر رد: GameOver
  [VB.NET] كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس larbihamri 9 220 29-07-18, 07:18 PM
آخر رد: larbihamri
  [VB.NET] البحث بالاجراءات المخزنة محمد اسماعيل 7 157 12-07-18, 09:46 PM
آخر رد: ابراهيم ايبو
  [VB.NET] طريقة طباعة نتيجة البحث في الداتاريبورت larbihamri 3 182 11-07-18, 05:56 PM
آخر رد: ghaner joseph
  [سؤال] تنفيذ الكود اللى عليه Checked ابو روضة 11 233 10-07-18, 06:06 PM
آخر رد: elgokr
  البحث بقاعدة البيانات سيكول سيرفر محمد اسماعيل 7 126 07-07-18, 01:24 PM
آخر رد: محمد اسماعيل
  [VB.NET] ملأ الكومبوبكس من نتائج البحث في قاعدة البيانات larbihamri 3 107 06-07-18, 06:07 PM
آخر رد: elgokr

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


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