تقييم الموضوع :
  • 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] ممكن تعديل الكود التالي D-Z 0 21 أمس, 06:34 PM
آخر رد: D-Z
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 78 20-09-17, 04:00 PM
آخر رد: alsouf
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 803 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 113 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 193 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 51 11-09-17, 12:58 PM
آخر رد: 0theghost0
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 0 59 09-09-17, 10:44 PM
آخر رد: aliomar333
  مساعدة في كود البحث أبووسم 9 230 08-09-17, 09:44 PM
آخر رد: أبووسم
  [VB.NET] تصحيح الكود لو سمحتم 0theghost0 4 127 30-08-17, 12:06 PM
آخر رد: 0theghost0
  [سؤال] مشكلة مغلبانى جدا من فترة مع هذا الكود Do While ابو روضة 14 451 19-08-17, 01:31 AM
آخر رد: ابو روضة

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


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