Ⅰ vb编程,自定义变量实现颜色请指教下
其实这个问题特简单，但是三色需要三个文本框(数组控件)分别输入，设置红色、绿色、蓝色，在文本框的Text1_Change事件中设置Text2的颜色就可以了。
PrivateSubForm_Load()
Text2.Text="你好吗？"
Text2.FontSize=20
Text2.FontBold=True
EndSub
PrivateSubText1_Change(IndexAsInteger)
DimAAAsInteger,BBAsString
AA=Index
IfAA=0ThenBB="红色"
IfAA=1ThenBB="绿色"
IfAA=2ThenBB="蓝色"
IfIsNumeric(Text1(AA).Text)=FalseThen
MsgBox"你输入的"&BB&"不是数字，各种颜色的值必须是0-255之间的正整数！"
Text1(AA).Text=""
Text1(AA).SetFocus
ExitSub
EndIf
IfVal(Text1(AA).Text)<0OrVal(Text1(AA).Text)>255Then
MsgBox"你输入的"&BB&"数字不正确，不能小于0，也不能大于255！"
Text1(AA).Text=""
Text1(AA).SetFocus
ExitSub
EndIf
IfVal(Text1(0).Text)>=0AndVal(Text1(0).Text)<=255AndVal(Text1(1).Text)>=0AndVal(Text1(1).Text)<=255AndVal(Text1(2).Text)>=0AndVal(Text1(2).Text)<=255Then
Text2.ForeColor=RGB(Val(Text1(0).Text),Val(Text1(1).Text),Val(Text1(2).Text))
EndIf
EndSub