VB中如何讀取配置文件

A. vb中如何加入配置文件

右鍵單擊項目名稱。選擇屬性。
在屬性窗中選擇設置，名稱中輸入一個名稱，如MyValue，類型integer,范圍選用戶，值為初始值，可鍵入0.

Private Sub Form_Math_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Num_DJC.Value = My.Settings.MyMalue
『獲取設置中的值，並進行應用。
My.Settings.MyMalue += 1
』將設置中的值哪遲返進行修李飢改。
My.Settings.Save()
』保存設置中的旦滑修改。
My.Settings.Reload()
『可以將設置中的值重新導入。
End Sub

B. VB璇誨啓閰嶇疆INI鏂囦歡

鐢↖NI鏂囦歡鐨勮誨啓鍑芥暟姣旇緝濂
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 Function WriteIniFileString(StandKey As String, keyName As String, keyValue As String, FileName) As Long
'鍐橧NI鏂囦歡鍑芥暟
Dim leninikey As Long
Dim strkey As String * 255
WriteIniFileString = WritePrivateProfileString(StandKey, keyName, keyValue, FileName)

End Function

Private Function GetIniFileString(StandKey As String, keyName As String, Default As String, FileName As String) As String
'璇誨彇INI鏂囦歡鍑芥暟
Dim leninikey As Long
Dim strkey As String * 255
leninikey = GetPrivateProfileString(StandKey, keyName, Default, strkey, Len(strkey), FileName)