c#/vb.net如何通過反射獲得顏色名稱（字符串）對(duì)應(yīng)的顏色（Color類型）？

public Color col(string colorName)

創(chuàng)新互聯(lián)長(zhǎng)期為超過千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為信豐企業(yè)提供專業(yè)的成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站，信豐網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

{

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ū)分大小寫

VBNET怎么獲取控件顏色的RGB值，又怎么用RGB將顏色賦給控件顏色。

R/G/B值最小是0最大是255屬Byte值類型

Dim cr As Color = 控件.BackColor '獲取控件背景色

Dim alpha As Byte = cr.A '透明度

Dim R As Byte = cr.R 'R值

Dim G As Byte = cr.G 'G值

Dim B As Byte = cr.B 'B值

Dim outAcr As Color = Color.FromArgb(alpha, R, G, B) '創(chuàng)建帶有透明通道的ARGB顏色

Dim outcr As Color = Color.FromArgb(R, G, B) '創(chuàng)建不透明的RGB顏色

怎樣獲取vb.net中的顏色的ARGB値

Dim btp As Bitmap = PictureBox1.Image

Dim c As Color = btp.GetPixel(x_x, y_x)

'然后c.A,c.R,c.G,c.B就是對(duì)應(yīng)的顏色的ARGB値

vb.net怎么實(shí)現(xiàn)單擊數(shù)字區(qū)域的按鈕使按鈕變紅色，單擊運(yùn)算符按鈕變藍(lán)色同時(shí)數(shù)字區(qū)按鈕還原？緊急在線等…

您好，這種方法可以通過按鈕的MouseDown和MouseUp事件來實(shí)現(xiàn)，比如說，當(dāng)單擊按鈕RedColor（RedColor為這個(gè)按鈕的Name屬性的屬性值）的時(shí)候，要使按鈕的顏色變成紅色，這可以在代碼視圖中的控件選擇下拉列表中選擇RedColor這個(gè)控件，然后在右邊的事件下拉列表中選擇MouseDown事件（當(dāng)按下鼠標(biāo)時(shí)發(fā)生），這時(shí)，Visual Studio會(huì)自動(dòng)生成如下代碼：

Private Sub RedColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseDown

End Sub

接下來就在當(dāng)前生成的代碼中寫入如下代碼：

RedColor.BackColor = Color.FromArgb(255, 0, 0)

這句代碼的作用是利用Color下的FromArgb方法來設(shè)置RGB顏色參數(shù)，在RGB顏色系統(tǒng)中，R代表紅色，G代表綠色，B代表藍(lán)色，根據(jù)這三種顏色的不同程度的調(diào)和，就會(huì)得到不同的顏色，如果您要得到深色的天藍(lán)色，則可以設(shè)置FromArgb(0, 191, 255)，這個(gè)顏色轉(zhuǎn)換為HTML中的RGB顏色就是#00BFFF。

當(dāng)然顏色還原最好是寫在MouseUp事件里面，這樣就不必在單擊其他按鈕時(shí)來還原上一次按下的按鈕的顏色，在這里，為了方便描述，我們假設(shè)按鈕的默認(rèn)顏色為白色，也就是FromArgb方法設(shè)置為FromArgb(255, 255, 255)的時(shí)候，所標(biāo)示的顏色就是白色

所以選擇了RedColor按鈕的MouseUp事件后，Visual Studio會(huì)自動(dòng)生成下列代碼：

Private Sub RedColor_MouseUp(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseUp

End Sub

MouseUp的含義是當(dāng)鼠標(biāo)彈起時(shí)發(fā)生，所以在這個(gè)事件就可以設(shè)置按鈕顏色的還原，即添加下列代碼來實(shí)現(xiàn)：

RedColor.BackColor = Color.FromArgb(255, 255, 255)

當(dāng)然，這就編寫好了一個(gè)按鈕按下時(shí)變色，回彈時(shí)還原的功能，至于另外一個(gè)按鈕的功能，這與這個(gè)按鈕的功能一樣，只是代碼有一些細(xì)微的差別而已，假設(shè)這個(gè)按鈕的Name屬性的屬性值為BlueColor，相應(yīng)的代碼對(duì)應(yīng)如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(0, 0, 255) '藍(lán)色的FromArgb

End Sub

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

另外，為了避免代碼的冗余，可以將RedColor和BlueColor的MouseUp事件進(jìn)行合并，這合并后的代碼如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

RedColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

當(dāng)然，這個(gè)你只要分析了控件事件代碼的基本結(jié)構(gòu)，一切就一目了然了，控件事件代碼的基本結(jié)構(gòu)如下：

[作用域] Sub 事件名([參數(shù)列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]

[事件代碼區(qū)域]

End Sub

如果此回答對(duì)您有幫助，別忘了采納哦，如果沒有解決您的問題，您可以在互聯(lián)網(wǎng)上尋找更多關(guān)于此問題的解決方案，謝謝！

vb.net 如何使文字能漸變顏色，就是顏色慢慢變淡然后在慢慢恢復(fù)？

也容易，如果是黑白三個(gè)顏色加上相同的漸變量，彩色的是起始顏色的三個(gè)分量與終止顏色的對(duì)應(yīng)三個(gè)分量的差值，再除于相同的份數(shù)，就得出三原色各自的步進(jìn)量。

窗體上放個(gè)圖片框試試下面代碼：

Private?Sub?PictureBox1_Paint(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.PaintEventArgs)?Handles?PictureBox1.Paint

Dim?startColor?As?Color?=?Color.Red

Dim?endColor?As?Color?=?Color.Green

Dim?s?As?String?=?"vb.net?如何使文字能漸變顏色，就是顏色慢慢變淡然后在慢慢恢復(fù)？"

Dim?Steps?As?Integer?=?s.Length?\?2

Dim?StepR?As?Integer?=?(CInt(endColor.R)?-?startColor.R)?\?Steps

Dim?StepG?As?Integer?=?(CInt(endColor.G)?-?startColor.G)?\?Steps

Dim?StepB?As?Integer?=?(CInt(endColor.B)?-?startColor.B)?\?Steps

Dim?R?As?Integer?=?startColor.R

Dim?G?As?Integer?=?startColor.G

Dim?B?As?Integer?=?startColor.B

Dim?drawFont?As?New?System.Drawing.Font("Arial",?16)

Dim?X?As?Integer?=?50

For?i?As?Integer?=?1?To?Steps

Dim?drawBrush?As?New?SolidBrush(Color.FromArgb(R,?G,?B))

e.Graphics.DrawString(s.Substring(i?-?1,?1),?drawFont,?drawBrush,?X,?50.0)

X?+=?18

R?+=?StepR

G?+=?StepG

B?+=?StepB

Next

For?i?As?Integer?=?1?To?Steps

Dim?drawBrush?As?New?SolidBrush(Color.FromArgb(R,?G,?B))

e.Graphics.DrawString(s.Substring(i?+?Steps?-?1,?1),?drawFont,?drawBrush,?X,?50.0)

X?+=?18

R?-=?StepR

G?-=?StepG

B?-=?StepB

Next

End Sub