VB 神童教程第二章第十二節——綜合示例五

2024-07-16 17:58:45

字體：大中小

來源：轉載

供稿：網友

有如圖一這樣一個應用程序，分別拖動紅、綠、藍三個滾動框來決定文本框的背景色，另外還有一個豎向滾動條，可以用來控制文本框的大小。

圖一

一、圖像的著色問題：

自然界中千變萬化的色彩，在電腦上可以用紅綠藍三種原色組合而成，這也正是圖像處理軟件中 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

上一篇：VB 神童教程第二章第十一節——滾動條

下一篇：VB 神童教程第四章第一節——菜單界面設計