VB怎么让滚动条自动的让标签变色

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

数学与计算机编程
2019-07-06 · TA获得超过2160个赞

知道大有可为答主

回答量：2312

采纳率：80%

帮助的人：566万

我也去答题访问个人页

关注

展开全部

Private Sub HScroll1_Change()

Label1.ForeColor = RGB(Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256))

Label1.BackColor = RGB(Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256))

End Sub

Private Sub HScroll1_Scroll()

Label1.ForeColor = RGB(Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256))

Label1.BackColor = RGB(Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256), Int(Rnd(HScroll1.Value) * 256))

End Sub

本回答被提问者采纳

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

VB怎么让滚动条自动的让标签变色

为你推荐：