تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] سؤال
#1
السلام عليكم ورحمة الله
إخواني الاعزاء أبحث عن كود  فيما يخص موضع مؤشر الماوس فوجدت هاذا الكود بالصدفة في برمجة vb.net
فهل من الممكن تحويله إلى Vb6 
 Dim a As Integer TextBox1.SelectionStart 'مكان المؤشر'
Dim b As String TextBox1.Text.Substring(a'النص بعد المؤشر'
Dim c As String TextBox1.Text.Substring(0a'النص قبل المؤشر'

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 
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم