其实这个问题特简单,但是三色需要三个文本框(数组控件)分别输入,设置红色、绿色、蓝色,在文本框的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
如果你要的是选中变色,那用checked属性就可以了。
如果你要自定义选中变的颜色,就需要过程了。
代码可以放在checkedchange事件中,通过改变displaystyle,image或者backcolor实现
绘制线条采用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)