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)