如何在视图中使用ORDER BY短语
2007-11-11 07:44:04 来源:WEB开发网核心提示: Option Explicit Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String Private Declare Function GetCu
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
更多精彩
赞助商链接