整容说文库 > 程序代码 > 教育资讯

关于commondialog.showopen的多选问题

来源:学生作业帮助网 编辑:整容说文库 时间:2020/08/09 22:09:48 程序代码
关于commondialog.showopen的多选问题程序代码
在文件选取过多的话,第二次再执行时则自动退出,不知为何?
如果各位在用commondialog1.showopen多选文件时有何经验希望告知小弟。
Public Sub addsourcefile()
'添加源文件
        Dim bret As Boolean
        Dim Getname() As String
        Dim c, i As Integer
        '可以多选文件
        CommonDialog1.MaxFileSize = 3200
        CommonDialog1.Flags = &H200
        CommonDialog1.Filter = "all file(*.*)|*.*|图片文件(*.jpg,*.bmp,*.ico)|*.jpg;*.bmp;*.ico|可执行文件(*.exe,*.com,*.bat)|*.exe;*.com;*.bat"
        CommonDialog1.ShowOpen
        If CommonDialog1.FileName <> "" Then
           Getname() = Split(CommonDialog1.FileName)
          If UBound(Getname) <> 0 Then
          c = 1
          Else
          c = 0
         End If
         For i = c To UBound(Getname)
          '首先判断是否已经存在所选的源
           bret = IsYesNoReval(lstsource, Getname(i))
           If bret Then Exit For
              lstsource.AddItem Getname(i)
              lstsource.Selected(lstsource.ListCount - 1) = True
         Next
       End If
End Sub
程序代码