[421.xls]



' [mjSumple] のコード
'■■ コマンドボタンをそのフォームのキャンセルボタンに設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()

    '[Cancel]ボタンをキャンセルボタンにします
    frmSumple.cmdBtn2.Cancel = True
       
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    MsgBox (txtInput.Text)
End Sub

Private Sub cmdBtn2_Click()
    If cmdBtn2.Cancel = True Then
        txtInput.Text = ""
    Else
        MsgBox (txtInput.Text)
    End If
End Sub