منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمه الله وبركاته
كيفبه بحث عن كلمه او حرف في تكست بوكس وحذفها أو التعديل عليها
وسؤال اخر ما هو اسم اداه عرض البوم صور في الديف اكسبريس وكيفيه برمجتها
ارجوا الرد علي السؤالين والسؤال الاول بالتحديد

عليكم السلام ورحمة الله وبركاته

هذا كود البحث عن كلمة أو نص محدد داخل التسكت بوكس

كود :

Private Sub FindAll(ByVal substring As String)

    Dim selectionLength As Integer = substring.Length

    Dim index As Integer = -1

    Do

        index = Me.TextBox1.Text.IndexOf(substring, index + 1)

        If index <> -1 Then

            Me.TextBox1.SelectionStart = index

            Me.TextBox1.SelectionLength = selectionLength

            If MessageBox.Show("Find next?", _

                               "Continue", _

                               MessageBoxButtons.OKCancel, _

                               MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then

                Exit Do

            End If

        End If

    Loop Until index = -1

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حسن الجلب

aldery