Question

求教vb.net中的openfiledialog控件。

Answer 1

额，怎么说呢，我举个例子吧，你自己做做

先画一个TextBox，设置成多行显示，边缘尽量靠近窗体边缘（要容得下多排文本就行），也可以设置ScrollBar属性（值为Vertical）来添加滚动条，还要一个Button按钮控件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Text As String = "", Line As String = "" '声明一个名为Text的String类型变量用于储存TextBox.Text的值， 'Line变量用于储存被打开文件中的每一行文本 OpenFileDialog1.Filter = "Text File (*.txt)|*txt" '设置打开的文件类型为 .txt OpenFileDialog1.ShowDialog() '显示打开对话框 If OpenFileDialog1.FileName <> "" Then '如果文件路径不为空则执行Then后面的语句 Try '使用Try...Catch语句捕获和处理执行代码过程中的错误 FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) '打开文件 Do Until EOF(1) '使用Do Until语句和EOF函数来确定是否读到了文件内容的最后，如果读到最后则跳出循环 Line = LineInput(1) '使用LineInput函数为Line变量赋值 Text = Text & Line & vbCrLf '将Line变量的值持续赋给Text变量，并且每赋一次值就换行 Loop '继续循环，知道文件内容被读取完最后一行才跳出循环 TextBox1.Text = Text '将Txet的值赋给TextBox1.Text，使文件内容显示在文本框中 Catch ex As Exception MsgBox(ex.Message) '如果操作文件出现错误则弹出错误信息 Finally FileClose() '文件操作结束后关闭文件 End Try End If End Sub

</p>