十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
放上一个Label1控件和一个VScroll1控件组(3个控件),再拷贝下列代码到代码窗口。Private
10年积累的成都网站制作、网站设计经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计后付款的网站建设流程,更有平舆免费网站建设让你可以放心的选择与我们合作。
Sub
Form_Load()
VScroll1(0).Min
=
VScroll1(0).Max
=
255
VScroll1(1).Min
=
VScroll1(1).Max
=
255
VScroll1(2).Min
=
VScroll1(2).Max
=
255End
SubPrivate
Sub
VScroll1_Change(Index
As
Integer)
Label1.ForeColor
=
RGB(VScroll1(0).Value,
VScroll1(1).Value,
VScroll1(2).
Value)End
Sub.
不行啊,除非重写OPaint()方法,不过这个比较复杂,所有的绘图过程都必须自己写,工作量比较大,你 还是找一下有没有现成的Com控件或者.net组件吧
把滚动条设置成0-255取值范围,可改变RGB中的一种的数值,3个组合后,就达到改变RGB颜色的目的