设计滚动条控件,用滚动条控件控制标签颜色的深浅。 求高手写出源代码,急急急急急急!!!!!!!!!!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 255 End SubPrivate Sub HScroll1_Change() Label1.BackColor = RGB(255 - HScroll1.Value, 255 - HScroll1.Value, 255 - HScroll1.Value) End Sub Private Sub Form_Load() HScroll1.Max = 255 HScroll1.Min = 0 HScroll1.SmallChange = 1 HScroll1.LargeChange = 10 HScroll2.Max = 255 HScroll2.Min = 0 HScroll2.SmallChange = 1 HScroll2.LargeChange = 10 HScroll3.Max = 255 HScroll3.Min = 0 HScroll3.SmallChange = 1 HScroll3.LargeChange = 10End SubPrivate Sub HScroll1_Change() Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)End SubPrivate Sub HScroll1_LostFocus() Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)End SubPrivate Sub HScroll2_Change() Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)End SubPrivate Sub HScroll2_Scroll() Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)End SubPrivate Sub HScroll3_Change() Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)End SubPrivate Sub HScroll3_Scroll() Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)End Sub 求助,大神们。通过VB做个简单的局域网服务器。 ShellExecute 带参数 问题 怎么让msi安装包安装后每个用户都能执行? 简单小程序,请赐教! 程序怎么读取网络上的INI文件 请问winsock是只能接收winsock发来的包么? 请问,SQL语句中使用了DECLARE定义的变量,其中的值如何传到程序中? 关于unload所有SDI窗体? 请问我想把webbrowser里面的内容置空,应该怎么写? vb二进制打开文件,在第10个位置写入固定内容该怎么写? button三个事件的运行优先级 程序有输出,但是空的,没有输出表的内容,大虾们帮忙解决下,谢了
HScroll1.Min = 0
HScroll1.Max = 255
End SubPrivate Sub HScroll1_Change()
Label1.BackColor = RGB(255 - HScroll1.Value, 255 - HScroll1.Value, 255 - HScroll1.Value)
End Sub
HScroll1.Max = 255
HScroll1.Min = 0
HScroll1.SmallChange = 1
HScroll1.LargeChange = 10
HScroll2.Max = 255
HScroll2.Min = 0
HScroll2.SmallChange = 1
HScroll2.LargeChange = 10
HScroll3.Max = 255
HScroll3.Min = 0
HScroll3.SmallChange = 1
HScroll3.LargeChange = 10
End SubPrivate Sub HScroll1_Change()
Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
End SubPrivate Sub HScroll1_LostFocus()
Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
End SubPrivate Sub HScroll2_Change()
Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
End SubPrivate Sub HScroll2_Scroll()
Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
End SubPrivate Sub HScroll3_Change()
Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
End SubPrivate Sub HScroll3_Scroll()
Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
End Sub