VB高手帮我看一下这代码怎么编写？

来源：百度知道 编辑：UC知道 时间：2024/06/01 12:42:23
在窗体上有一个commondialog,text1 commond三个控件，我想单击commond时，打开一个*.txt文件，让它在text1里显示出来？
用代码怎么编写？
谢谢

Private Sub Command4_Click()
With CommonDialog2
.Filter = "(Text Document)*.txt|*.txt"
.DialogTitle = "Open"
.ShowOpen
If .FileName = "" Then Exit Sub
i = FreeFile
Open .FileName For Input As #i
Do While Not EOF(i)
Line Input #i, s
Text1.Text = Text1.Text & s & vbCrLf
DoEvents
Loop
Close #i
End With
End Sub