第6章_用户界面设计.pptVIP

Visual Basic 程序设计 第6章 用户界面设计 内容简介 6.1 自定义对话框 对话框是一种特殊类型的窗体对象，可用以下三种方法之一建立。 使用预定义对话框，即由MsgBox或InputBox函数创建的对话框。 使用标准窗体创建自定义对话框。 使用CommonDialog控件创建通用对活框，如“颜色”对话框和“打开文件”对话框。 6.1.1自定义对话框 自定义对话框就是用户所创建的含有控件的窗体,建立步骤： 添加窗体。从“工程”菜单中选取“添加窗体”命令，在工程中添加一个窗体。 定义具有对话框风格的窗体。一般情况下，因为对话框是临时性的，所以，用户通常不需要对它进行移动、改变尺寸、最大化或最小化等操作。通过设置窗体的BorderStyle、 ControlBox、MaxButton和MinButton属性，可以将普通窗体设置成具有对话框风格的窗体。 在对话框上添加按钮。对话框中通常要有两个按钮，其中一个用于确定在对话框中完成的设置或回答，另一个用于关闭该对话框而不做任何改变，例如“确定”与“取消”按钮，通常情况下，将“确定”按钮的Default 属性设置为 True，而将“取消”按钮的Cancel 属性设置为True。 6.1.1自定义对话框 在对话框上添加其他控件。根据对话框要完成的功能在对话框上添加各种控件，如命令按钮、单选按钮、复选框、文本框、框架、图片框等。 在适当的位置编写显示对话框的代码。自定义对话框由普通窗体设计而来，所以显示对话框与显示窗体方法相同，用Show方法实现。 编写从对话框退出的代码。从对话框退出可以使用Unload语句或Hide方法。 6.1.1自定义对话框 【例6-1】设计一个如图6-1所示的对话框，在文本框中输入某文件所在的路径及名称后，单击“运行” 按钮，按所选择的运行风格执行该文件，单击“取消”按钮取消本次操作，如果输入文件名错误，将给出警告并返回该对话框。 6.1.1自定义对话框 Private Sub Comrun_Click() Dim filename As String On Error GoTo errorhandler If Optnor.Value = True Then filename = Shell(Text1.Text, 1) If Optmax.Value = True Then filename = Shell(Text1.Text, 2) If Optmin.Value = True Then filename = Shell(Text1.Text, 3) Exit Sub errorhandler: MsgBox (不能运行程序) Resume Next End Sub Private Sub comunlaod_Click() Unload Me End Sub 6.1.2 滚动条控件 概念 滚动条的作用在于―当窗口里的内容不能完全看到时，滚动条可以帮助我们看到想要看的部分。在VB中提供了两个常规的滚动条控件—Vscroll和Hscroll，分别代表垂直的和水平的滚动条，它们只不过是方向不同而已，而它们的属性，以及会发生的事件都是相同的。 6.1.2 滚动条控件 滚动条控件的常用属性 6.1.2 滚动条控件 滚动条控件的常用事件 6.1.2 滚动条控件 滚动条控件的常用事件 6.1.2 滚动条控件 滚动条控件的应用实例 6.1.2 滚动条控件 设计步骤 1. 设计窗体界面及控件属性 6.1.2 滚动条控件 2. 编写Click事件过程代码 6.1.2 滚动条控件 2. 编写Click事件过程代码 6.1.3 图片框和图像框 6.1.3 图片框和图像框 在VB中，图片可以显示在窗体、图片框、图像框中，支持的图形文件。 在设计阶段是通过对象的Picture属性，在运行阶段是通过LoadPicture函数。LoadPicture函数的语法为： [Object.] Picture = LoadPicture ( 图形文件名及路径 ) 若要删除一个图形文件，可以使用格式LoadPicture ()。 6.1.3 图片框和图像框 【例6－3】将图像框（Image1）Stretch属性为True，可以实现图像框的放大、缩小、恢复尺寸、全屏显示等操作。 Private Sub Cmdblowup_Click() Image1.Height = Image1.Height * 1.05 Image1.Width = Image1.Width * 1.05 End Sub Private Sub C