リスト1:アプリケーションのソース

' 伝票の種別変更
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



本文へ戻る