亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

vb 的command函數?

vb 的command函數?

夢里花落0921 2019-02-06 14:07:39
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

查看完整回答
反對 回復 2019-03-10
?
鴻蒙傳說

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()函數收到的文件路徑一定是正確才不會出錯!

 


查看完整回答
反對 回復 2019-03-10
  • 2 回答
  • 0 關注
  • 973 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號