[أبو نوره]

تحت امرك اخى

تفضل

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