本帖最后由 bcrun 于 2011-05-16 11:15:43 编辑

解决方案 »

  1.   

    Private Sub OpenFile_Click()
    On Error GoTo errhandler 'cancelerror为true
    '设置文件过滤器
    CommonDialog1.Filter = "all files(*.*)|*.*|" _
    & "executable file(*.exe)|*.exe|" _
    & "text files(*.txt)|*.txt|"
    CommonDialog1.FilterIndex = 2 '指定默认文件类型
    CommonDialog1.ShowOpen '显示[打开]对话框
    myopenfilesub '调用用户自己的打开文件过程
    Exit Sub '用户按[取消]按钮
    End Sub补充:myopenfilesub
      

  2.   

    我也是新手,,路过学习,,有openfilesub 你这个过程名字写错了啊.  call OpenFile_Click
      

  3.   

    代码全部在这? openfilesub 这是什么? 不明白...call OpenFile_Click 是这样? 调用自己打开的文件过程...你的什么书? 列子也不完整...
      

  4.   

    MyOpenFileSub,复制错了,已更正,网上下载的电子书
      

  5.   

    本帖最后由 bcrun 于 2011-05-16 11:27:26 编辑
      

  6.   

    myopenfilesub就是这,把书上的照抄下来
      

  7.   


    你用到了或者定义了openfilesub 这个函数吗?
    别光抄,若有的话用一下 call openfilesub