wpf .netcore 打开文件选择对话框_懒猪编程实例五：菜单打开对话框读取文件

上一期做好了菜单中"打开"子菜单，那么点击弹出"打开"对话框后，如何把选定的文件通过程序进行读入呢？

Visual Basic环境

实现将文本文件中的数据读取到窗体上的文本框中

在窗体上放置一个文本框控件，调成适当大小即可

双击"打开"子菜单，加入代码

运行程序，选择打开子菜单，并在弹出的对话框中，选择文本文件，这个文本文件是事先我们准备好的歌词

看到的效果是这样的，上面的文本框显示的是歌词的路径，而下面的文本框显示的是文本的内容，但是歌词并没有显示完全

我们再做一些改动

我们将文本框text2的几个属性修改一下

Scrollbars属性，该属性是滚动条的设置，我们选择最后一项both让水平和垂直都出现滚动条

Multiline属性，改为true，表示可以接受多行文本内容，为false表示不接受多行文本

做好这两个属性的设置后，再来看一下运行结果，可以看到出现了滚动条，我们可以通过拖拽滚动条来显示所有的歌词

程序代码解释

If cd1.FileName = "" Then：如果没有选择文件，也就是文件名为空

Exit Sub：如果没有选择文件，则退出程序

Else：如果选择了文件

Text2.Text = ""：text2文本框中的内容初始化为空

Text1.Text = cd1.FileName：text1文本框中的内容显示的是文件的路径

Open (cd1.FileName) For Input As #1：打开文件并读取内容

Do While Not EOF(1) ：通过While循环来读取文件内容，直到文件结束

Line Input #1, str1：按行进行读取，将读取的内容赋值到字符串变量str1

Text2.Text = Text2.Text & str1：将文本内容的多行数据连接到一行，显示到text2文本框中

Loop：结束本次循环，进入下一个循环

End If：结束本次条件

End Sub：程序结束

这里面用到了Do…While循环语句，关于该语句的具体用法也是比较简单的，当文件没有到结尾的时候，程序就执行循环中的语句，如果文本结束了，则退出循环，EOF(1)表示文件中的文本已经到结尾了，前面加个Not EOF(1)表示没有内容没有到结尾

那么，如何按照文本已经有的格式显示呢？

程序这样修改一下：Text2.Text = Text2.Text & str1 & vbCrLf：加了换行功能

再运行程序，看一下效果，可以看到歌词内容是按照文本文件的原有格式进行显示的