程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 用VB編寫調色板

用VB編寫調色板

編輯：VB綜合教程

在VB程序中經常會用到背景色彩(backcolor)和前景色彩(forecolor)來設置顏色，除了調出調色板直接選用相應的顏色外，在代碼中我們也經常根據程序需要而改變其色彩的設置。學過VB的人都知道有兩個函數來表示顏色，一個是QBCOLOR（），一個是RGB（R，G，B）。前者只能生成16種色彩，而後者可用來設置更加豐富多彩的顏色，但參數設置卻很難掌握。怎麼樣才能正確設置出你所想要的色彩呢？下面我們就一起來編寫一個小程序。
　　
　　第一步：新建一個工程，設置用戶界面及各控件屬性如下：
　　-width="100">->

三個滾動條設置：min:0；max:255；smallchange:5；largechange:20
　　
　　text1---text3用來顯示你所選擇單原色，並在相應的label中顯示出數值。
　　
　　Text4用來顯示混合以後的顏色。
　　
　　第二步：編寫程序代碼如下：
　　
　　PrivateSubVScroll1_Change()
　　
　　Label1.Caption="紅色：" Str(VScroll1.Value)
　　
　　Text1.BackColor=RGB(VScroll1.Value,0,0)
　　
　　Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)
　　
　　EndSub
　　
　　PrivateSubVScroll2_Change()
　　
　　Label2.Caption="綠色：" Str(VScroll2.Value)
　　
　　Text2.BackColor=RGB(0,VScroll2.Value,0)
　　
　　Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)
　　
　　EndSub
　　
　　PrivateSubVScroll3_Change()
　　
　　Label3.Caption="蘭色：" Str(VScroll3.Value)
　　
　　Text3.BackColor=RGB(0,0,VScroll3.Value)
　　
　　Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)
　　
　　EndSub