السلام عليكم ورحمة الله وبركاته
عندي برنامج يحتوي على RichTextBox وأريد عمل ترقيم للأسطر
وضعت ListBox بجانب RichTextBox تحتوي على أرقام الأسطر
For i = 1 To 100 Me.ListBox1.Items.Add(i) Next
ووضعت في الحدث RichTextBox1_SelectionChanged الكود التالي
Dim LineNo As Integer 'رقم السطر الذي يقف عليه المؤشر Me.RichTextBox1.ScrollToCaret() 'رقم السطر الذي يقف عليه المؤشر LineNo = Me.RichTextBox1.GetLineFromCharIndex(Me.RichTextBox1.SelectionStart) Me.ListBox1.SelectedIndex = LineNo Me.ListBox1.SetSelected(LineNo, False)
والملف موجود في المرفقات
الآن حركة الأرقام في ListBox توازي حركة الأسطر في RichTextBox عند استخدام الكيبورد سواء بالضغط على زر Enter أو استخدام الأسهم في التنقل إلى أعلى وأسفل
بينما المشكلة هي أنه عند تحريك الـ ScrollBar التابع لـ RichTextBox فإن الأرقام في ListBox لا تتحرك
أحتاج طريقة للتعامل مع الـ ScrollBar برمجياً
ولكم جزيل الشكر