再问下关于用滚动条控制颜色的问题

angeljze 2003-08-30 03:13:32
怎么使用滚动条控制颜色的问题!颜色的那块用shape来做的!希望给给出一些代码来!谢谢各位!小弟新来请个位大虾多多帮忙
...全文
25 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
angeljze 2003-08-30
  • 打赏
  • 举报
回复
怎么用单个滚动条控制单个颜色,谢谢!
射天狼 2003-08-30
  • 打赏
  • 举报
回复
Option Explicit

Private Sub b_Change()
Label1.BackColor = RGB(r.Value, g.Value, b.Value)
End Sub

Private Sub Form_Load()
'加三个水平滚动条,分别改名为r,g,b

r.Min = 0: r.Max = 255
g.Min = 0: g.Max = 255
b.Min = 0: b.Max = 255
End Sub

Private Sub g_Change()
Label1.BackColor = RGB(r.Value, g.Value, b.Value)
End Sub

Private Sub r_Change()
Label1.BackColor = RGB(r.Value, g.Value, b.Value)
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧