vb編程,自定義變量實(shí)現(xiàn)顏色？請指教下

其實(shí)這個(gè)問題特簡單，但是三色需要三個(gè)文本框(數(shù)組控件)分別輸入，設(shè)置紅色、綠色、藍(lán)色，在文本框的Text1_Change事件中設(shè)置Text2的顏色就可以了。

站在用戶的角度思考問題，與客戶深入溝通，找到海城網(wǎng)站設(shè)計(jì)與海城網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、主機(jī)域名、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋海城地區(qū)。

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

vb.net 中如何修改toolstripButton 選中時(shí)的顏色

如果你要的是選中變色，那用checked屬性就可以了。

如果你要自定義選中變的顏色，就需要過程了。

代碼可以放在checkedchange事件中，通過改變displaystyle,image或者backcolor實(shí)現(xiàn)

VB.net 旋轉(zhuǎn)圖像時(shí)，如何指定填充色

繪制線條采用Draw開頭的方法，顏色參數(shù)用Pen類；

繪制有填充色的封閉圖形采用Fill開頭的方法，顏色參數(shù)用Brush類；

例如：

'繪制一個(gè)實(shí)心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃矩形區(qū)域內(nèi)

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

'繪制一個(gè)空心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃矩形區(qū)域內(nèi)

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