vb 的command函数?

Question

Private Sub Form_Load()Dim dq As Stringdq = CommandMsgBox dqDim TextLineOpen dq For Input As #1 ' 打开文件。Do While Not EOF(1) ' 循环至文件尾。Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。Text1.Text = Text1.Text & TextLine & vbNewLine ' 在调试窗口中显示数据。LoopClose #1 ' 关闭文件。End Sub上面的是代码，我想生成exe后双击文件就用它打开，但是 运行时错误 52 错误的文件名或数 怎样解决？

Answer 1

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

Answer 2

添加一个模块文件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()函数收到的文件路径一定是正确才不会出错！