Question

如何实现双击*.txt文件用自己编的一个记事本打开,并显示其内容

文件关联已经实现了，但是双击打开后是空白，怎么实现直接打开其内容。
filename= replace(command$,""","")这串代码是放在form_load 下面还是哪里啊？

Answer 1

'TextBox1是文本框的名字
If Command$ <> "" Then '如果有命令行参数
Dim strAll As String, strLine As String
Open Command$ For Input As #1
While Not EOF(1)
Input #1, strLine
strAll = strAll & strLine & vbCrLf
Wend
TextBox1.Text = strAll
Close #1
End If