処理をキャンセルしフォームを閉じるには？ (ID:112804)

名前

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

本文 Form内で自分をShow(?)しているのでLoadイベント抜けた後にShow関係のイベント が走ろうとしているが、既にUnloadされているということではないですか？ 例．(既にアンロードしています。) - Form1側 - Private Sub Command1_Click() Load Form2 End Sub - Form2側 - Private Sub Form_Load() Me.Show Unload Me End Sub 対策としてLoadイベントの中で１０秒待ちの処理をしない。 Timerコントロールを使用してもいいし、探せば方法はいくらでもあると思います よ。 例.Showはフォームをロードした側で書いてあげればいいですよ。 Private Sub Form_Load() '再生開始 '現在の時間を取得 '100msタイマー開始 End Sub Private Sub Form_Unload(Cancel As Integer) 'タイマーは止める End Sub Private Sub Timer1_Timer() 'キャンセルされていたらUnloadする。 'Load時に取った時間と現在時間を比較 '10秒立っていたらUnloadする End Sub