تقييم الموضوع :
  • 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() 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: سعود
#5
بارك الله فيكم وشكر لكم جميعا
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 71 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  البحث بجزء من التاريخ أسامة السالمي 6 93 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 321 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 50 12-02-17, 08:06 PM
آخر رد: مساعدة
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 84 03-02-17, 07:09 PM
آخر رد: مساعدة
  [VB.NET] البحث التلقائي tifagreet 1 75 30-01-17, 06:07 PM
آخر رد: مساعدة
  كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض السيد الجوهري 5 90 28-01-17, 02:25 AM
آخر رد: السيد الجوهري
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 61 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  البحث قى listbox Mohamed20 1 85 27-01-17, 07:12 AM
آخر رد: مساعدة
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 98 25-01-17, 03:02 PM
آخر رد: مساعدة

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


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