برمجة ازرار مشروع

اكواد برمجية




…زر السجل الأول

Private Sub Butfst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butfst.Click

Me.BindingContext (DataSet11, "books").Position = 0
End Sub


زر السجل التالي


Private Sub Butnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butnext.Click
Me.BindingContext(DataSet11, "books").Position += 1
End Sub

زر السجل السابق


Private Sub Butlast_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butlast.Click
Me.BindingContext (DataSet11, "books").Position = Me.BindingContext(DataSet11, "books").Count - 1
End Sub