21-08-22, 11:30 AM
21-08-22, 12:40 PM
السلام عليكم هل يوجد حل ؟
21-08-22, 01:12 PM
أهلا اخى حسن
جرب استخدام هذا الكود و أخبرنى بالنتيجة .. مع ملاحظات أدرجها لك أسفل الكود
*- يفضل استخدام الاجراء DataGridView.CurrentCell
جرب استخدام هذا الكود و أخبرنى بالنتيجة .. مع ملاحظات أدرجها لك أسفل الكود
كود :
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