Question

关于vb.net的openfiledialog控件这段代码里的结果是乱码，我把txt改成了word文档，求解

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim word As String = "", Line As String = "" '声明一个名为Text的String类型变量用于储存TextBox.Text的值， 'Line变量用于储存被打开文件中的每一行文本 OpenFileDialog1.Filter = "word File (*.docx)|*docx" '设置打开的文件类型为 .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变量赋值 word = word & Line & vbCrLf '将Line变量的值持续赋给Text变量，并且每赋一次值就换行 Loop '继续循环，知道文件内容被读取完最后一行才跳出循环 TextBox1.Text = word '将Txet的值赋给TextBox1.Text，使文件内容显示在文本框中 Catch ex As Exception MsgBox(ex.Message) '如果操作文件出现错误则弹出错误信息 Finally FileClose() '文件操作结束后关闭文件 End Try End If End Sub

Answer 1

openfiledialog只是获取文件的路径，与打开文件无关，word文档不是文本文件，你的代码只能打开文本类文件，或只能以文本方式打开文件。
打开word文档，需要引用office，关于office的引用，可以百度