蝶变传奇三亚抗衰老:vb问题:打开、运行文件

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/02 19:48:08
如何在程序中使用自动打开文件,就象记事本一样,双击TXT文件notepad.exe就自动把那个文件打开了,
双击vbs文件就运行了,
而我编的程序在注册表中关联后只能打开程序,程序不自动打开那个文件。
代码步骤详细点!谢谢!!
这位 含苞 - 秀才 二级 ( 465 ) 老兄
您说的似乎有理,不过我还是不太明白
具体一点...原码写下来。感激不尽!!

楼主说的这个功能其实是命令行参数的功能。

在WINDOWS资源管理器里面,双击一个文件时,文件路径会以命令行参数的形式返回给应用程序。就象DOS下的
DIR /W 的这个/W一样。

程序的关键就时要取得WINDOWS发给你的文件名。

呵呵,用API咯。
函数名就是 COMMAND,用API VIEWER 可以找的他的声明。

在程序里直接调用就可以了。
比如
me.text1.text=command

OK,一切搞定。
---------------
补充回答:
楼主很抱歉,由于最近工作比较忙,所以没有常来看了。我这里有一段源码:

1.新建一个模块 当然可以不用模块,(用模块养成好习惯)加入下面的代码:
Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String Private Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long Private

2.程序调用
Sub Form_Load()
Text1.Text = GetCommandLine() '法一:返回值中带有,应用程序本身的全路径。
Text2.Text = Command '法二:返回值中只有所传的参数。
End Sub

如:应用程序为:D:\VB\TEST.EXE 双击的文件为c:\a.abc
则:Text1.text="D:\VB\TEST.EXE c:\a.abc"

而:Text2.text="c:\a.abc"

你的关联中没有设置参数

关联后在你的程序里要能就收文件名才行的
在你程序里面用command函数获得文件名,不要参数的
如在form_load里面加入
msgbox command
再编译成执行文件,用文件关联打开,就可以看到效果了

看不懂,就当路过