VB.net或C#.net 做按鈕動(dòng)態(tài)漸變

我是新手，僅談?wù)勎业睦斫?，按鈕的MouseEnter與MouseLeave事件就可以解決，需要這么復(fù)雜嗎？

為磴口等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及磴口網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站制作、成都做網(wǎng)站、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、磴口網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

比如當(dāng)鼠標(biāo)移入按鈕（Button1）時(shí)，按鈕的字體變色（假如變?yōu)榧t色）可以寫為（MouseEnter事件）：

Button1.Forecolor=color.red;

當(dāng)鼠標(biāo)移出，字體顏色變回去（假如本來(lái)是黃色）（MouseLeave事件）：

Button1.Forecolor=color.yellow;

如要做高級(jí)的動(dòng)態(tài)變化，估計(jì)添加timer進(jìn)來(lái)，寫Timer的Tick事件，比如Tmier每Tick一次，按鈕的紅色就加5，同時(shí)設(shè)置按鈕的Tick間距。

VB.NET 下給Listbox 添加圖片或者漸變背景。

在普通window應(yīng)用程序中的背景是不能有ALPHA通道的

既然是.net，試試用WPF窗體吧：

Listbox1.Background=New SolidBrush(Color.FromARGB(200,0,0,0))

當(dāng)然你要是了解.net的筆刷類，繪制復(fù)雜的背景也不成問(wèn)題

VB.NET怎么在屏幕上畫一個(gè)逐漸變大的空心圈？

在窗體上拉一個(gè)Timer控件，enabled設(shè)為true，Interval設(shè)為20。完整代碼如下： Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics As System.Drawing.Graphics

Dim num As Integer = 1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Refresh() '清屏

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(100, 100, num, num)) '在坐標(biāo)(100,100)的位置畫圓

If num 200 Then '如果大于200則停止畫圓

myPen.Dispose()

formGraphics.Dispose()

Timer1.Enabled = False

Else

num = num + 1

End If

End Sub

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

網(wǎng)頁(yè)標(biāo)題：vb.net漸變畫筆 winform漸變色
標(biāo)題路徑：http://chinadenli.net/article10/dogsggo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)網(wǎng)站制作、自適應(yīng)網(wǎng)站、網(wǎng)站改版、動(dòng)態(tài)網(wǎng)站、商城網(wǎng)站、Google

廣告

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