小技巧——读取文本文件并显示到文本框中
第一步,在工具箱添加OpenFileDialog控件
第二步 openfiledialog 属性 filter设置为:
文本文件(*.txt)|*.txt|配置文件(*.ini*)|*.ini*|所有文件(*.*)|*.*
第三步 添加如下代码:(先添加一个按钮和Box)
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickIf OpenFileDialog2.ShowDialog() = DialogResult.OK ThenTryBox3.Text = OpenFileDialog2.FileNameBox2.Text = puter.FileSystem.ReadAllText(OpenFileDialog2.FileName, System.Text.Encoding.Default) '读取TXT文件内容ANSI编码Catch ex As ExceptionMessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)End TryEnd IfEnd Sub