用VB编写的exe程序,怎样才能让程序启动时加载选中的文件内容?
来源:百度知道 编辑:UC知道 时间:2024/08/22 08:03:30
比如编写一个简单的文档编辑程序,生成为Model.exe。然后选中我在F盘的一个名为test.txt的文件,右键选择打开方式,“选择程序”选中Model.exe,点击确定,Model.exe确实启动了,可是里面没有test.txt里面的内容。郁闷,不知道在Form_load()子程序里面应该怎么设置,希望知道的朋友指点一下。我是VB新手……
Private Sub MDIForm_Load()
Dim SS As String
Dim tmp As String
SS = Command
If SS <> "" Then
'注,如果是把欲打开文件拖拽到可执行程序上,则SS=文件路径名
'如果是点击文件右键选择可执行程序(本程序)打开,则SS="文件路径名"
'多出来的双引号必须去掉才能被Open语句识别,因为 Open在处理其后面的字符串时
'会自动为字符串内容加上双引号
'MsgBox SS
If Left(SS, 1) = """" Then
SS = Mid(SS, 2, Len(SS) - 2)
' MsgBox SS
End If
If frmMDI.ActiveForm Is Nothing Then
' MsgBox "123456789"
FileNewProc
End If
Open SS For Input As #1
Do While Not EOF(1)
Line Input #1, tmp
frmMDI.ActiveForm.RichTextBox1.Text = frm
Private Sub MDIForm_Load()
Dim SS As String
Dim tmp As String
SS = Command
If SS <> "" Then
'注,如果是把欲打开文件拖拽到可执行程序上,则SS=文件路径名
'如果是点击文件右键选择可执行程序(本程序)打开,则SS="文件路径名"
'多出来的双引号必须去掉才能被Open语句识别,因为 Open在处理其后面的字符串时
'会自动为字符串内容加上双引号
'MsgBox SS
If Left(SS, 1) = """" Then
SS = Mid(SS, 2, Len(SS) - 2)
' MsgBox SS
End If
If frmMDI.ActiveForm Is Nothing Then
' MsgBox "123456789"
FileNewProc
End If
Open SS For Input As #1
Do While Not EOF(1)
Line Input #1, tmp
frmMDI.ActiveForm.RichTextBox1.Text = frm
在form_load下编写如下代码:
Private Sub Form_Load()
Dim cmd As String
cmd = Command
If cmd <> "" Then
'在此添加你处理test.txt的内容
'以下为示例:
Open cmd For Input As #1
Do While Not EOF(1)
Line Input #1, tmp
Text1.Text = Text1.Text & tmp
Loop
Close #1
Else
'程序未被命令打开任何文件
End If
End Sub
你用来打开。传来文件名你没有处理。把文件名接收后再用你的想法打开显示出来。
command变量中的内容就是程序启动时的参数内容,从中可以得到test.txt的文件名了