《对话框设计.docVIP

对话框设计 实验目的 熟悉公共对话框的使用 熟悉对话框的设计 实验内容与操作指导 说明：在E盘下建立自己的学号文件夹，将完成以下题目的相关文件均存放到此文件夹下。 设计应用程序，练习“打开”对话框的使用。 【要求】如图所示，当单击“打开图片”按钮时，弹出“打开”对话框，选择图像文件，并将其显示在PictureBox控件中；单击“清除图片”按钮时，PictureBox中的图像被清除；单击“退出”按钮时，程序结束。 【操作过程】 在工具箱中添加“公共对话框”控件。 公共对话框不是VB标准的控件，需要把公共对话框添加到工具箱，操作步骤如下： ● 单击“工程”菜单中的“部件”命令，弹出“部件”对话框。 ● 在“控件”选项卡中选择“Microsoft Common Dialog Control 6.0”。 ● 单击“确定”按钮。 这样就在工具箱中添加了“公共对话框”控件。 (2) 单击工具箱中的“PictureBox”控件，将该控件添加到“Form1”窗口中，并由系统命名为“Picture1”，该控件用于显示用户在“打开”对话框中选定的文件。 ● 在“Form1”窗口中添加3个命令按钮Command1、Command2和Command3，分别作为“打开图片”、“清除图片”和“退出”按钮。 ● 双击工具箱中的“CommonDialog”控件，并将其添加到“Form1”中，程序框架如上图所示。 编写程序代码 “打开”按钮的事件代码 Private Sub Command1_Click() On Error GoTo err1 CommonDialog1.CancelError = True CommonDialog1.Filter = All Files(*.*)|*.*|BMP Files(*.BMP)|*.bmp|JPG Files(*.jpg)|*.jpg CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen Picture1.Picture = LoadPicture(CommonDialog1.FileName) err1: Exit Sub End Sub “清除”按钮的事件代码 Private Sub Command2_Click() Picture1.Picture = LoadPicture() End Sub “退出”按钮的事件代码 Private Sub Command3_Click() End End Sub 【思考题1】想想On Error GoTo err1，这句代码在这里起什么作用？ 设计应用程序，练习“字体”对话框和“颜色”对话框的使用。 【要求】当单击“字体”按钮时，弹出“字体”对话框，可选择需要的字体；当单击“颜色”按钮时，弹出“颜色”对话框，可选择需要的标签颜色。 【操作过程】 ① 添加公共对话框控件 操作过程如同【 例1】 ② 将“Commondialog”控件添加到窗体中。 ③ 在“Form1”中添加一个标签、一个文本框和三个命令按钮。 ④ 设置各个控件的属性，如表所示。 ⑤ 编写程序代码 Private Sub Command1_Click() On Error GoTo err1 CommonDialog1.Flags = 1 CommonDialog1.Color = BackColor CommonDialog1.Action = 3 Label1.BackColor = CommonDialog1.Color err1: Exit Sub End Sub Private Sub Command2_Click() On Error GoTo err2 CommonDialog1.Flags = cdlCFBoth CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName 选择字体名称 Text1.FontSize = CommonDialog1.FontSize 选择字体大小 Text1.FontBold = CommonDialog1.FontBold 选择是否为“粗体” Text1.FontItalic = CommonDialog1.FontItalic 选择是否为“斜体” Text1.ForeColor = CommonDialog1.Color 字体颜色为标签选择颜色 err2: Exit Sub End Sub Private Sub Command3_Click() End End Sub 表