[سعود]

هل هذا ماتعني؟

PHP كود :

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