用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

在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的文件名了

怎样将EXE（vb编写转译的）转化成vb程序请问，怎样打开用VB编写的.exe 文件？用VB编写程序用vb编写发送邮件的程序用VB编写三角函数的程序用vb编写的程序能不能移动用vb编写计算器的代码程序怎么打VB编写的EXE转换成可在VB程序中编程的格式化 VB编写程序的步骤 VB编写的打字程序