Public sendlabel As String
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Label1_Click()
sendlabel = "aa"
Call ShellExecute(Form1.hwnd, "open", "C:\Project2.exe", sendlabel, vbNullString, &H0)
End Sub如何在C:\Project2.exe获取sendlabel的值?
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Label1_Click()
sendlabel = "aa"
Call ShellExecute(Form1.hwnd, "open", "C:\Project2.exe", sendlabel, vbNullString, &H0)
End Sub如何在C:\Project2.exe获取sendlabel的值?
解决方案 »
- java或者javaccript 怎么调用OCX控件?具体点,最好有代码,谢谢,有高手指教更好。
- 如何获取临时表的表名、读取临时表的记录?
- 如何设定vb中的默认字体大小呀?比如文本框,标签的字体。
- 求助一个入门级问题,声明的API函数的参数与VB的关键字相同
- 我用DbComoboBox控件调用数据库中表的一个字段集。。。。。????
- 几sql语句的问题,简单
- 请教高手们一个远程控制问题?
- 请教大家两个问题?急需帮助!!
- 在vb中不用access数据库,如何自己做一个如同数据库功能的东东来代替?
- API函数之SetWindowLong
- dhtml 的问题,100分
- 软件注册问题!向高手致敬!!!
vb 估计要用GetCommandLine
sub form_load()
msgbox Command
end sub
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