リスト2：メニューのClickイベントに対するプロシージャのソース

' 伝票種別変更(C)
Private Sub mnuChangeSheet_Click()
　　cmdChangeSheet_Click
End Sub

' 一覧表印刷(P)
Private Sub mnuPrintList_Click()
　　cmdPrintList_Click
End Sub

' 終了(X)
Private Sub mnuQuit_Click()
　　cmdQuit_Click
End Sub

' 一覧表示(L)
Private Sub mnuViewList_Click()
　　optList.Value = True
　　cmdChangeView_Click
End Sub

' 個別表示(I)
Private Sub mnuViewIndiv_Click()
　　optIndiv.Value = True
　　cmdChangeView_Click
End Sub



本文へ戻る