Visual Basic.NET程序设计教程 陈语林 p08新.pptVIP

第八章 界面设计 8.1 对话框 ⒈ 对话框的分类 Visual Basic.NET中的对话框分为三种类型，即预定义对话框、自定义对话框和通用对话框。 我们将介绍后两种对话框，即自定义对话框和通用对话框。 ⒉ 对话框的特点 8.1.1 通用对话框控件 Visual Basic.NET的通用对话框控件共有6种 ： 8.1.2 打开文件对话框 ⒈ 主要属性、方法和事件 ⑴ Name属性 ⑵ AddExtension属性 ⑶ CheckFileExists属性 ⑷ CheckPathExists属性 ⑸ DefaultExt属性 ⑹ Title属性 ⑺ FileName属性 ⑻ FileNames属性 ⑼ Fileter属性 ⑽ FilterIndex属性 ⑾ InitiaDirectory属性 ⑿ MultiSelect属性 ⒀ RestoreDirectory属性 ⒁ ShowHelp属性 ⒂ ShowReadOnly属性 ⒃ ReadOnlyChecked属性 ⒉ 方法 打开文件对话框主要有以下几个方法： ⑴ Dispose方法：用来释放被对话框使用的所有资源。 ⑵OpenFile方法：以只读方式打开在对话框中所选择的文件，要打开的文件由FileName属性指定。该方法提供了以只读方式打开文件的简便方法，如果不使用该方法，则必须设置ShowReadOnly和ReadOnlyChecked属性，并在对话框中选择只读复选框。 ⑶ ShowDialog方法：显示对话框。用该方法可以显示“打开文件”对话框 ⒊ 事件 打开文件对话框主要有以下几个事件： ⑴ FileOk事件：当用户单击文件对话框中的“打开”按钮时发生该事件。 ⑵ HelpRequest事件：当用户单击通用对话框中的“帮助”按钮时发生该事件。注意，为了使用该事件，必须把对话框控件的ShowHelp属性设置为True。 ⒋ 打开文件对话框举例 【例8-1】 编写程序，建立“打开”对话框，并用该对话框打开指定的文件。 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 通过打开文件对话框打开文件 Button1.Text = 选择文件 Button2.Text = 执行文件 Button3.Text = 退 出 End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ret As Short OpenFileDialog1.FileName = OpenFileDialog1.ShowReadOnly = True OpenFileDialog1.ReadOnlyChecked = True OpenFileDialog1.InitialDirectory = c:\ OpenFileDialog1.Filter = All Files |*.*|(*.exe)|*.exe|(*.TXT)|*.TXT OpenFileDialog1.FilterIndex = 2 OpenFileDialog1.Title = 打开.EXE文件 OpenFileDialog1.ShowDialog() SelectFile = OpenFileDialog1.FileName If SelectFile = Then ret = MsgBox(没有选择文件, 37, 检查) If ret = 2 Then Close() End If Else MsgBox(所选择的文件是： SelectFile) End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click