Ｐａｇｅ 16 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼MsgBoxの閉じるボタン 温泉旅行 02/8/30(金) 10:22 ┗Re:MsgBoxの閉じるボタン JuJu 02/8/30(金) 12:23 ┗Re:MsgBoxの閉じるボタン ひで 02/8/30(金) 15:22 ┗JuJuさん、ひでさんへ 温泉旅行 02/8/30(金) 15:52 ─────────────────────────────────────── ■題名 ： MsgBoxの閉じるボタン ■名前 ： 温泉旅行 <sumi_kuri@livedoor.com> ■日付 ： 02/8/30(金) 10:22 -------------------------------------------------------------------------
| 皆様こんにちは、温泉旅行です。 掲示板綺麗になりましたね。 さて、また、質問させて頂きます。 表題の件ですが、メッセージボックスの閉じるボタンと言うのは 強制的に非表示には、ならないのでしょか？ ユーザフォームは解るのですが。。。 MsgBox内のボタンの種類(vbOkOnlyや、vbYesNo等)によって、表示されていたり、非表示になっていたりしていますが、何か規則の用な物があるのでしょうか？ こちらも、あわせて教えて頂きたいのですが。 宜しくお願い致します。 もうすぐ秋ですね。行楽シーズン、温泉シーズンですね。 |
| 温泉旅行さん、こんにちはぁ >MsgBox内のボタンの種類(vbOkOnlyや、vbYesNo等)によって、表示されていたり、非表示になっていたりしていますが、何か規則の用な物があるのでしょうか？ ×ボタンはキャンセル扱いです。 キャンセルボタンを表示しないときは、灰色表示で押せなくなります。 ではではぁ |
| ▼JuJu さん、温泉旅行さん、こんにちは >表題の件ですが、メッセージボックスの閉じるボタンと言うのは >強制的に非表示には、ならないのでしょか？ >ユーザフォームは解るのですが。。。 私は、ユーザーフォームの×の非表示のことで、過去に皆さんに教えてもらいました。 （ありがとうございました） 詳しい事はわかりませんが 私のは、ユーザーフォームもメッセージボックスも×が非表示になってますが、 これとは、違いますかね〜。 win95 Excel97 です。 '*************** APF 設定 ************* Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Const SC_CLOSE = &HF060 Private Const MF_BYCOMMAND = &H0& Private Const MF_SEPARATOR = &H800& '***************************************** Private Sub CommandButton1_Click() MsgBox "ok!" End Sub Private Sub CommandButton2_Click() Unload Me Application.Visible = True End Sub Private Sub UserForm_Initialize() Dim hWnd As Long Dim hMenu As Long hWnd = FindWindow(vbNullString, Me.Caption) hMenu = GetSystemMenu(hWnd, 0) RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMAND RemoveMenu hMenu, MF_BYCOMMAND, MF_SEPARATOR End Sub |
| ▼ひで さん： >▼JuJu さん、温泉旅行さん、こんにちは > >>表題の件ですが、メッセージボックスの閉じるボタンと言うのは >>強制的に非表示には、ならないのでしょか？ >>ユーザフォームは解るのですが。。。 > >私は、ユーザーフォームの×の非表示のことで、過去に皆さんに教えてもらいました。 >（ありがとうございました） > >詳しい事はわかりませんが >私のは、ユーザーフォームもメッセージボックスも×が非表示になってますが、 >これとは、違いますかね〜。 >win95 Excel97 です。 > > >'*************** APF 設定 ************* >Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long >Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long >Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long >Private Const SC_CLOSE = &HF060 >Private Const MF_BYCOMMAND = &H0& >Private Const MF_SEPARATOR = &H800& >'***************************************** > >Private Sub CommandButton1_Click() >MsgBox "ok!" >End Sub > >Private Sub CommandButton2_Click() >Unload Me >Application.Visible = True >End Sub > >Private Sub UserForm_Initialize() > > Dim hWnd As Long > Dim hMenu As Long > hWnd = FindWindow(vbNullString, Me.Caption) > hMenu = GetSystemMenu(hWnd, 0) > RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMAND > RemoveMenu hMenu, MF_BYCOMMAND, MF_SEPARATOR > >End Sub 返信が遅くなりまして済みませんでした。 JuJuさん、ひでさん回答ありがとうございます。 感謝です。 東京は、暑いです。 さて、ひでさんのをもとに、私のマシン環境でも試してみました。 Win98SE Excel2000です。 が、どうやら、キャンセルボタンが入っていると、×印が黒くあらわれ、 それ以外でしたら、グレーになりました。 と言うことは、やはり、JuJuさんの言う通りに、キャンセルの意味で表示されると 理解してよろしいでしょうか？ まだまだ勉強不足で反省です。 皆さん大変ありがとうございました。 |