(06-08-17, 07:27 AM)أبو نوره كتب : مرحبا اخى

تفضل

PHP كود :

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("بسم") Then
    TextBox1.SelectedText = " " & "نصا معينا" & " "
End If

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

If Not (b.Trim.StartsWith("بسم") Or c.Trim.EndsWith("الرحيم")) Then
    TextBox1.SelectedText = " " & "نصا ثالثا" & " "
End If 


(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 


(06-08-17, 07:16 PM)أبو نوره كتب : تحت امرك اخى مفيش مشكله

تفضل

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    MsgBox(GetCartPositionState(TextBox1, "بسم", "الرحيم").ToString)

End Sub

Function GetCartPositionState(mTextBox As TextBox, AfterText As String, BeforeText As String) As CaretPositionState
    Dim CaretPosition As Integer = mTextBox.SelectionStart 'مكان المؤشر'
    Dim AfterCaretPosText As String = mTextBox.Text.Substring(CaretPosition) 'النص بعد المؤشر'
    Dim BeforeCaretPosText As String = mTextBox.Text.Substring(0, CaretPosition) 'النص قبل المؤشر'

    If AfterCaretPosText.Trim.StartsWith(AfterText) Then
        Return CaretPositionState.Before
    End If

    If BeforeCaretPosText.Trim.EndsWith(BeforeText) Then
        Return CaretPositionState.After
    End If

    Return CaretPositionState.Between
End Function

Enum CaretPositionState
    After 'بعد'
    Before 'قبل'
    Between 'بين'
End Enum