Public Class Form1
Dim cureindex As Integer = 0
Dim curecol As Integer = 0
Private Function dgvrowscount() As Integer
Return Me.DataGridView1.Rows.Count - IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1)
End Function
Private Function dgvcolscount() As Integer
Return Me.DataGridView1.Columns.Count - 1
End Function
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim a() As String = InputBox("أكتب خانتين بينهما الخط العمودي|").Split("|")
Dim lastindex As Integer = Me.DataGridView1.Rows.Count - IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1) + 1
If UBound(a) <= 0 Then Exit Sub
With DataGridView1
.Rows.Add(a(0), a(1))
.CurrentCell = .Rows(lastindex).Cells(0)
End With
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnup.Click
If cureindex <= 0 Then Exit Sub
cureindex -= 1
Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(cureindex).Cells(0)
End Sub
Private Sub btndown_Click(sender As Object, e As EventArgs) Handles btndown.Click
If cureindex >= dgvrowscount() Then Exit Sub
cureindex += 1
Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(cureindex).Cells(0)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If curecol > dgvcolscount() Then Exit Sub
curecol += 1
Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(cureindex).Cells(curecol)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If curecol <= 0 Then Exit Sub
curecol -= 1
Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(cureindex).Cells(curecol)
End Sub
End Class
