如何打开一文件并将内容写在text中？

Question

我现在有一个command 按钮，当点击这个按钮时要求弹出一个打开文件的对话框，并可以打开一个文件，并将该文件的内容放在text中，这个怎么编写呢~~~

Answer 1

Private Sub Command1_Click()
    Dim strFileName As String
    Dim intFileNo As Integer
    Dim strInput As String
On Error GoTo errSub
    With CommonDialog1
        .FileName = ""
        .DialogTitle = "打开文件"
        .Filter = "文本文件|*.txt"
        .InitDir = App.Path
    End With
    CommonDialog1.ShowOpen      '显示对话框，选择要打开的文件
    strFileName = CommonDialog1.FileName    '录入要打开的文件路径
    If strFileName <> "" Then
        '执行打开文件操作
        intFileNo = FreeFile(0)
        Open strFileName For Input As #intFileNo
        Input #intFileNo, strInput
        Close #intFileNo
        Text1.Text = strInput
    End If
    Exit Sub
errSub:End Sub

Answer 2

OpenFileDialog1.Title = "Open File"
OpenFileDialog1.Filter = "*.*"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If