网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,089贴子：1,166,230
  • 9回复贴，共1页

是高手的就进来搞搞，没弄出来的就是垃圾-有胆的进！

Private Sub HScrolla_Change(Index As Integer)
Text1.BackColor = RGB(255, 0, 0)
End Sub

Private Sub HScrolla_Scroll(Index As Integer)
Text1.BackColor = RGB(255, 0, 0)
End Sub

Private Sub HScrollb_Change(Index As Integer)
Text1.BackColor = RGB(0, 255, 0)
End Sub

Private Sub HScrollb_Scroll(Index As Integer)
Text1.BackColor = RGB(0, 255, 0)
End Sub

Private Sub HScrollc_Change(Index As Integer)
Text1.BackColor = RGB(0, 0, 255)
End Sub

Private Sub HScrollc_Scroll(Index As Integer)
Text1.BackColor = RGB(0, 0, 255)
End Sub

我想三个滚动条同时控制文本框的颜色变化，错在那里？


快试试吧，
可以对自己使用挽尊卡咯~
◆
◆
Public a As Long
Public b As Long
Public c As Long


Private Sub Form_Load()
HScroll1.Max = 255
HScroll2.Max = 255
HScroll3.Max = 255
HScroll1.Min = 1
HScroll2.Min = 1
HScroll3.Min = 1
a = 0
b = 0
c = 0
End Sub

Private Sub HScroll1_Change()
a = HScroll1.Value
Form1.BackColor = RGB(c, b, a)
End Sub

Private Sub HScroll2_Change()
b = HScroll1.Value
Form1.BackColor = RGB(c, b, a)
End Sub

Private Sub HScroll3_Change()
c = HScroll1.Value
Form1.BackColor = RGB(c, b, a)
End Sub


2025-08-20 17:10:07
广告
不感兴趣
开通SVIP免广告
RGB(0, 255, 0)全换成RGB(HScrolla.Value, HScrollb.Value, HScrollc.Value)行不


不对啊，不信你自己试试！


还是不可以，不信你看


Private Sub HScroll1_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll2_Change()
Text1.BackColor = RGB(0, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll3_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub


如果你真的想请教问题的话，就不要放这么嚣张的话出来！

别的我不多说了，光说一下控制颜色的控件：
把HScroll1复制，使form上有三个HScroll1控件，它们的index分别为0,1,2,添加以下代码：

Private Sub HScroll1_Change(Index As Integer)
 Text1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub


快试试吧，
可以对自己使用挽尊卡咯~
◆
◆
cao


2025-08-20 17:04:07
广告
不感兴趣
开通SVIP免广告
对不起拉！在这里向大家道歉！


快试试吧，
可以对自己使用挽尊卡咯~
◆
◆
誓死拥护MICROSOFT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
我愿意！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
哪一个敢说微软不行的？？？？？？！！！
老子杀了他！！！！
杀了他全家！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 9回复贴，共1页
分享到: