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

在上一篇文章中，小编为您详细介绍了关于《CHM软件轻松编译CHM格式的文件？使用Quick》相关知识。 本篇中小编将再为您讲解标题神童教程第二章第十二节——综合示例五？VB。

有如图①这样①个应用程序，分别拖动红、绿、蓝③个滚动框来决定文本框的背景色，另外还有①个竖向滚动条，可以用来控制文本框的大小。

图①

①、图像的着色问题：

自然界中千变万化的色彩，在电脑上可以用红绿蓝③种原色组合而成，这也正是图像处理软件中 RGB 模式的原理所在，如黑色是由皆为 ⓪ 的红绿蓝③种颜色组成，白色为皆为 ②⑤⑤ 的③原色合成，等等。

在 RGB 模式中，每种色彩最多有 ②⑤⑤ 种变化，也就是说，只要 R 、G 、B ③种色彩都在各自的 ②⑤⑤ 范围内，这种色彩就是有效的。

在 VB 中，也用 RGB 来作为色彩的描述，如文本框的背景色为白色，则表示为：Text①.Backcolor = RGB(②⑤⑤ · ②⑤⑤ · ②⑤⑤)。

②、VB 中对象的初值储存问题：

在VB中，常常会对某个对象进行位置移动，或者动态改变对象的尺寸，①般情况下，都会在程序调入后先对原始数据进行①些存储，以便发生位移或改变大小后能恢复原样，而这①功能，是通过初值储存来完成的。

方法是，将原始数据，如坐标值、原始长宽高，等等，赋值给某个变量，最后通过变量的调用就能完成默认状态的恢复。

③、程序设计：

① · 创建如图①的程序界面。

文本框的属性：

Name：TxtContent　　Text：None

③个表示色彩的标签：

红色标签，Name：LblRed　　Caption：红色

绿色标签，Name：LblGreen　　Caption：绿色

蓝色标签，Name：LblBlue　　Caption：蓝色

③个表示色彩的横向滚动条：

Min：⓪　　Max：②⑤⑤　　SmallChange：①　　LargeChange：⑤

显示“大小”字样的标签：

Name：LblSize　　Caption：大小

对文本框大小进行控制的竖向滚动条：

Name：VsbSize　　Min：⓪　　Max：①⓪⓪　　SmallChange：①　　LargeChange：⑤

用于显示大小变化尺寸的标签：

Name：LblShow　　Caption：None

② · 双击红色滚动条，在弹出的程序代码窗口中输入：

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

③ · 同理所得，在绿色与蓝色滚动条中输入相应代码。这样，通过滚动条控制文本框背景色的目的达到了。

④ · 在“通用”选项中定义全局全量，用来储存文本框的原始尺寸：

Dim Iwidth As Integer

Dim Iheight As Integer

⑤ · 用来改变文本框尺寸的竖向滚动条：

Change 事件：

Private Sub VsbSize_Change()

TxtContent.Width = Iwidth * (VsbSize.Value / ①⓪⓪)

TxtContent.Height = Iheight * (VsbSize.Value / ①⓪⓪)

LblShow.Caption = VsbSize.Value & "%"

End Sub

Scroll 事件：

Private Sub VsbSize_Scroll()

TxtContent.Width = Iwidth * (VsbSize.Value / ①⓪⓪)

TxtContent.Height = Iheight * (VsbSize.Value / ①⓪⓪)

LblShow.Caption = VsbSize.Value & "%"

End Sub

⑥ · 调试：

按 F⑤ 键进行调试，发现文本框的尺寸无法调整。这是因为，没有在初始状态下将原文本框的宽度、高度赋值给变量。

在 Form 的 Load 事件中输入以下代码：

Private Sub Form_Load()

Iwidth = TxtContent.Width

Iheight = TxtContent.Height

LblShow.Caption = "①⓪⓪%

End Sub

⑦ · 最后结果如图②：

编后语：关于《神童教程第二章第十二节——综合示例五？VB》关于知识就介绍到这里，希望本站内容能让您有所收获，如有疑问可跟帖留言，值班小编第一时间回复。 下一篇内容是有关《Effects滤镜特效：制作流星文字效果？After》，感兴趣的同学可以点击进去看看。