vb笔记第六章(4)

2019-02-16 00:44

的 Value 属性值的改变量。

二、常用事件 Change事件

在使用鼠标单击滚动条两头的滚动箭头时或拖动滑块后松开鼠标时发生的,还可以在程序中通过代码改变 Value 属性的设置时激活此事件。

例:用滚动条改变颜色属性值。

程序的运行时,移动红色、绿色、蓝色水平滚动条可以改变窗口上部图片框的颜色。

所有的颜色都是由三种基本颜色(三原色):红色、绿色和蓝色按一定的比例合成的,WINDOWS中生成就利用这个特点生成各种颜色的,共有三种方法: ①、语法:QBColor(color)

QBColor函数返回一个颜色码。color参数是一个界于0到15的整型。

color参数常用值对应如下: 值 颜色 值 颜色 0 黑色 8 灰色 1 兰色 9 亮兰色 2 绿色 10 亮绿色

3 青色 11 亮青色 4 红色 12 亮红色 5 洋红色 13 亮洋红色 6 黄色 14 亮黄色 7 白色 15 亮白色 如:text1.forecolor=QBCOLOR(4)

②、常量法(符号常量法)

颜色 符号常量 数值 黑色 VBBlack 0或H0 红色 VBRed 255或HFF 绿色 VBGreen 65280或HFF00 黄色 VBYellow 65535

蓝色 VBBlue 16711680或HFF0000 洋红 VBMagenta 16711935 青色 VBCyan 16776960 白色 VBWhite 16777215 如:text1.forecolor=VBred

③、RGB合成法

RGB合成法可以合成各种各种的颜色。 使用语法: RGB(red, green, blue)

red、green和blue参数的数值范围是从 0 到 255,各自表示颜色中的红色成份、绿色成分和蓝色成分。

例:编写如下图所示的程序:

说明:当三个滚动条值改变时,picture1背景色设置为当前rgb(红,绿,兰),label4的文字颜色与picture1的背景色相同,同时picture2显示当前红,绿,兰的取值信息。 主要控件属性取值如下:

三个滚动条:min=0 max=255 largechange=10 picture1: borderstyle值为0,无边框

picture2: align为2,即靠底端。borderstyle值为1,有边框,autoredraw(自动重绘)为true。(否则,在初次运行,或最小化时,改变窗体大小时,会出现不正常情况)

Private Sub HScroll1_Change() Picture1.Cls

Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text1.ForeColor = Label1.BackColor

Picture1.Print \红:\绿:\HScroll2.Value; \兰\ End Sub

Private Sub HScroll2_Change() Picture1.Cls

Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

Text1.ForeColor = Label1.BackColor

Picture1.Print \红:\绿:\HScroll2.Value; \兰\End Sub

Private Sub HScroll3_Change() Picture1.Cls

Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

Text1.ForeColor = Label1.BackColor

Picture1.Print \红:\绿:\HScroll2.Value; \兰\End Sub

(14)列表框(Listbox)

常用的属性:

listcount:列表框中条目的个数.

list(i)-->列表框中第i项的内容,第一项的内容为list(0)

selected(i)-->列表框中第i项是否被选中,值为true或false

text-->列表框中被选中的条目的内容. listindex:返回所选择的项的序号(从0开始)

style-->列表框的样式.0-->标准,1-->复选框样式(可以多选)

multiselect:列表框中是否可以进行多重选择.0-->不能. 1-->依次单击可以多选

2-->按shift键和ctrl键再单击可以多选. sorted:表示列表框的条目是否进行排序. 常用方法:

添加条目到列表框:

additem 要添加的条目的内容


vb笔记第六章(4).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:六教[2008]57号 - 六安市

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: