vb编程,自定义变量实现颜色？请指教下

其实这个问题特简单，但是三色需要三个文本框(数组控件)分别输入，设置红色、绿色、蓝色，在文本框的Text1_Change事件中设置Text2的颜色就可以了。

站在用户的角度思考问题，与客户深入沟通，找到海城网站设计与海城网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、成都网站设计、企业官网、英文网站、手机端网站、网站推广、主机域名、网络空间、企业邮箱。业务覆盖海城地区。

Private Sub Form_Load()

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

vb.net 中如何修改toolstripButton 选中时的颜色

如果你要的是选中变色，那用checked属性就可以了。

如果你要自定义选中变的颜色，就需要过程了。

代码可以放在checkedchange事件中，通过改变displaystyle,image或者backcolor实现

VB.net 旋转图像时，如何指定填充色

绘制线条采用Draw开头的方法，颜色参数用Pen类；

绘制有填充色的封闭图形采用Fill开头的方法，颜色参数用Brush类；

例如：

'绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划矩形区域内

Me.CreateGraphics.FillEllipse(New SolidBrush(Color.Orange), 200, 200, 100, 100)

'绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划矩形区域内

Me.CreateGraphics.DrawEllipse(New Pen(Color.Black), 200, 200, 100, 100)

文章标题：vbnet自定义颜色 vb设置颜色
本文URL：http://cdweb.net/article/dopchgh.html