tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^5: 又　iniFileですが
投稿日： 2008/03/20(Thu) 00:51
投稿者： Starfish
　戻り値はチェックしましたか？

　何のエラーが返ってくるかを調べるのが、解決が一番早いです。

　エラーをチェックして、エラーの内容をメッセージボックスに
表示します。デバッグ用に以下の処理を追加してみてください。

’API宣言追加
Private Declare Function FormatMessage Lib "kernel32.dll" _
        Alias "FormatMessageA" _
        (ByVal dwFlags As Long, _
        lpSource As Any, _
        ByVal dwMessageId As Long, _
        ByVal dwLanguageId As Long, _
        ByVal lpBuffer As String, _
        ByVal nSize As Long, _
        Arguments As Long) As Long
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const PROCESS_DEFAULT_LANGUAGE = &H400

' INIファイル書き込み
Dim lngReturnValue As Long
Dim strErrorMessage As String

    lngReturnValue = WritePrivateProfileString("FileSearch", "Ext", cmbExt.Text, "c:\FileSearch.ini")
    ' エラーチェック
    If lngReturnValue = 0 Then
        strErrorMessage = Space(256)
        lngReturnValue = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, ByVal vbNullString, Err.LastDllError, PROCESS_DEFAULT_LANGUAGE, strErrorMessage, Len(strErrorMessage), ByVal 0)
        MsgBox strErrorMessage
    End If
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。