怎样在VB中设置数字的显示位数? 20
怎样将位数设置成显示为6位?比如这个软件中(MOFILE连接http://pickup.mofile.com/1421390232939484)我的颜色代码希望他永远是6...
怎样将位数设置成显示为6位?
比如这个软件中
(MOFILE连接 http://pickup.mofile.com/1421390232939484)
我的颜色代码希望他永远是6位,怎样写?
当前代码,请帮忙修改:
Private Sub Form_Load()
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label5.BackColor = RGB(0, 0, 0)
Label7.Caption = Hex(Label5.BackColor)
End Sub
Private Sub HScroll1_Change()
Label5.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label7.Caption = Hex(Label5.BackColor)
End Sub
Private Sub HScroll2_Change()
Label5.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label7.Caption = Hex(Label5.BackColor)
End Sub
Private Sub HScroll3_Change()
Label5.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label7.Caption = Hex(Label5.BackColor)
End Sub
大家来帮忙啊!
现在这样改,可是不太正确~
http://pickup.mofile.com/0350328311438294
上面这个连接是工程文件~大家打开看看就好了~
FORMAT? 不太明白 能不能说清楚点? 我是刚学的~ 展开
比如这个软件中
(MOFILE连接 http://pickup.mofile.com/1421390232939484)
我的颜色代码希望他永远是6位,怎样写?
当前代码,请帮忙修改:
Private Sub Form_Load()
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label5.BackColor = RGB(0, 0, 0)
Label7.Caption = Hex(Label5.BackColor)
End Sub
Private Sub HScroll1_Change()
Label5.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label7.Caption = Hex(Label5.BackColor)
End Sub
Private Sub HScroll2_Change()
Label5.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label7.Caption = Hex(Label5.BackColor)
End Sub
Private Sub HScroll3_Change()
Label5.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = HScroll1.Value
Label3.Caption = HScroll2.Value
Label4.Caption = HScroll3.Value
Label7.Caption = Hex(Label5.BackColor)
End Sub
大家来帮忙啊!
现在这样改,可是不太正确~
http://pickup.mofile.com/0350328311438294
上面这个连接是工程文件~大家打开看看就好了~
FORMAT? 不太明白 能不能说清楚点? 我是刚学的~ 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询