تقييم الموضوع :
  • 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
بارك الله فيكم وشكر لكم جميعا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الخطاء فى هذا الكود new_programer 3 30 منذ 3 دقيقة مضت
آخر رد: حريف برمجة
  [سؤال] البحث في الاكسس اسامه الهرماوي 1 31 اليوم, 01:17 AM
آخر رد: عبد العزيز البسكري
  [سؤال] طريقة البحث ابو يوسف النواوي 2 2 92 أمس, 09:08 PM
آخر رد: elgokr
  [VB.NET] تعديل بسيط في الكود :) مجهول 5 140 أمس, 08:18 PM
آخر رد: elgokr
  [سؤال] كيف يتم البحث عن شاشة بالفعل تعمل وتفعيلها لتصبح فوق الجميع dametucorazon 3 86 10-12-18, 05:47 AM
آخر رد: rmnr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 83 08-12-18, 08:36 PM
آخر رد: masry4u
Photo اين الخطأ في الكود لو سمحتم samira20 6 137 01-12-18, 01:55 PM
آخر رد: asemshahen5
Photo اين الخطأ في الكود لو سمحتم samira20 0 49 30-11-18, 11:08 AM
آخر رد: samira20
  البحث داخل الجريد mmali127 4 117 27-11-18, 09:32 AM
آخر رد: mmali127
  [VB.NET] بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل shoma79 3 120 27-11-18, 05:25 AM
آخر رد: shoma79

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


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