VB中如何设置程序启动参数

如何在VB中使用命令行参数

发布时间：2006.08.16 00:39 来源：plwww作者：

Option Explicit

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String Private Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long Private

Sub Form_Load()

Text1.Text = GetCommandLine() '法一：返回值拿迅中带有，应用程序友指本身的全路径。

Text2.Text = Command '法二：返回值中只有所传好敏配的参数。

End Sub

如：应用程序为：D:\VB\TEST.EXE 在命令行执行：test param1

则：Text1.text="D:\VB\TEST.EXE" param1

而：Text2.text=param1

你樱则添加一个模块，模块里写：

Sub

Main()

Dim

strcmd

As

String

strcmd

=

Command()

If

strcmd

=

"1"

Then

Form1.Show

Else

End

End

If

End

Sub

然后，在“工程”－“属性”－“通用”里设置启动对象为Sub

Main()，再生成test.exe，就脊誉棚可以实现你的虚顷目的了

---