customerssummaryviewdialog.vb

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

Public Class CustomersSummaryViewDialog

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

    End Sub

    Private Sub CustomersSummaryViewDialog_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


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

    End Sub

    Private Sub OrdersDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdersDataGrid.Click
        Dim ordersSummaryViewDialog As MobileNorthwind.OrdersSummaryViewDialog = MobileNorthwind.OrdersSummaryViewDialog.Instance(Me.OrdersBindingSource)
        ordersSummaryViewDialog.ShowDialog()

    End Sub

End Class