vb6.0中文版界面上的frame控件里嵌套combo控件，每个选择和对应的列表怎么存入文件

Question

vb6.0中文版界面上的frame控件里嵌套combo控件，每个选择和对应的列表怎么存入文件？怎么用file print语句保存frame控件的变量？

Answer 1

建议用INI文件操作模式

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

'If Dir(App.Path & "\" & "config.ini") <> "" Then SetConfig

Private Function GetINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function

Private Function SaveINI(AppName As String, KeyName As String, Object As String, Filename As String) As Long
   Dim RetStr As String
   RetStr = String(100, Chr(0))
   SaveINI = WritePrivateProfileString(AppName, KeyName, Object, Filename)
End Function

Private Sub ReadConfig()
Dim ComboCount As Long
ComboCount = GetINI("Combo1Data", "Count", App.Path & "\" & "config.ini")
Dim i As Long
For i = 0 To ComboCount - 1
    Combo1.AddItem GetINI("Combo1Data", "Data" & i, App.Path & "\" & "config.ini")
Next i
End Sub

Private Sub SaveConfig()
Dim ComboCount As Long
ComboCount = Combo1.ListCount
SaveINI "Combo1Data", "Count", CStr(ComboCount), App.Path & "\" & "config.ini"
Dim i As Long
For i = 0 To ComboCount - 1
    SaveINI "Combo1Data", "Data" & i, Combo1.List(i), App.Path & "\" & "config.ini"
Next i
End Sub

应该能看明白吧