vb程序设计课件汇总全书电子教案完整版课件.ppt

长整数 常 量 表示颜色 vbScrollBars 滚动条颜色 vbDesktop 桌面颜色 vbActiveTitlebar 活动窗口的标题栏颜色 vbInactiveTitlebar 非活动窗口的标题栏颜色 vbMenuBar 菜单背景色 vbWindowBackground 窗口背景色 vbWindowFrame 窗口框架颜色 vbMenuText 菜单文本颜色 vbWindowText 窗口文本颜色 vbTitleBarText 标题栏文本颜色 H8000000A vbActiveBorder 活动窗口边框颜色 H8000000B vbInactiveBorder 非活动窗口边框颜色 H8000000C vbApplicationWorkspace 多文档界面（MDI）应用程序的背景色 H8000000D vbHighlight 控件中选中项目的背景色 H8000000E vbHighlightText 控件中选中项目的文本颜色 H8000000F vbButtonFace 命令按钮表面阴影颜色 vbButtonShadow 命令按钮边缘阴影颜色 vbGrayText 无效文本颜色 vbButtonText 按钮文本颜色 vbInactiveCaptionText 非活动标题文本颜色 vb3DHighlight 三维显示元素的突出显示颜色 vb3DDKShadow 三维显示元素的最深阴影颜色 vb3DLight vb3DHighlight之外最亮的三维颜色 vbInfoText 工具提示文本颜色 vbInfoBackground 工具提示背景色 表9-1 系统颜色值 4.使用颜色常量 VB为一些常用颜色定义了内部常量，见表9-2。颜色常量由颜色的英文单词组成，易于记忆。 常量 值 颜色 常量 值 颜色 vbBlack H0 黑色 vbBlue HFF0000 蓝色 vbRed HFF 红色 vbCyan HFFFF00 青色 vbGreen HFF00 绿色 vbMagenta HFF00FF 紫红 vbYellow HFFFF 黄色 vbWhite HFFFFFF 白色 表9-2 内部颜色常量 5.使用QBColor函数 格式：QBColor（Color） 说明：参数Color代表早期Basic版本的颜色值，仅限于0～15之间的整数。QBColor函数根据参数Color返回一个表示颜色的长整型数。不同的参数值与返回颜色的对应关系见表9-3。 参数值 颜色 参数值 颜色 参数值 颜色 参数值 颜色 0 黑 4 红 8 灰色 12 亮红 1 蓝 5 洋红 9 亮蓝 13 亮洋红 2 绿 6 黄 10 亮绿 14 亮黄 3 青 7 白 11 亮青 15 亮白 表9-3 QBColor函数的参数与返回颜色 【例9-1】用条状图显示QBColor函数的颜色代码0～15所对应的颜色。 分析：用Line方法在窗体上绘制矩形，用QBColor函数填充颜色。 程序代码如下： Private Sub Form_Click() Width = 7000: Height = 4000 设置窗体的宽和高 For i = 0 To 15 Line (50 + i * 400, 50)-Step(400, 3000), QBColor(i), BF CurrentX = CurrentX - 400 定位当前X坐标值 Print i 在当前坐标处，打印颜色代码 Next i End Sub 程序运行结果如图9-1所示。 图9-1 QBColor函数设定的颜色 9.2 与绘图有关的属性 在VB中可以直接在窗体和图形框上输出文字或绘图，它们拥有与绘图有关的一些属性和方法，本节学习窗体和图形框具有的与绘图有关的属性。 1.CurrentX属性、CurrentY属性 窗体和图形框都有这两个属性。CurrentX属性、CurrentY属性分别表示在当前坐标系统下，在窗体或图形框上显示的文字或图形起始点的水平坐标和垂直坐标。 这两个属性只能在程序中使用，不能在程序设计阶段设定。 【例9-2】在VB默认坐标系，输出图9-2所示图案。 分析：利用窗体的CurrentX、CurrentY属性指定Pr