使它运行时可以如此接受参数:demo.exe "hello world"再问个问题:在MDI应用中子窗体的菜单集成到父窗体中,这时父窗体的菜单消失了,如何使其显示(前提是不关闭子窗体)?
解决方案 »
- 关于陆其明DirectShow实务精选中VODDemo的播放问题
- VBscript问题
- MediaPlayer控件出错
- 有经验着请看:利用oracle对象服务器提供的ole对象,我在vb下编程,其他都没有问题,但是点用存储过程并返回结果就有问题了。
- 一道选择题10
- 交换友情链接
- 我用cdonts中的方法访问到了exchange中的邮件,可是为什么不是指定用户的邮件?
- 在局域网内如何检测某台电脑是否开机?
- 求救:datagrid中如何锁定相关行?
- VB编写的数据库程序中,修改表中的字段遇到这样的问题
- 急!!!急!!!一个很简单的问题,请各位高手帮忙!!!
- 有那位高手知道那里有msdn下载!!!(来者有分)
2.实现方法不了,用一个比较笨的方法:将子窗口的菜单和主窗口的菜单做成一样!!
返回命令行的参数部分,该命令行用于装入 Microsoft Visual Basic 或 Visual Basic 开发的可执行程序。语法Command说明当从命令行装入 Visual Basic 时,/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中,cmdlineargs 代表 Command 函数返回的参数信息。VB /cmd cmdlineargs对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序,Command 返回出现在命令行中应用程序名之后的任何参数。例如:MyApp cmdlineargs想知道如何在正在使用的应用程序的用户界面中改变命令行参数,请搜寻关于“命令行参数”的帮助。
'声明变量。
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) + CElse
'找到 space 或 tab。
'将 InArg 标志设置成 False。
InArg = False
End If
Next I
'调整数组大小使其刚好符合参数个数。
ReDim Preserve ArgArray(NumArgs)
'将数组返回。
GetCommandLine = ArgArray()
End Function
由于不知道楼主具体想要达到什么效果!所以给不出示例代码!
如果需要的话请把要求写清楚!!
我的联系方式:[email protected]