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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو كود البحث عن تاريخ باستخدام datetimepicker فى sql server كود vb.net vb2010 2 40 منذ 4 ساعة مضت
آخر رد: ابو يوسف النواوي 2
  ماهو الكود المُستخدم في تشغيل البرنامج برقم الهارديسك؟ Hazem1 9 186 21-10-18, 01:56 PM
آخر رد: عبد العزيز البسكري
  [سؤال] ارجو المساعدة في تصحيح هذا الكود لزر الحفظ gharib 0 55 19-10-18, 12:39 PM
آخر رد: gharib
Smile ممكن شرح هدا الكود الزوي 1 52 18-10-18, 02:17 AM
آخر رد: عبد العزيز البسكري
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 88 16-10-18, 09:18 PM
آخر رد: WAEL ABED
  استفسار عن البحث في مجلد في جهاز أخر بالشبكة المحلية أبووسم 4 123 13-10-18, 04:35 AM
آخر رد: حريف برمجة
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 93 11-10-18, 03:30 PM
آخر رد: Simo1991
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 219 06-10-18, 02:07 AM
آخر رد: ابو روضة
  توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط Hazem1 5 112 06-10-18, 02:01 AM
آخر رد: rnmr
  ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة Hazem1 26 506 04-10-18, 09:47 PM
آخر رد: princelovelorn

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


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