+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : احتاج مساعدة في برمجة محرر html (/showthread.php?tid=9997)
احتاج مساعدة في برمجة محرر html - abidin - 10-08-13
السلام عليكم
عيد مبارك
اخواني عندم اقوم بتنفيذ البرنامج واكتب كود فيه يعود المأشر الى الكلمة الاولى
هذا هو الكود الذي استخدمته
PHP كود :
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
Dim rx As New Regex("<.+>")
For Each m As Match In rx.Matches(RichTextBox1.Text)
RichTextBox1.SelectionStart = m.Index
RichTextBox1.SelectionLength = m.Value.Length
RichTextBox1.SelectionColor = Color.Blue
Next
rx = New Regex(""".+""")
For Each m As Match In rx.Matches(RichTextBox1.Text)
RichTextBox1.SelectionStart = m.Index
RichTextBox1.SelectionLength = m.Value.Length
RichTextBox1.SelectionColor = Color.DarkViolet
Next
End Sub
End Class
احتاج مساعدة في برمجة محرر html - abidin - 13-08-13
وين الردود
احتاج مساعدة في برمجة محرر html - السكر المغرور - 13-08-13
الحل انك تاخذ موقع مؤشر الماوس بين الكلمات قبل تنفيذ الكود ،، ثم بعد تنفذ الكود يعود لوضعه الطبيعي
بالنسبه للكود ممكن تجرب هذا الكود و لكن لم اجربه و لكن من خلال قرائتي له فعمله سيكون منطقي ،، هذا هو الكود
هذا يجلب لك موقع المؤشر الحالي :
PHP كود :
rtb.CaretPosition
هذا يستقبل لك الموقع التحديد من اين يبدأ :
PHP كود :
rtb.SelectionStart
rtb.Selection.Select()
____________________________________كود اخر
PHP كود :
Dim moveTo As TextPointer = myRichTextBox.CaretPosition.GetNextInsertionPosition(LogicalDirection.Forward)
If moveTo IsNot Nothing Then
myRichTextBox.CaretPosition = moveTo
End If