VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/11/26(Tue) 08:45
投稿者： Yuuko
Ｅメール：
ＵＲＬ：
タイトル： 解決しました。

魔界の仮面弁士さん　ありがとうございました。

以下のようにして　解決しました。
また　vbNullString　以外のもので試した結果はＮＧでした。


            RetC = WritePrivateProfileString(vbNullString, vbNullString, vbNullString, FileName)　　'<<--------------読込む前に　無関係のダミー情報を書込みする。
            DataStr = String(1000, Chr(0))
            RetC = GetPrivateProfileString(ApplicationName, KeyName, Default, DataStr, 1000, FileName)
            If RetC Then
                If InStr(DataStr, vbNullChar) > 0 Then
                    DataStr = Left(DataStr, InStr(DataStr, vbNullChar) - 1)
                End If
            End If

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -