MsgBoxの音を出さないようにするには？ (ID:85657)

名前

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

本文 > MsgBox関数の代わりに、ご自分でモーダルなフォームを > 表示させるようにすれば、無音でメッセージを表示できます。 以下、サンプルです。 '==== 標準モジュール ==== Option Explicit Public Function MsgBox( _ ByVal Prompt As String, _ Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional ByVal Title As String, _ Optional ByVal HelpFile As String, _ Optional ByVal Context As Long) As VbMsgBoxResult MsgBox = Form2.MsgBox(Prompt) End Function '==== Form2 ==== Option Explicit Private Result As VbMsgBoxResult 'アイコンやボタンの指定は省略しています。 '必要に応じて、コードを書き加えて見てください。 Friend Function MsgBox(ByVal Prompt As String) As VbMsgBoxResult Result = vbCancel Load Me Me.Label1.Caption = Prompt Me.Show vbModal MsgBox = Result End Function Private Sub Command1_Click(Index As Integer) If Index = 0 Then Result = vbOK Else Result = vbCancel End If Unload Me End Sub