[Mr.ILI]

السلام عليكم

السؤال هو كيفية اقتصاص كلمة معينة بعد كلمة 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

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