vb.net隨機(jī)取顏色 VB隨機(jī)顏色

在vb中，字體隨機(jī)顏色是怎么用代碼實(shí)現(xiàn)的？

創(chuàng)建一個(gè)Time控件、Label1控件，代碼如下：

目前創(chuàng)新互聯(lián)建站已為千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、成都網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、建鄴網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

Private?Sub?Form_Load()

Timer1.Interval?=?500

End?Sub

Private?Sub?Timer1_Timer()

a?=?Int(Rnd?*?256)

b?=?Int(Rnd?*?256)

c?=?Int(Rnd?*?256)

Label1.ForeColor?=?RGB(a,?b,?c)

End?Sub

就可以實(shí)現(xiàn)Label1控件的字體隨機(jī)顏色變換。

vb.net 隨機(jī)顏色 可追加分?jǐn)?shù)?。。?/h2>

Dim c As Color '新生成的顏色

Dim r As Byte 'RED

Dim g As Byte 'Green

Dim b As Byte 'Blue

Dim a As Byte 'Alpha 分量值

a = Button1.BackColor.A

r = Button1.BackColor.R

g = Button1.BackColor.G

b = Button1.BackColor.B

Dim rnd As New Random '生成隨機(jī)數(shù)

Dim i As Integer

i = rnd.Next(-10, 10)

r = r + IIf(r + i 255, -i, i)

i = rnd.Next(-10, 10)

g = g + IIf(g + i 255, -i, i)

i = rnd.Next(-10, 10)

b = b + IIf(b + i 255, -i, i)

c = Color.FromArgb(a, r, g, b)

VB怎么隨機(jī)限定顏色呢（如紅黃藍(lán)綠）

寫一個(gè)函數(shù) 如 隨機(jī)顏色

隨機(jī)1-4 int(rnd*4) 賦值給一個(gè)變量如a

然后 select case a

case 1 紅

case 2 黃

case 3 藍(lán)

case 4 綠

把這個(gè)函數(shù)返回值設(shè)置為顏色的 整數(shù)形式

最后在你使用的地方，某某.color=隨機(jī)顏色()

VB如何實(shí)現(xiàn)顏色隨機(jī)選擇

Private Sub Form_Click()

Randomize Timer

BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)

End Sub

'這是改變窗體背景顏色的過程代碼。

Vb.net2010字體顏色問題?

這個(gè)問題的本質(zhì)就是隨機(jī)二字，無論c/s還是b/s里面的label1 ，只要隨機(jī)設(shè)置字體顏色屬性即可。而相關(guān)屬性我相信您肯定知道，關(guān)鍵是怎樣隨機(jī)。vb.net里面有一個(gè)隨機(jī)函數(shù)，只要利用該隨機(jī)函數(shù)，隨機(jī)生成相應(yīng)的顏色即可，然后把隨機(jī)顏色賦值給label的屬性

VB.NET當(dāng)鼠標(biāo)停在屏幕任意地方，得到該點(diǎn)的顏色

我有個(gè)笨辦法，先用API抓圖到內(nèi)存里，然后再在根據(jù)你點(diǎn)鼠標(biāo)的屏幕工作區(qū)坐標(biāo)，去那圖里取色。

-----------------------

'抓圖所需的API

Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer

Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer

Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer

Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer

Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer

Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Integer) As Integer

Const SRCCOPY As Integer = HCC0020

'抓圖的部分

Dim hDC, hMDC As Integer

Dim hBMP, hBMPOld As Integer

Dim sw, sh As Integer

hDC = GetDC(0)

hMDC = CreateCompatibleDC(hDC)

sw = Screen.PrimaryScreen.Bounds.Width

sh = Screen.PrimaryScreen.Bounds.Height

hBMP = CreateCompatibleBitmap(hDC, sw, sh)

hBMPOld = SelectObject(hMDC, hBMP)

BitBlt(hMDC, 0, 0, sw, sh, hDC, 0, 0, SRCCOPY)

hBMP = SelectObject(hMDC, hBMPOld)

Dim bmp As Bitmap = Image.FromHbitmap(New IntPtr(hBMP))

DeleteDC(hDC)

DeleteDC(hMDC)

DeleteObject(hBMP)

......

'取點(diǎn)的顏色

bmp.GetPixel(e.X, e.Y)

----------------------------

關(guān)鍵就是這些你自己組合吧，你分給的太少了，很麻煩，恕我不幫你改全了。如果要仔細(xì)幫你改，請(qǐng)另開高分貼，不要用新馬甲來

網(wǎng)站欄目：vb.net隨機(jī)取顏色 VB隨機(jī)顏色
轉(zhuǎn)載來源：http://muchs.cn/article26/doccicg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、網(wǎng)頁設(shè)計(jì)公司、全網(wǎng)營銷推廣、微信公眾號(hào)、營銷型網(wǎng)站建設(shè)、定制開發(fā)

廣告

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