1,用API对注册表进行操作,建立文件关联。
2,在你的程序中要用COMMAND返回命令行参数,返回的参数作为要打开的文件名。具体代码就不贴了,你搜索一下有很多。
2,在你的程序中要用COMMAND返回命令行参数,返回的参数作为要打开的文件名。具体代码就不贴了,你搜索一下有很多。
解决方案 »
- 98下通过MSCOMM控件使用串口接受plc信号,一切正常,但到XP下报8015号错误
- 请问为什么VB中的shell不能调用执行VC编的exe程序啊?
- 在VB和C++之间徘徊
- 能否将接收的byte数组转换成string??
- 1000分求高手指点网络方面的问题,这200分全为散分专用,UP有高分送
- 再问下关于用滚动条控制颜色的问题
- 文本框的MaxLenth
- 谁有VB+sql的源码,功能齐全最好。。。
- 如何在VB6的报表设计器中使用TEXTWIDTH获取文本字段的宽度?
- 在哪里可以找到16x16大小的icon?
- 怎样在activereport中动态添加一个textbox,而不用手动添加!
- 鼠标按键状态的判断
http://www.csdn.net/expert/topic/629/629326.xml?temp=.1388666
http://www.csdn.net/expert/topic/524/524025.xml?temp=.8059198
2.Command 函数
返回命令行的参数部分,该命令行用于装入 Microsoft Visual Basic 或 Visual Basic 开发的可执行程序。语法Command说明当从命令行装入 Visual Basic 时,/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中,cmdlineargs 代表 Command 函数返回的参数信息。VB /cmd cmdlineargs对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序,Command 返回出现在命令行中应用程序名之后的任何参数。例如:MyApp cmdlineargs想知道如何在正在使用的应用程序的用户界面中改变命令行参数,请搜寻关于“命令行参数”的帮助。
Command 函数示例
本示例在某个函数中用 Command 函数获得命令行参数,并将命令行参数以 Variant 类型之数组返回。Function GetCommandLine(Optional MaxArgs)
'声明变量。
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
'检查是否提供了 MaxArgs 参数。
If IsMissing(MaxArgs) Then MaxArgs = 10
' 使数组的大小合适。
ReDim ArgArray(MaxArgs)
NumArgs = 0: InArg = False
'取得命令行参数。
CmdLine = Command()
CmdLnLen = Len(CmdLine)
'以一次一个字符的方式取出命令行参数。
For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
'检测是否为 space 或 tab。
If (C <> " " And C <> vbTab) Then
'若既不是 space 键,也不是 tab 键,
'则检测是否为参数内含之字符。
If Not InArg Then
'新的参数。
'检测参数是否过多。
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
'将字符连接到当前参数中。
ArgArray(NumArgs) = ArgArray(NumArgs) & C
Else
'找到 space 或 tab。
'将 InArg 标志设置成 False。
InArg = False
End If
Next I
'调整数组大小使其刚好符合参数个数。
ReDim Preserve ArgArray(NumArgs)
'将数组返回。
GetCommandLine = ArgArray()
End Function