+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] النص في اداة RichTextBox (/showthread.php?tid=17141)
النص في اداة RichTextBox - soper - 03-09-16
السلام عليكم
انا اطلب طلب صعب في النص في اداة RichTextBox وهو :
مثلا في الفيجوال بيسك في صفحة الكود (محرر الكود) يكتب اشياء كثير ياتي هنا الطلب
انا كتبت في اداة RichTextBox التالي:
احمد
محمد
محمود
الي اخره
وكتبت كود هكذا في صفحة الكود طلبت من البتون التالي
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RichTextBox1.Text = "محمد" Then
MsgBox("اهلا")
End If
End Sub
عمر الكود ما هيتنفذ لسبب واحد اني انا قلت له لحظ معي RichTextBox1.Text = "محمد"
شيفين طلبت ايه محمد فقط وفي الريكتش بوكس (صندوق النص ) التالي :
احمد
محمد
محمود
محمد
محمود
فهو لم يلقي محمد فقط بل لقي احمد ومحمد الخ
هو دي الطلب انا عايز لوفي مليون كلمة وهو جاب ضغط علي الزر يعمل كذ
كذ هنا في المثال سيخرج رسالة مكتوب به اهلا
اتمنا يكون السوال وصل
RE: النص في اداة RichTextBox - Ahmed Gandos - 03-09-16
تفضل اخي الكريم ...
كود :
Dim Index As Integer
Index = RichTextBox1.Find("محمد")
If Index <> -1 Then
MessageBox.Show("اهلا")
End IfRE: النص في اداة RichTextBox - soper - 03-09-16
كودك رائع يعمل بشكل جيد
سوال اخر مثلا انا كتبت في الركتش بوكس (صندوق النص)
مثلا : Button1.text = "محمد"
واول ما اضغط علي البتون يغيرو ولو غيرت الي بين علامة "هنا الكلامة"
برذو يتغير اول ما اضغط الذر
RE: النص في اداة RichTextBox - soper - 06-09-16
وجدت الحل وهو التالي :
PHP كود :
If New System.Text.RegularExpressions.Regex("text<.+?>", System.Text.RegularExpressions.RegexOptions.IgnoreCase).IsMatch(RichTextBox1.Text) = False Then Exit Sub
Dim b As String = RichTextBox1.Text.Split("<")(1).Split(">")(0)
Button1.Text = b