orderssummaryviewdialog.vb

来自「讲解visual studio的应用」· VB 代码 · 共 40 行

Public Class OrdersSummaryViewDialog

    Private Sub EditMenuItemMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditMenuItemMenuItem.Click
        Dim ordersEditViewDialog As MobileNorthwind.OrdersEditViewDialog = MobileNorthwind.OrdersEditViewDialog.Instance(Me.OrdersBindingSource)
        ordersEditViewDialog.ShowDialog()
        Me.Close()

    End Sub

    Private Sub OrdersSummaryViewDialog_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            Me.AutoScrollPosition = New System.Drawing.Point(0, ((0 - Me.AutoScrollPosition.Y) _
                            - 16))
            e.Handled = True
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            Me.AutoScrollPosition = New System.Drawing.Point(0, ((0 - Me.AutoScrollPosition.Y) _
                            + 16))
            e.Handled = True
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            'Rocker Up
            'Up
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            'Rocker Down
            'Down
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Left) Then
            'Left
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Right) Then
            'Right
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Enter) Then
            'Enter
        End If

    End Sub
End Class