' 伝票の種別変更
Private Sub cmdChangeSheet_Click()
MsgBox "伝票の種別を切り替えます。", _
vbOKOnly + vbInformation, "伝票種別変更"
End Sub
' 表示切り替え（オプションボタンの値によって切り替える）
Private Sub cmdChangeView_Click()
Dim strMessage As String
If optList.Value = True Then
strMessage = "一覧表示を行います。"
Else
strMessage = "個別表示を行います。"
End If
MsgBox strMessage, _
vbOKOnly + vbInformation, "伝票種別変更"
End Sub
' 一覧を印刷する
Private Sub cmdPrintList_Click()
MsgBox "一覧表を印刷します。", _
vbOKOnly + vbInformation, "一覧表印刷"
End Sub
' 終了（フォームを閉じるだけ）
Private Sub cmdQuit_Click()
Unload Me
End Sub |