vb 的command函数

发布网友发布时间：2022-04-26 21:32

共4个回答

热心网友时间：2023-11-05 09:35

建议你看一下Command返回值，只要是文件路径中有空格，Windows就会加上引号
比如用你的程序打开C:\1 2.TXT那么命令行是“C:\1 2.TXT”
所以建议你加上去掉引号的语句，改成如下：
Private Sub Form_Load()

Dim dq As String
dq = Command
If Len(dq) = 0 Then End‘如果没有命令行则退出
If Left(dq, 1) = """" Then dq = Mid(dq, 2, Len(dq - 1))'如果有双引号则去掉
MsgBox dq
Dim TextLine
Open dq For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Text1.Text = Text1.Text & TextLine & vbNewLine ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件。

End Sub

热心网友时间：2023-11-05 09:35

Command 函数用于启动 Visual Basic 或使用 Visual Basic 开发的可执行程序的命令行的参数部分。
对于用 Visual Basic 开发的且编译为 .exe 文件的应用程序，Command 函数返回在命令行中出现于应用程序名称后的任何参数，其格式为：MyApp(cmdlineargs)。

示例

此示例使用 Command 函数返回包含数组的对象中的命令行参数。
VB
Function GetCommandLineArgs() As String()
' Declare variables.
Dim separators As String = " "
Dim commands As String = Microsoft.VisualBasic.Interaction.Command()
Dim args() As String = commands.Split(separators.ToCharArray)
Return args
End Function

热心网友时间：2023-11-05 09:36

你还不如用我下面这个函数，也是声成exe文件，然后把记事本拖进去，看看发生了什么。应该是你要的效果吧。记住是记事本哦，并不是什么都可以打开的。
Private Sub Form_Load()
Shell "notepad " & Command(), vbNormalFocus
End Sub

热心网友时间：2023-11-05 09:36

添加一个模块文件Moudel1
模块代码：
Public Dq as String
Sub Main()
Dq=Command()
End Sub
其他代码不需要，然后把你的代码稍改写一些：
Private Sub Form_Load()
MsgBox dq‘保留！查看效果
Dim TextLine
Open dq For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Text1.Text = Text1.Text & TextLine & vbNewLine ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件。

End Sub
这样就行了，但是要Command()函数收到的文件路径一定是正确才不会出错！

热心网友时间：2023-11-05 09:35

热心网友时间：2023-11-05 09:36