网站建设资讯

NEWS

网站建设资讯

vbnet自定义颜色 vb设置颜色

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设置颜色
文章地址:http://cdweb.net/article/dopchgh.html