關於VB讀寫INI文件

妳只有讀ini的函數,沒有寫ini的函數,怎麽能實現讓文件由3變成4呢.

想實現妳的目標,分三步走.

1.首先妳得加上下面這壹句:

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

2.再把妳上面的所有代碼復制到上面這句的下面.

3.然後在按鈕裏,代碼如下:

Private Sub Command1_Click()

Dim NewVal As String

NewVal = CStr(Val(GetIniStr("number", "number")) + 1)

WritePrivateProfileString "number", "number", NewVal, "D:\IP.ini"

End Sub

這樣就可以了

上一篇:求壹首英文歌只記得壹句詞：everything is nothing

下一篇:韶關南雄地圖旅遊景點介紹 韶關南雄地圖旅遊景點介紹大全