问题：我想设计一个程序，当用Dialog一次打开多个文件时，获得这些文件的完整路径，并将获得的路径写入到程序所在文件夹下的st.ini文件中 1.当St.ini文件不存在时自动建立 2.每次运行程序后从st.ini中获取路径信息并将他们用AddItem的方法添加到List1中 3.当单击list1 中的列表时，Label1.显示单击list1上反白选择的文字。请给出源代码如果好的话再追加你50分，谢谢。
'添加一个Microsoft Common Dialog Control 6.0部件
'添加一个CommandButton控件
'添加一个ListBox控件
'添加一个Label控件
'------------------------------------------------
'读写INI文件
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lplFileName As String) As Long
'读写INI文件
Function GetINI(AppName As String, KeyName As String, filename As String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))
'读：Rtn = GetINI(AppName, KeyName, filename)
'写：SaveINI appname,keyname,string,filename
End Function
Private Sub Command1_Click()
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.filename
End Sub
Private Sub Form_Load()
For i = 0 To Val(GetINI("listcount", "Count", App.Path & "\st.ini")) - 1
List1.AddItem GetINI("list", CStr(Format(i, "000")), App.Path & "\st.ini"), i
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 1 To List1.ListCount
SaveINI "list", CStr(Format(i - 1, "000")), List1.List(i - 1), App.Path & "\st.ini"
Next i
SaveINI "ListCount", "Count", List1.ListCount, App.Path & "\st.ini"
End Sub
Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
如果你对我想设计一个程序，当用Dialog一次打开多个文件时，获得这些文件的完整路径，并将获得的路径写入到程序所在文件夹下的st.ini文件中 1.当St.ini文件不存在时自动建立 2.每次运行程序后从st.ini中获取路径信息并将他们用AddItem的方法添加到List1中 3.当单击list1 中的列表时，Label1.显示单击list1上反白选择的文字。请给出源代码如果好的话再追加你50分，谢谢。这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体