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