VB中 如何改變下拉選項中字體的顏色

Private Sub Combo1_Click()

在萬安等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都做網(wǎng)站、成都網(wǎng)站制作 網(wǎng)站設(shè)計制作按需開發(fā)網(wǎng)站,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站制作,全網(wǎng)營銷推廣,成都外貿(mào)網(wǎng)站建設(shè),萬安網(wǎng)站建設(shè)費用合理。

If Combo1.Text = "紅" Then

Label1.ForeColor = RGB(255, 0, 0) '無論哪種色彩都是可以根據(jù)這三個數(shù)值調(diào)的

ElseIf Combo1.Text = "黃" Then

Label1.ForeColor = RGB(0, 255, 0)

ElseIf Combo1.Text = "黑" Then

Label1.ForeColor = RGB(0, 0, 0)

End If

End Sub

Private Sub Form_Load()

Label1 = "寫入你想改變顏色的字體"

Combo1.AddItem "紅"

Combo1.AddItem "黃"

Combo1.AddItem "黑"

End Sub

'上面的代的是VB6的

想咨詢一下在VB.NET中設(shè)置一個下拉條，選項是1-10，我希望每個選項能對應(yīng)讀出我D盤中1-10的文本數(shù)據(jù)

不知道你是想實現(xiàn)多少功能

讀取文件內(nèi)容的處理你自己做了么？

實現(xiàn)方法是在代碼中判斷，如果是1那么讀D盤1的文本數(shù)據(jù)就行

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

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

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

ByVal e As System.EventArgs) Handles RedColor.MouseDown

End Sub

接下來就在當前生成的代碼中寫入如下代碼：

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

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

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

所以選擇了RedColor按鈕的MouseUp事件后，Visual Studio會自動生成下列代碼：

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

ByVal e As System.EventArgs) Handles RedColor.MouseUp

End Sub

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

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

當然，這就編寫好了一個按鈕按下時變色，回彈時還原的功能，至于另外一個按鈕的功能，這與這個按鈕的功能一樣，只是代碼有一些細微的差別而已，假設(shè)這個按鈕的Name屬性的屬性值為BlueColor，相應(yīng)的代碼對應(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) '藍色的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事件進行合并，這合并后的代碼如下：

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

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

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

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

End Sub

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

vb.net2010 menustrip控件下拉菜單屬性

這就是普通的菜單，向上彈出，還是向下彈出，是操作系統(tǒng)自動判斷的（根據(jù)可視的空間區(qū)域大?。┐蚬矗芎唵?，只要將菜單的CheckOnClick設(shè)為True就可以了

新聞標題：vb.net下拉式色版的簡單介紹
分享路徑：http://jinyejixie.com/article36/dodhcsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供虛擬主機、品牌網(wǎng)站設(shè)計、網(wǎng)站營銷、網(wǎng)站收錄、品牌網(wǎng)站建設(shè)、標簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)