+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اقتصاص ما بعد الكلمة في textbox (/showthread.php?tid=578)
اقتصاص ما بعد الكلمة في textbox - Mr.ILI - 17-10-13
السلام عليكم
السؤال هو كيفية اقتصاص كلمة معينة بعد كلمة 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
RE: اقتصاص ما بعد الكلمة في textbox - ناجي إبراهيم - 18-10-13
السلام عليكم...
يمكنك اختصار الكود كالتالي (في الحدث 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