09-01-22, 11:16 PM
السلام عليكم ورحمة الله
إخواني الاعزاء أبحث عن كود فيما يخص موضع مؤشر الماوس فوجدت هاذا الكود بالصدفة في برمجة vb.net
فهل من الممكن تحويله إلى Vb6
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
إخواني الاعزاء أبحث عن كود فيما يخص موضع مؤشر الماوس فوجدت هاذا الكود بالصدفة في برمجة vb.net
فهل من الممكن تحويله إلى Vb6
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