掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
INIファイルへの書き込み (ID：82057)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
読み込みができたなら書き込みは簡単だろって。 Public Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" _ (ByVal lpSection As String, _ ByVal lpEntry As String, _ ByVal lpValue As String, _ ByVal lpFileName As String) As Long Public Sub SaveWindowPos(frm As Form) Dim sFileName Dim sSection sFileName = App.Path If Right(sFileName, 1) <> "\" Then sFileName = sFileName & "\" sFileName = sFileName & App.EXEName & ".ini" sSection = "WindowPosition" WritePrivateProfileString sSection, "Left", CStr(frm.Left), sFileName WritePrivateProfileString sSection, "Top", CStr(frm.Top), sFileName End Sub sFileName は full path じゃないと駄目だったようなきがするぞ。 さもなきゃ間違いなく単純な記述 miss だ。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.