vb.net定义的颜色 vb颜色函数-成都快上网建站

vb.net定义的颜色 vb颜色函数

vb.net 如何读取ini文件定义的ForeColor颜色值

你好,我不知道你是用什么方法保存的,不过.net里的color有一个方法是Color.FromArgb 你可以这么做,dim

创新互联公司专注于雨湖企业网站建设,成都响应式网站建设公司,商城开发。雨湖网站建设公司,为雨湖等地区提供建站服务。全流程定制网站,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务

c

as

color=richtextbox1.ForeColor dim

colorstring

as

string=c.ToArgb().ToString

colorstring就是颜色的值(字符串)再把colorstring保存到ini文件加载颜色的时候,从ini里读取colorstring 具体是:dim

RtextColor

as

color=Color.FromArgb(cint(colorstring))richtextbox1.ForeColor

=RtextColor

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

c#/vb.net如何通过反射获得颜色名称(字符串)对应的颜色(Color类型)?

public Color col(string colorName)

{

Type colorType = typeof(Color);

PropertyInfo info = colorType.GetProperty(colorName, BindingFlags.Public | BindingFlags.Static);

if (infos == null)

{

//throw Exception

}

return(Color)info.GetValue(null, null);

}

是这个意思么?输入“Red”, 返回Color.Red 区分大小写

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

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

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

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


当前名称:vb.net定义的颜色 vb颜色函数
文章URL:http://kswjz.com/article/dohjdcc.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流