你好,我不知道你是用什么方法保存的,不過(guò).net里的color有一個(gè)方法是Color.FromArgb 你可以這么做,dim
創(chuàng)新互聯(lián)公司專注于雨湖企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城開(kāi)發(fā)。雨湖網(wǎng)站建設(shè)公司,為雨湖等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站,專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
c
as
color=richtextbox1.ForeColor dim
colorstring
as
string=c.ToArgb().ToString
colorstring就是顏色的值(字符串)再把colorstring保存到ini文件加載顏色的時(shí)候,從ini里讀取colorstring 具體是:dim
RtextColor
as
color=Color.FromArgb(cint(colorstring))richtextbox1.ForeColor
=RtextColor
其實(shí)這個(gè)問(wèn)題特簡(jiǎn)單,但是三色需要三個(gè)文本框(數(shù)組控件)分別輸入,設(shè)置紅色、綠色、藍(lán)色,在文本框的Text1_Change事件中設(shè)置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?=?"藍(lán)色"
If?IsNumeric(Text1(AA).Text)?=?False?Then
MsgBox?"你輸入的"??BB??"不是數(shù)字,各種顏色的值必須是0-255之間的正整數(shù)!"
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??"數(shù)字不正確,不能小于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
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);
}
是這個(gè)意思么?輸入“Red”, 返回Color.Red 區(qū)分大小寫(xiě)
如果你要的是選中變色,那用checked屬性就可以了。
如果你要自定義選中變的顏色,就需要過(guò)程了。
代碼可以放在checkedchange事件中,通過(guò)改變displaystyle,image或者backcolor實(shí)現(xiàn)