[waelalmsry75]

(06-08-17, 12:18 PM)أبو نوره كتب : تحت امرك اخى

تفضل

PHP كود :

Dim s1 As String = "بسم"
Dim s2 As String = "الرحيم"

Dim a As Integer = TextBox1.SelectionStart 'مكان المؤشر'
Dim b As String = TextBox1.Text.Substring(a) 'النص بعد المؤشر'
Dim c As String = TextBox1.Text.Substring(0, a) 'النص قبل المؤشر'

If b.Trim.StartsWith(s1) Then
    TextBox1.SelectedText = " " & "نصا معينا" & " "
End If

If c.Trim.EndsWith(s2) Then
    TextBox1.SelectedText = " " & "نصا آخر" & " "
End If

If Not (b.Trim.StartsWith(s1) Or c.Trim.EndsWith(s2)) Then
    TextBox1.SelectedText = " " & "نصا ثالثا" & " "
End If 


بارك الله فيك أخي الكريم
لكني قصدت شيئا آخر
وهو

dim s1 as string = ...

لا أريد وضع نص مكان النقاط؛ لأنه كما تعلم النصوص متغيرة
إنما أريد وضع متغير يدل على أن مؤشر الماوس قبل النص في التيكست (أي قبل أول حرف) (لا أدري كيف يعبر عنه برمجيا، وليكن مثلا: TextSelectionStart)

كذلك
dim s2 as string = ...
أريد وضع متغير يدل على أن مؤشر الماوس بعد النص في التيكست (أعني بعد آخر حرف)
(وليكن مثلا مكان النقاط: TextSelectionEnd)

---------------
وجزاك الله خيرا