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

السلام عليكم

السؤال هو كيفية اقتصاص كلمة معينة بعد كلمة Hi فمثلا عند كتابة Hi Mr.IlI في التكس بوكس يقوم باظهار مسج فيها Mr.IlI وذلك بعد الضغط على enter

تم الحل ... لكن الحل مخبص شوي لكن زابط استخدمت Repalce و Find

PHP كود :

Dim a As Int16
        Dim stt As String = RichTextBox1.Text



        Dim boxes As New StringBuilder(stt)
        If RichTextBox1.Text.Contains("HI ") Then
            a = RichTextBox1.Find("HI ")
            RichTextBox1.Select(a, 2)
            Dim word1 As New StringBuilder(RichTextBox1.SelectedText)
            boxes.Replace(RichTextBox1.SelectedText, "")

            RichTextBox1.Text = boxes.ToString()
            TextBox1.AppendText(RichTextBox1.Text)
            RichTextBox1.Text = ""
        End If
    End Sub 

السلام عليكم...

يمكنك اختصار الكود كالتالي (في الحدث KeyDown لمربع النص):

كود :

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

    Dim MyWord As String = "Hi, "

    Dim MyStr As String

    If e.KeyCode = Keys.Enter Then   ' إذا تم الضغط على مفتاح إنتر

        If TextBox1.Text.Contains(MyWord) Then

            MyStr = TextBox1.Text.Substring(TextBox1.Text.IndexOf(MyWord, 1, MyWord.Length) + MyWord.Length)

            MsgBox(MyStr)

        Else

            MsgBox("'" & MyWord.Trim() & "' is NOT found")

        End If

    End If

End Sub

نرجو الاستفادة و السلام.

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

Mr.ILI

ناجي إبراهيم