ファイル名を分割した後に落ちる
Posted: 2005年6月12日(日) 03:25
ステップ11 「テキスト エディタを作る」の「開く」メニュー イベントの
'hEditにフォーカスをセット
SetFocus(hEdit)
のあとに以下のコードを追加しタイトルバーにファイル名を表示させようとしました
'タイトルバーにファイル名を表示
Dim DrivePath As String
Dim DirPath As String
Dim Fname As String
Dim ExName As String
_splitpath(FileName, DrivePath, DirPath, Fname, ExName)
SetWindowText(hMainWnd, Fname)
デバックで動作を確認すると、メニューからファイルを開くを選らび目的のファイルを選択し開いた瞬間に落ちてしまいます。このときにエラーはでませんでした。
因みに
SetWindwoText(hMainWnd, FileName)
だけならフルパスのファイル名がタイトルバーに設定されました
また、ファイル名を分割した後
MessageBox(0,Fname,"",MB_OK)
で確認する事まではできました。しかしOKを押した後ですぐに落ちてしまいました。理由がわからずバグかと思われましたのでここに投稿させていただきます。
'hEditにフォーカスをセット
SetFocus(hEdit)
のあとに以下のコードを追加しタイトルバーにファイル名を表示させようとしました
'タイトルバーにファイル名を表示
Dim DrivePath As String
Dim DirPath As String
Dim Fname As String
Dim ExName As String
_splitpath(FileName, DrivePath, DirPath, Fname, ExName)
SetWindowText(hMainWnd, Fname)
デバックで動作を確認すると、メニューからファイルを開くを選らび目的のファイルを選択し開いた瞬間に落ちてしまいます。このときにエラーはでませんでした。
因みに
SetWindwoText(hMainWnd, FileName)
だけならフルパスのファイル名がタイトルバーに設定されました
また、ファイル名を分割した後
MessageBox(0,Fname,"",MB_OK)
で確認する事まではできました。しかしOKを押した後ですぐに落ちてしまいました。理由がわからずバグかと思われましたのでここに投稿させていただきます。