微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题菜鸟捉虫(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期)
  夏剑峰  湖北   文龙   四川
  刘建群  陕西   丁远惠  江苏
  黄科材  广东
  本期题目:
  现有一个程序,用于打开用户选择的文件(可打开任何已关联的文件)。但编译后并不能达到预期的目的,请找出其中的错误。
  首先该程序中含有一个Drive、Dir、File、及一个Command控件。Command控件的Caption属性“打开”。
  该程序的代码如下:
  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