كيف أتحكم في النافيقيشن بار الخاص بالداتا جريد

اخي الكريم

اولا :

NavigationBar

مصمم لتسهيل العمل على المستخدم

اما ادا اردت من خلال الكود فيكون كتالي :

TableNameBindingSource.MoveNext
OR
TableNameBindingSource.MovePrev

هده الصيغة للكود

مثال :

Table1BindingSource.MoveNext

او

Table1BindingSource.MovePrev

أخي الكريم شكرا على ردك ولكن أنا أستخدم الداتا جريد بدون BindingSource

بحمد الله توصلت للحل وأنقله هنا للفائدة لعل أحدا يجد ضالته يوما ما هنا:

نفترض أنك تمتلك فورم عليه عدد 2 datagrid وعدد 1 VScrollBar ، كل ماعليك فعله هو كتابة الكود للأحداث التالية:

 
Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles  

Datagrid1.FirstDisplayedScrollingRowIndex = VScrollBar1.Value
datagrid2.FirstDisplayedScrollingRowIndex = VScrollBar1.Value 
End Sub

Private Sub datagrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UrlLister.CurrentCellChanged

VScrollBar1.Value = datagrid1.FirstDisplayedScrollingRowIndex
datagrid2.FirstDisplayedScrollingRowIndex = datagrid1.FirstDisplayedScrollingRowIndex
End Sub

Private Sub datagrid2_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UrlLister.CurrentCellChanged

ScrollBar1.Value = datagrid2.FirstDisplayedScrollingRowIndex
datagrid1.FirstDisplayedScrollingRowIndex = datagrid2.FirstDisplayedScrollingRowIndex
End Sub

استخدم الأسطر التالية داخل دالة لتحديد عدد الأسطر المخفية وإسناد القيمة العظمى للVScrollBar1

		   Dim i As Int16 = 0
			i = 0
			Do While i < datagrid1.Rows.Count
				If datagrid1.Rows(i).Displayed = False Then
					i += 1
				End If
				i += 1
			Loop
VScrollBar1.Maximum = i