Private Sub Form_Load() If Right(Command, 3) <> "yyg" Then Exit Sub End If RichTextBox1.FileName = Command List1.AddItem Command End Subcommand中保存了你的路径
Sub main() MsgBox Command End Sub 一定要丛main()启动:工程菜单---工程属性---启动对象
首先你要知道如何使自己的程序关联文件 http://community.csdn.net/Expert/topic/3103/3103540.xml?temp=5.852908E-02 http://community.csdn.net/Expert/topic/3039/3039885.xml?temp=.3642542 然后建一个模块:Sub main() MsgBox Command form1.show End SubCommand变量就是一定要丛main启动:工程菜单---工程属性---启动对象
你的程序应该有参数,command变量就是
If Right(Command, 3) <> "yyg" Then
Exit Sub
End If
RichTextBox1.FileName = Command
List1.AddItem Command
End Subcommand中保存了你的路径
MsgBox Command
End Sub
一定要丛main()启动:工程菜单---工程属性---启动对象
http://community.csdn.net/Expert/topic/3103/3103540.xml?temp=5.852908E-02
http://community.csdn.net/Expert/topic/3039/3039885.xml?temp=.3642542
然后建一个模块:Sub main()
MsgBox Command
form1.show
End SubCommand变量就是一定要丛main启动:工程菜单---工程属性---启动对象