Imports System.Drawing.Printing
Public Class 对话框示例
Private strPrintRecord As String
Private WithEvents DialogsPrintDocument As PrintDocument
Private strfileName As String
'打开文件的对话框
Private Sub btnOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpen.Click
With OpenFileDialog1
.Filter = "Text Document (*.txt)|*.txt|All Files (*.*)|*.*"
.FilterIndex = 1 '确定在File filter组合框中显示第几个过滤器
.Title = "demo Open file Dialogs"
End With
'showdialog返回一个DialogResult值,只有两个结果:OK,Cancel
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
'保存文件路径和文件名
strfileName = OpenFileDialog1.FileName
'读取文本文件内容
'可以用插入代码段功能:快捷键ctrl+k,ctrl+x,
'基本元素->文件系统->从文本中读取文件
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText(strfileName)