メッセージボックスの自作方法 (ID:83495)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 komaさん、へいぽさん ありがとうございました。 へいぽさんのコードを流用させて頂きました。 ４つコマンドを作らなくてはいけなかったので、 自作にしたのですが Private Sub Command1_Click() eRetValue = vbOK Unload Me End Sub Private Sub Command2_Click() eRetValue = vbYes Unload Me End Sub Private Sub Command3_Click() eRetValue = vbNo Unload Me End Sub Private Sub Command4_Click() eRetValue = vbCancel Unload Me End Sub で４つの判断を作れました。 本当にありがとうございました！