VB 神童教程第二章第十二节——综合示例五.docx

VB神童教程第二章第十二节综合示例五作者：未知阅读人次：28349文章来源：未知发布时间：2004-12-15网友评论(84)条有如图一这样一个应用程序，分别拖动红、绿、蓝三个滚动框来决定文本框的背景色，另外还有一个竖向滚动条，可以用来控制文本框的大小。图一一、图像的着色问题：自然界中千变万化的色彩，在电脑上可以用红绿蓝三种原色组合而成，这也正是图像处理软件中 RGB 模式的原理所在，如黑色是由皆为 0 的红绿蓝三种颜色组成，白色为皆为 255 的三原色合成，等等。在 RGB 模式中，每种色彩最多有 255 种变化，也就是说，只要 R 、G 、B 三种色彩都在各自的 255 范围内，这种色彩就是有效的。在 VB 中，也用 RGB 来作为色彩的描述，如文本框的背景色为白色，则表示为：Text1.Backcolor = RGB(255，255，255)。二、VB 中对象的初值储存问题：在VB中，常常会对某个对象进行位置移动，或者动态改变对象的尺寸，一般情况下，都会在程序调入后先对原始数据进行一些存储，以便发生位移或改变大小后能恢复原样，而这一功能，是通过初值储存来完成的。方法是，将原始数据，如坐标值、原始长宽高，等等，赋值给某个变量，最后通过变量的调用就能完成默认状态的恢复。三、程序设计：1、创建如图一的程序界面。文本框的属性：Name：TxtContentText：None三个表示色彩的标签：红色标签，Name：LblRedCaption：红色绿色标签，Name：LblGreenCaption：绿色蓝色标签，Name：LblBlueCaption：蓝色三个表示色彩的横向滚动条：Min：0Max：255SmallChange：1LargeChange：5显示“大小”字样的标签：Name：LblSizeCaption：大小对文本框大小进行控制的竖向滚动条：Name：VsbSizeMin：0Max：100SmallChange：1LargeChange：5用于显示大小变化尺寸的标签：Name：LblShowCaption：None2、双击红色滚动条，在弹出的程序代码窗口中输入：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 Sub3、同理所得，在绿色与蓝色滚动条中输入相应代码。这样，通过滚动条控制文本框背景色的目的达到了。4、在“通用”选项中定义全局全量，用来储存文本框的原始尺寸：Dim Iwidth As IntegerDim Iheight As Integer5、用来改变文本框尺寸的竖向滚动条：Change 事件：Private Sub VsbSize_Change()TxtContent.Width = Iwidth * (VsbSize.Value / 100)TxtContent.Height = Iheight * (VsbSize.Value / 100)LblShow.Caption = VsbSize.Value & %End SubScroll 事件：Private Sub VsbSize_Scroll()TxtContent.Width = Iwidth * (VsbSize.Value / 100)TxtContent.Height = Iheight * (VsbSize.Value / 100)LblShow.Caption = VsbSize.Value & %End Sub6、调试：按 F5 键进行调试，发现文本框的尺寸无法调整。这是因为，没有在初始状态下将原文本框的宽度、高度赋值给变量。在 Form 的 Load 事件中输入以下代码：Private Sub Form_Load()Iwidth = TxtContent.WidthIheight = TxtContent.HeightLblShow.Caption = 100%End Sub7、最后结果如图二：图二文章录入：静夜思责任编辑：静夜思 上一篇文章：VB神童教程第二章第十一节滚动条 下一篇文章：VB神童教程第二章第十三节Timer控件最新评论：已有84位感兴趣的读者发表了看法BCCN网友ip：58.20.41.*2012-12-21 11:07:06 发表写得很好，我喜欢。BCCN网友ip：117.138.79.*2012-10-19 16:08:10 发表无法找到数据源？BCCN网友ip：113.108.160.*2012-10-17 16:22:31 发表的范德萨BCCN网友ip：58.242.129.*2012-9-24 8:56:34 发表真的很不错，都是想着学习忘了评论。好评哦BCCN网友ip：182.111.186.*2012-9-22 16:13:02 发表VB小白500人超级QQ群：200153276欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级QQ群：200153276欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级QQ群：200153276欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！BCCN网友ip：180.136.80.*2012-9-3 22:05:47 发表百分比那里需要1-（%）BCCN网友ip：58.214.9.*2012-8-7 10:39:01 发表老师化了不少精力来写这个教程，真的非常感谢！BCCN网友ip：122.159.55.*2012