菜鸟捉虫(15)

杜伟 · 2001年第15期

上期正确答案：
　　 该程序的两处错误出在DeleteSelitem过程中，正确的代码是：
　　 Private Sub DeleteSelitem（）
　　 ...
　　 If List1.Selected（i） = True Then
　　 List1.Removeltem i＇原错误一处
　　 On Error Resume Next
　　 i=i-1＇原错误两处 将if 语句去掉，变i=i+1为i=i-1
　　 End if
　　 Next i
　　 End Sub
　　 以下是第13期“菜鸟捉虫”幸运读者名单（奖品为《电脑报配套光盘》2001年第4期）
　　 夏剑峰 湖北 文龙 四川
　　 刘建群 陕西 丁远惠 江苏
　　 黄科材 广东
　　#1 本期题目：
　　 现有一个程序，用于打开用户选择的文件（可打开任何已关联的文件）。但编译后并不能达到预期的目的，请找出其中的错误。
　　 首先该程序中含有一个Drive、Dir、File、及一个Command控件。Command控件的Caption属性“打开”。
　　#1 该程序的代码如下：
　　 Private Sub Command1_Click（）
　　 If File1.FileName = “” Then
　　 MsgBox “请选择一个要打开的文件！”，vbOKOnly + vbCritical，“错误”
　　 End If
　　 On Error GoTo OpenErr
　　 Shell File1.Path + File1.FileName，vbNormalFocus
　　 OpenErr:
　　 If Err.Number > 0 Then
　　 MsgBox “文件未找到！”， vbOKOnly + vbCritical，“错误”
　　 End If
　　 End Sub
　　 Private Sub Dir1_Change（）
　　 File1.Path = Dir1.Path
　　 End Sub
　　 Private Sub Drive1_Change（）
　　 On Error Resume Next
　　 Dir1.Path = Drive1.Drive
　　 End Sub