菜鸟捉虫(15)

杜伟 
2001年 15期

#1    上期正确答案：
　　    该程序的两处错误出在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
　　
　　 
 