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 錯誤的文件名或數 怎樣解決？
2 回答
蕪湖不蕪
TA貢獻1796條經驗 獲得超7個贊
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
鴻蒙傳說
TA貢獻1865條經驗 獲得超7個贊
添加一個模塊文件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()函數收到的文件路徑一定是正確才不會出錯！
- 2 回答
- 0 關注
- 973 瀏覽
添加回答
舉報
0/150
提交
取消