Ⅰ 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