06-08-17, 08:03 PM
(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
ربنا يبارك فيك أخي أبو نوره.. ونفع الله بعلمك
سأجربه وأخبرك بالنتيجة
جزاك الله خيرا
