当前页面位置: » 丰搜网 » 文档中心 » 详细内容
vb 神童教程第二章第十二节——综合示例五
有如图一这样一个应用程序，分别拖动红、绿、蓝三个滚动框来决定文本框的背景色，另外还有一个竖向滚动条，可以用来控制文本框的大小。
图一
一、图像的着色问题：
自然界中千变万化的色彩，在电脑上可以用红绿蓝三种原色组合而成，这也正是图像处理软件中 rgb 模式的原理所在，如黑色是由皆为 0 的红绿蓝三种颜色组成，白色为皆为 255 的三原色合成，等等。
在 rgb 模式中，每种色彩最多有 255 种变化，也就是说，只要 r 、g 、b 三种色彩都在各自的 255 范围内，这种色彩就是有效的。
在 vb 中，也用 rgb 来作为色彩的描述，如文本框的背景色为白色，则表示为：text1.backcolor = rgb(255，255，255)。
二、vb 中对象的初值储存问题：
在vb中，常常会对某个对象进行位置移动，或者动态改变对象的尺寸，一般情况下，都会在程序调入后先对原始数据进行一些存储，以便发生位移或改变大小后能恢复原样，而这一功能，是通过初值储存来完成的。
方法是，将原始数据，如坐标值、原始长宽高，等等，赋值给某个变量，最后通过变量的调用就能完成默认状态的恢复。
三、程序设计：
1、创建如图一的程序界面。
文本框的属性：
name：txtcontent text：none
三个表示色彩的标签：
红色标签，name：lblred caption：红色
绿色标签，name：lblgreen caption：绿色
蓝色标签，name：lblblue caption：蓝色
三个表示色彩的横向滚动条：
min：0 max：255 smallchange：1 largechange：5
显示“大小”字样的标签：
name：lblsize caption：大小
对文本框大小进行控制的竖向滚动条：
name：vsbsize min：0 max：100 smallchange：1 largechange：5
用于显示大小变化尺寸的标签：
name：lblshow caption：none
2、双击红色滚动条，在弹出的程序代码窗口中输入：
private sub hsbred_change()
txtcontent.backcolor = rgb(hsbred.value, hsbgreen.value, hsbblue.value)
end sub
另外，就 hsbred 的 scroll 事件也输入上面的代码：
private sub hsbred_scroll()
txtcontent.backcolor = rgb(hsbred.value, hsbgreen.value, hsbblue.value)
end sub
3、同理所得，在绿色与蓝色滚动条中输入相应代码。这样，通过滚动条控制文本框背景色的目的达到了。
4、在“通用”选项中定义全局全量，用来储存文本框的原始尺寸：
dim iwidth as integer
dim iheight as integer
5、用来改变文本框尺寸的竖向滚动条：
change 事件：
private sub vsbsize_change()
txtcontent.width = iwidth * (vsbsize.value / 100)
txtcontent.height = iheight * (vsbsize.value / 100)
lblshow.caption = vsbsize.value & "%"
end sub
scroll 事件：
private sub vsbsize_scroll()
txtcontent.width = iwidth * (vsbsize.value / 100)
txtcontent.height = iheight * (vsbsize.value / 100)
lblshow.caption = vsbsize.value & "%"
end sub
6、调试：
按 f5 键进行调试，发现文本框的尺寸无法调整。这是因为，没有在初始状态
下将原文本框的宽度、高度赋值给变量。
在 form 的 load 事件中输入以下代码：
private sub form_load()
iwidth = txtcontent.width
iheight = txtcontent.height
lblshow.caption = "100%"
end sub
7、最后结果如图二：
图二
