VB第5章.ppt

5.6框架的使用 对象 属性 设置 窗体 （名称） Form1 Caption 框架的使用 标签 （名称） Label1 Caption 置空 框架1 （名称） fraFont Caption 字体 框架2 （名称） fraSize Caption 字号 框架3 （名称） fraColor Caption 颜色 单选按钮1 （名称） optFont1 Caption 宋体 单选按钮2 （名称） optFont2 Caption 隶书 单选按钮3 （名称） optFont3 Caption 幼圆 单选按钮4 （名称） optSize1 Caption 14点 单选按钮5 （名称） optSize2 Caption 18点 单选按钮6 （名称） optSize3 Caption 22点 单选按钮7 （名称） optColor1 Caption 蓝色 单选按钮8 （名称） optColor2 Caption 紫色 单选按钮9 （名称） optColor1 Caption 绿色 命令按钮1 （名称） cmdShow Caption 显示 命令按钮2 （名称） cmdExit Caption 结束 5.6框架的使用 在Form_Load事件过程中设置字体、字号和颜色的初始值，代码如下： Private Sub Form_Load() OptFont1.Value = True Optsize1.Value = True OptColor1.Value = True Label1.FontName = 宋体 Label1.FontSize = 14 Label1.ForeColor = QBColor(9) Label1.Caption = 欢迎使用Visual Basic End Sub 设置标签的字体，字号，颜色 5.6框架的使用 单击“显示”命令按钮，根据各单选按钮的状态，改变标签中文字的属性值。过程代码如下： Private Sub cmdShow_Click() If OptFont1.Value Then Label1.FontName = 宋体 If OptFont2.Value Then Label1.FontName = 隶书 If OptFont3.Value Then Label1.FontName = “幼圆” If Optsize1.Value Then Label1.FontSize = 14 If OptSize2.Value Then Label1.FontSize = 18 If OptSize3.Value Then Label1.FontSize = 22 If OptColor1.Value Then Label1.ForeColor = QBColor(9) If OptColor2.Value Then Label1.ForeColor = QBColor(13) If OptColor3.Value Then Label1.ForeColor = QBColor(10) End Sub 确定字体 确定颜色 确定字号大小 单击单选按钮时，不立即改变标签中文字的属性，改变属性的操作是由单击“显示”命令按钮触发 5.6框架的使用 （1）使用框架时应该注意：要先在窗体中画出框架，再在框架内添加单选按钮。使单选按钮（以及其它控件）和框架形成一个整体，如果移动框架，框架中的单选按钮（以及其它对象）均应随框架一起移动。 （2） 复选框、单选按钮使用异同： 二者都可用来选中某一个选项 多个复选框是彼此独立无关的，适用于某一种事情有两种不同的状态选择。 单选按钮适用于在多个互斥的选项中选择一个，将若干单选按钮按功能类型分组，放在不同的框架中。单选按钮一定是成组使用，多个选项中选择一个。 5.7 鼠标和键盘事件 5.7.1 鼠标事件 当鼠标移动（Mouse Move）、按下鼠标键（Mouse Down）、释放鼠标键（Mouse Up）、单击（Click）、双击（Double Click）等操作时，都会触发相应的鼠标事件。 1．MouseDown事件 当按下鼠标键就会触发MouseDown事件 5.7.1 鼠标事件 【例5-10】鼠标的MouseDown事件。 在窗体上添加一个图片框，在属性窗口设置图片框的Picture属性，为图片框加载一幅图片。窗体外观如图所示。要求运行程序时，用鼠标单击窗体，则图片框移动到鼠标单击的位置。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X