• 0回复贴,共1

滚动条调配颜色

只看楼主收藏回复

需要:5个label,2个button,1个Textbox,3个滚动条(HscrollBar)
设计界面:

3)步骤:【RGB颜色可由VB.NET提供的Color.FromArgb(红,绿,兰)方法得到,参数(红,绿,兰)可用滚动条的Value值表示】
实现三个滚动条控件分别控制红绿兰三色:
Private Sub HScrollBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged
         Label5.BackColor = Color.FromArgb(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value)
       End Sub
同理可得滚动条2和滚动条3的代码
    单击“设置背景颜色”按钮代码:
    TextBox1.BackColor = Label5.BackColor
  
单击“设置文字颜色”按钮代码:
TextBox1.ForeColor = Label5.BackColor



1楼2011-01-05 12:47回复