VB Combo循环加载INI文件

说老实话，没有明白你的意思。
以下面举例:

[Section]
1000000000=111
123456789=222
abcdefg=333
中文名称=444

这个是一个ini文件，你的要求是不是这样：
有两个combo，一个里面加载所有的Section，一个里面加载选中Section里面的所有Keyname，还有一个文本，里面加载选中keyname的key值？？

麻烦说清楚哦~~·想赚分。

还有哦，删除的话，是删除KeyName还是Key值？？
贴上代码，看看是否符合要求

--------------------以下（此行不用复制）----------
'ini文件放在同一当前工作目录中，并且名称为：Test.ini
'向窗体中添加2个ComboBox，名称分别为comS和comN
'向窗体中添加2个CommandButton，名称分别为cmdF和cmdD
'下面的代码放到窗体之中
Dim strIniPath As String

'刷新KeyName
Private Sub RefreshcomN()
If comS.Text <> "" Then
KeyName = GetKeyName(comS.Text, strIniPath)
comN.Clear
For j = LBound(KeyName) To UBound(KeyName)
comN.AddItem KeyName(j)
Next
End If
End Sub

'刷新Section
Private Sub RefreshComs()
comS.Clear
Dim i As Integer, j As Integer
Dim Sec() As String, KeyName() As String
Sec = GetSection(strIniPath)
For i = LBound(Sec) To UBound(Sec)
comS.AddItem Sec(i)
Next
comN.Clear
End Sub

Private Sub cmdD_Click() '删除Section或者KeyName
If comS.Text = "" Then
MsgBox "请选择要删除的字段！"
Else
If comN.Text = "" Then
If MsgBox("是否删除Section：" & comS.Text, vbYesNo, "提示") = vbYes Then
DelSection comS.Text, strIniPath
cmdF_Click
comN.Clear
End If
End If
If comN.Text <> "" Then
If MsgBox("是否删除" & comS.Text & "中的KeyName：" & comN.Text, vbYesNo, "提示") = vbYes Then
DelKeyName comS.Text, comN.Text, strIniPath
RefreshcomN
End If
End If
End If
End Sub

Private Sub cmdF_Click()
RefreshComs
End Sub

Private Sub comS_Click()
RefreshcomN
End Sub

Private Sub Form_Load()
strIniPath = App.Path & "\Test.ini"
comS.Clear '清除Coms中的Section记录
RefreshComs
comN.Clear '清除comN中的KeyName记录
End Sub

--------------------以上（此行不用复制）----------

--------------------以下（此行不用复制）----------
'新建一模块，下面的代码放到模块当中
Public 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
Public 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

'获取ini文件中的Section
Public Function GetSection(IniFilePath As String) As Variant
Const ProStringLen = 1024
Dim Res As Long
Dim S As String
Dim i As Long
S = Space(ProStringLen)
Res = GetPrivateProfileString(vbNullString, vbNullString, vbNullString, S, ProStringLen, IniFilePath)
S = Trim(Left(S, Res))
If S <> "" Then
i = Len(S)
Do While Mid(S, i, 1) = vbNullChar
i = i - 1
Loop
S = Left(S, i)
End If
GetSection = Split(Trim(S), vbNullChar)
End Function

'获取ini文件中的KeyName
Public Function GetKeyName(Section As String, IniFilePath As String) As Variant
Const ProStringLen = 1024
Dim Res As Long
Dim S As String
Dim i As Long
S = Space(ProStringLen)
Res = GetPrivateProfileString(Section, vbNullString, vbNullString, S, ProStringLen, IniFilePath)
S = Trim(Left(S, Res))
If S <> "" Then
i = Len(S)
Do While Mid(S, i, 1) = vbNullChar
i = i - 1
Loop
S = Left(S, i)
End If
GetKeyName = Split(Trim(S), vbNullChar)
End Function

'删除指定Section段内的数据
Public Sub DelSection(Section As String, IniFilePath As String)
WritePrivateProfileString Section, vbNullString, vbNullString, IniFilePath
End Sub

'删除指定KeyName的数据
Public Sub DelKeyName(Section As String, KeyName As String, IniFilePath As String)
WritePrivateProfileString Section, KeyName, vbNullString, IniFilePath
End Sub

--------------------以上（此行不用复制）----------

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vrxj2vy7y.html