[vb6.0] سؤال - نسخة قابلة للطباعة

[vb6.0] سؤال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (https://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (https://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (https://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] سؤال (/showthread.php?tid=40419)

سؤال - Abdellah - 09-01-22

السلام عليكم ورحمة الله
إخواني الاعزاء أبحث عن كود فيما يخص موضع مؤشر الماوس فوجدت هاذا الكود بالصدفة في برمجة 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