VB サンプル

GetINIValue オブジェクト

GetINIValue(引数)オブジェクトを使うと、INIファイルのデータを取得することができます。

SetINIValue オブジェクト

SetINIValue(引数)オブジェクトを使うと、INIファイルへデータを書き込むことができます。

【サンプルリスト】

-宣言文-

カーネル32.dllへの宣言をする。モジュールのトップに配置する
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

-フォーム上にコマンドボタン1を配置し-(値を取得する)

Private Sub Command1_Click()

MsgBox "@" & GetINIValue("USERNAME", "Data", App.Path & "\vbschool.ini") & "@"
MsgBox "@" & GetINIValue("PATH", "Data", App.Path & "\vbschool.ini") & "@"

End Sub

-フォーム上にコマンドボタン2を配置し-(値を書き込みする)
Private Sub Command2_Click()
Dim msg As String

MsgBox SetINIValue("HELLO", "USERNAME", "Data", App.Path & "\vbschool.ini") 'F
MsgBox SetINIValue("K:\moduleetc\initest", "PATH", "Data", App.Path & "\vbschool.ini") 'F
msg = SetINIValue("RyuutuuGiken,.co.LTD", "CoMpney", "Lisence", App.Path & "\vbschool.ini")
msg = SetINIValue("Motohiro-Kokarimai", "Maked By", "Lisence", App.Path & "\vbschool.ini")

End Sub

-値を取得するためのファンクション
Public Function GetINIValue(KEY As String, Section As String, ININame As String) As String

Dim Value As String * 255

Call GetPrivateProfileString(Section, KEY, "ERROR", Value, Len(Value), ININame)
GetINIValue = Left$(Value, InStr(1, Value, vbNullChar) - 1)

End Function

-値を書き込みするためのファンクション
Public Function SetINIValue(Value As String, KEY As String, Section As String, ININame As String) As Boolean

Dim Ret As Long

Ret = WritePrivateProfileString(Section, KEY, Value, ININame) 'G
SetINIValue = CBool(Ret) 'H

End Function

●