举个列,我在文件列表框(FILE)中选择了三个文件,然后我想将所选择的文件名添加到列表框中(LIST),并且,在添加的过程中,能够记录下所有选择的文件的路径(呵呵,这一部好像我能弄出来,不过还是说说方法呵)。
小弟先谢谢各位高手了。
添加一个File控件,一个Label控件,两个Command控件,代码如下 Option Explicit
Private Sub Command1_Click() Dim i As Integer List1.Clear Label1.Caption = "文件路径:" & File1.Path For i = 0 To File1.ListCount - 1 If File1.Selected(i) = True Then List1.AddItem File1.List(i) 'Exit For End If Next End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Load() '在属性窗口中将File1的MultiSelect属性设为 2 Label1.Caption = "文件路径:" Command1.Caption = "添加到ListBox" Command2.Caption = "退出(&X)" End Sub