vb編程,自定義變量實現顏色？請指教下

其實這個問題特簡單，但是三色需要三個文本框(數組控件)分別輸入，設置紅色、綠色、藍色，在文本框的Text1_Change事件中設置Text2的顏色就可以了。

Text2.Text?=?"妳好嗎？"

Text2.FontSize?=?20

Text2.FontBold?=?True

End?Sub

Private?Sub?Text1_Change(Index?As?Integer)

Dim?AA?As?Integer,?BB?As?String

AA?=?Index

If?AA?=?0?Then?BB?=?"紅色"

If?AA?=?1?Then?BB?=?"綠色"

If?AA?=?2?Then?BB?=?"藍色"

If?IsNumeric(Text1(AA).Text)?=?False?Then

MsgBox?"妳輸入的"?&?BB?&?"不是數字，各種顏色的值必須是0-255之間的正整數！"

Text1(AA).Text?=?""

Text1(AA).SetFocus

Exit?Sub

End?If

If?Val(Text1(AA).Text)?<?0?Or?Val(Text1(AA).Text)?>?255?Then

MsgBox?"妳輸入的"?&?BB?&?"數字不正確，不能小於0，也不能大於255！"

Text1(AA).Text?=?""

Text1(AA).SetFocus

Exit?Sub

End?If

If?Val(Text1(0).Text)?>=?0?And?Val(Text1(0).Text)?<=?255?And?Val(Text1(1).Text)?>=?0?And?Val(Text1(1).Text)?<=?255?And?Val(Text1(2).Text)?>=?0?And?Val(Text1(2).Text)?<=?255?Then

Text2.ForeColor?=?RGB(Val(Text1(0).Text),?Val(Text1(1).Text),?Val(Text1(2).Text))

End?If

End?Sub