Private Sub Form_Load()Dim dq As Stringdq = CommandMsgBox dqDim TextLineOpen dq For Input As #1 ' 打開文件。Do While Not EOF(1) ' 循環(huán)至文件尾。Line Input #1, TextLine ' 讀入一行數(shù)據(jù)并將其賦予某變量。Text1.Text = Text1.Text & TextLine & vbNewLine ' 在調(diào)試窗口中顯示數(shù)據(jù)。LoopClose #1 ' 關(guān)閉文件。End Sub上面的是代碼，我想生成exe后雙擊文件就用它打開，但是 運行時錯誤 52 錯誤的文件名或數(shù) 怎樣解決？
2 回答
蕪湖不蕪
TA貢獻1796條經(jīng)驗 獲得超7個贊
Command 函數(shù)用于啟動 Visual Basic 或使用 Visual Basic 開發(fā)的可執(zhí)行程序的命令行的參數(shù)部分。
對于用 Visual Basic 開發(fā)的且編譯為 .exe 文件的應(yīng)用程序，Command 函數(shù)返回在命令行中出現(xiàn)于應(yīng)用程序名稱后的任何參數(shù)，其格式為：MyApp(cmdlineargs)。
示例
此示例使用 Command 函數(shù)返回包含數(shù)組的對象中的命令行參數(shù)。
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條經(jīng)驗 獲得超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) ' 循環(huán)至文件尾。
Line Input #1, TextLine ' 讀入一行數(shù)據(jù)并將其賦予某變量。
Text1.Text = Text1.Text & TextLine & vbNewLine ' 在調(diào)試窗口中顯示數(shù)據(jù)。
Loop
Close #1 ' 關(guān)閉文件。
End Sub
這樣就行了，但是要Command()函數(shù)收到的文件路徑一定是正確才不會出錯！
- 2 回答
- 0 關(guān)注
- 969 瀏覽
添加回答
舉報
0/150
提交
取消