如何调用我自己写的一个txt文件，我想点击就会弹出的那种

如题

解决方案 »

  1.   

    是否想这样打开？
    Private Sub Command1_Click()
       Shell "NotePad.EXE c:\skin.txt", vbNormalFocus
    End Sub
      

  2.   

    使用commondialog控件：菜单“工程”--》“部件”--》选择“microsoft common dialog control 6.0(sp3)”,则使用
        CD1.DialogTitle = "打开txt文件"
        CD1.Filter = "*.txt|*.txt"
        CD1.ShowOpen
    其中CD1是commondialog控件对象
      

  3.   

    就是aohan(景升) 说的那种，那路径变化怎么实现
      

  4.   

    取得文件路径,然后用一个变量传到shell命令里面去.
      

  5.   

    Private Sub Command1_Click()
       Shell "NotePad.EXE c:\skin.txt", vbNormalFocus
    End Sub同意这个,最简单也最有效.
      

  6.   

    恩，那我要相对路径怎么弄啊？还有就是可不可以让txt文本不让人家修改
      

  7.   

    取得文件路径,然后用一个变量传到shell命令里面去.
    dim fname as string 
    fname="notepad" & " " & "dialog.filename"
    shell fname,1
    这样即可用记事本打开由dialog对话框选定的文件
      

  8.   

    如果不想让人家修改，简单点就是自己用textbox显示
      

  9.   

    在模块中main()
    中也可以实现
      

  10.   

    Shell "NotePad.EXE c:\skin.txt", vbNormalFocus