投稿日 | : 2004/07/06(Tue) 19:38 |
投稿者 | : L.O.N. |
URL | : |
タイトル | : Re: 呼び出したフォームのForm_Loadでエラーとなった場合 |
俺がよくやる手は、以下のコードの通りです。
(Form2のForm_Loadイベントは利用しない方法でやってます。)
'定数定義(標準モジュールに)
Public Const NORMALITY_RETURN = 0 '正常終了
Public Const UNUSUAL_RETURN = 1 '異常終了(非0の値・・・エラー内容も定義できるから)
'呼び出し元(Form1)
Private sub Command1_Click()
Dim result as Integer '結果格納欄
result = Form2.PANEL_INITIALIZE 'Form2はここで暗黙的にLoadされる。
if (result <> NORMALITY_RETURN) then '初期化が正常に終了しなかったら、
Unload Form2 '暗黙的にLoadされたForm2を消去する
Exit sub '処理を抜ける
End if
Form2.Show 'Form2を表示する
End Sub
'呼び出し先(Form2)
Friend Function PANEL_INITIALIZE() as Integer
'各種初期化処理(エラー時は、Goto EXIT_ERRへ飛ぶ)
PANEL_INITIALIZE = NORMALITY_RETURN '正常終了
Exit Function
EXIT_ERR:
PANEL_INITIALIZE = UNUSUAL_RETURN '異常終了
End Function