|
miyake さん こんばんは、ちんといいます。
Frameを使用してはどうでしょうか。
Frameの中に、ラベルをセットします。
通常は、FrameのVisibleは、Falseにする。
終了するときに、FrameのVisibleは、Trueにする。
Private Sub cmd終了_Click()
frmフォーム1.Frame1.Visible = True
frmフォーム1.Label1.Caption = "終了しています。しばらくお待ちください。" '
frmフォーム1.Caption = "終了しています。しばらくお待ちください。"
ThisWorkbook.Save
Application.Quit
ThisWorkbook.Close savechanges:=False
frmフォーム1.Caption = "トップページ"
frmフォーム1.Frame1.Visible = False
Unload Me
End Sub
以上、
▼miyake さん:
>いつもお世話になっております。
>進行状況を表示する方法、たとえば、終了ボタンを押すと、「ただいま終了中です」のようなメッセージをメッセージボックス等に表示させる方法を考えています。
>
>下記は、フォーム(frmフォーム1)上にボタン(cmd終了)を割り付け、終了処理をするものです。
>フォームのCaptionにはメッセージが表示されますが、メッセージボックス等により、メッセージを画面の前面に表示させたいのです。
>
>Private Sub cmd終了_Click()
>
>frmフォーム1.Caption = "終了しています。しばらくお待ちください。"
>ThisWorkbook.Save
>Application.Quit
>ThisWorkbook.Close savechanges:=False
>frmフォーム1.Caption = "トップページ"
>Unload Me
>
>End Sub
>いい方法は、ありませんか。
|
|