vb怎麼配置文件

1. vb如何寫配置項

vb讀寫配置文件,有例:

b 讀寫配置文件(.ini)2007-05-15 22:03可以使用兩個API實現配置文件的讀寫
讀：GetPrivateProfileString
寫：WritePrivateProfileString

-----------------------------------------------------------
1. 用WritePrivateProfileString'寫ini

VB聲明
Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String)

說明
在初始化文件指定小節內設置一個字串

返回值
Long，非零表示成功，零表示失敗。會設置GetLastError

參數表
lpApplicationName String，要在其中寫入新字串的小節名稱。這個字串不區分大小寫
lpKeyName Any，要設置的項名或條目名。這個字串不區分大小寫。用vbNullString可刪除這個小節的所有設置項
lpString String，指定為這個項寫入的字串值。用vbNullString表示刪除這個項現有的字串
lpFileName String，初始化文件的名字。如果沒有指定完整路徑名，則windows會在windows目錄查找文件。如果文件沒有找到，則函數會創建它

其他
在vb的api文本查看器里復制的聲明如下：
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. GetPrivateProfileString '讀ini

VB聲明
Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)

說明
為初始化文件中指定的條目取得字串

返回值
Long，復制到lpReturnedString緩沖區的位元組數量，其中不包括那些NULL中止字元。如lpReturnedString緩沖區不夠大，不能容下全部信息，就返回nSize-1（若lpApplicationName或lpKeyName為NULL，則返回nSize-2）

參數表
lpApplicationName String，欲在其中查找條目的小節名稱。這個字串不區分大小寫。如設為vbNullString，就在lpReturnedString緩沖區內裝載這個ini文件所有小節的列表
lpKeyName String，欲獲取的項名或條目名。這個字串不區分大小寫。如設為vbNullString，就在lpReturnedString緩沖區內裝載指定小節所有項的列表
lpDefault String，指定的條目沒有找到時返回的默認值。可設為空（""）
lpReturnedString String，指定一個字串緩沖區，長度至少為nSize
nSize Long，指定裝載到lpReturnedString緩沖區的最大字元數量
lpFileName String，初始化文件的名字。如沒有指定一個完整路徑名，windows就在Windows目錄中查找文件

註解
如lpKeyName參數為vbNullString，那麼lpReturnedString緩沖區會載入指定小節所有設置項的一個列表。每個項都用一個NULL字元分隔，最後一個項用兩個NULL字元中止。也請參考GetPrivateProfileInt函數的註解

其他
在vb的api文本查看器中復制的聲明為：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

===================================================================
舉例如下：
Option Explicit

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

Private Sub Form_Load()

'寫配置文件
WritePrivateProfileString "OK", "isOK", "True", "c:\vb-test.ini"
WritePrivateProfileString "sushe", "mail", "[email protected]", "c:\vb-test.ini"

' 讀配置文件如下
Dim myweb As String
myweb = String(255, 0)
GetPrivateProfileString "sushe", "web", "沒有配置web", myweb, 255, "c:\vb-test.ini"
MsgBox myweb, vbOKOnly, "web"

End Sub