求助
解决方案 »
- 先祝大家今年快乐,龙年大吉,我再提问,引用的注册???
- 怎么抓到Fn键???
- 如何让程序钉在桌面上,按win+D也显示在桌面了,SetParent 在vista下不可用
- 关于拷贝的问题
- VB中使用SQL语句的问题?
- 各位大虾,帮我看看!
- 为什么mciSendString设置position > 10000后就没有效果了??求高手
- 请问,到哪儿可以下载报表控件Formula one的安装盘,很急,送分100
- 用vb实现菜单的3D效果?
- vb 怎么去判断 html 对象 是否存在?用nothing null <>""都不成功
- vb调用excel时,在vb怎么控制sheet工作表的显示,就是怎么让它先显示哪个表(有3个表)
- '如何使用代码保存ActiveReport报表中TextBox控件的边框类型??
在被调的程序中使用command来获取命令行参数。
否则可以通过中间文件,DDE等手段。
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=190059
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