《AutoCAD VBA精彩实例教程》Bug修正
7.2节：如果连续选择多个根目录下的图形文件，例如f:\1.dwg和f:\2.dwg，系统会向列表框中添加如下的结果：f:\\1.dwg
f:\\2.dwg
这明显是一个Bug，今天ahlzl提醒，赶快改了过来。
修改部分如下：
Private Sub cmdOpen_Click()
On Error GoTo errHandle
………
'向列表框中添加对象
Dim count As Integer
count = lstFile.ListCount
If Y = 1 Then
lstFile.AddItem FileNames(Y - 1), count
Else
For i = 1 To Y - 1
If StrComp(Right$(FileNames(0), 1), "\") = 0 Then '**增加
FileNames(i) = FileNames(0) & FileNames(i) '**增加
Else '**增加
FileNames(i) = FileNames(0) & "\" & FileNames(i)
End If '**增加
lstFile.AddItem FileNames(i), i - 1 + count
Next i
End If
errHandle:
End Sub
页:
[1]