[waelalmsry75]

(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 


ربنا يبارك فيك أخي أبو نوره.. ونفع الله بعلمك
سأجربه وأخبرك بالنتيجة
جزاك الله خيرا