منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] التحكم في scroll الخاص بالجريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التحكم في scroll الخاص بالجريد فيو (/showthread.php?tid=42218)

التحكم في scroll الخاص بالجريد فيو - حسن الجلب - 21-08-22

السلام عليكم ورحمه الله وبركاته كيفيه التحكم في scroll الخاص بالجريد فيو عن طريق الكود سواء الأفقي أو الرأسي!

RE: التحكم في scroll الخاص بالجريد فيو - حسن الجلب - 21-08-22

السلام عليكم هل يوجد حل ؟

RE: التحكم في scroll الخاص بالجريد فيو - DR.YASER - 21-08-22

أهلا اخى حسن
جرب استخدام هذا الكود و أخبرنى بالنتيجة .. مع ملاحظات أدرجها لك أسفل الكود

كود :
Option Strict On

Public Class Form1

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
   'Fill grid with dummy data
   Dim dtb As New DataTable("MyDataTable")
   For i As Integer = 0 To 99
     dtb.Columns.Add("C" & i.ToString)
   Next i
   For j As Integer = 0 To 99
     Dim s(99) As String
     For i As Integer = 0 To 99
       s(i) = ((i + j) Mod 100).ToString
     Next i
     dtb.Rows.Add(s)
   Next j
   DataGridView1.DataSource = dtb
 End Sub

 Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll
   'Use the DataGridView.FirstDisplayedCell property to scroll the display
   DataGridView1.FirstDisplayedCell = DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(e.NewValue)
 End Sub
End Class

*- يفضل استخدام الاجراء DataGridView.CurrentCell