アポストロフィー(')に気が付かなくて大変申し訳ありませんでした。
テストしたところ
●該当箇所の"'ファイル読込(ab_*.sbp/*.txt)"以降のコードがコメントとして認識されているようです。
●だからCommandButton2をクリックしても当然動作しません。
●さらにウインドーを閉じてもウインドーを閉じた時の処理も認識されていないのでプログラムは実行中のままです。タスクマネージャーで確認しました。これは修正してコンパイルしたときに「出力ファイルの書き込みに失敗しました。実行されている可能性があります。」とメッセージが表示され判明したのです。
なので現在の対応として /* */とアポストロフィー(')を隣接した箇所で使用しないほうがよいと思います。
[ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード:
/'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd
' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。
'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数
Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
' イベントプロシージャの呼び出しを行います。
MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function
'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。
Sub MainWnd_CommandButton1_Click()
SetDlgItemText(hMainWnd,EditBox1,"CommandButton1_Click!")
'ファイル読込(ab_*.sbp/*.txt)
End Sub
Sub MainWnd_CommandButton2_Click()
SetDlgItemText(hMainWnd,EditBox1,"CommandButton2_Click!")
End Sub
Sub MainWnd_Destroy()
TEST_DestroyObjects()
PostQuitMessage(0)
End Sub
●2011年06月21日(火) 記事を修正しました。