用vb制作走馬燈 窗體代碼全過(guò)程

1、使用label(標(biāo)簽）來(lái)模擬燈，只要修改label背景就可以實(shí)現(xiàn)跑馬燈效果。

創(chuàng)新互聯(lián)專(zhuān)注于巴彥淖爾網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供巴彥淖爾營(yíng)銷(xiāo)型網(wǎng)站建設(shè)，巴彥淖爾網(wǎng)站制作、巴彥淖爾網(wǎng)頁(yè)設(shè)計(jì)、巴彥淖爾網(wǎng)站官網(wǎng)定制、成都微信小程序服務(wù)，打造巴彥淖爾網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供巴彥淖爾網(wǎng)站排名全網(wǎng)營(yíng)銷(xiāo)落地服務(wù)。

2、工具vb6

3、示例：

Private?WithEvents?NewTimer?As?Timer

Private?Sub?Form_Load()

Dim?i?As?Integer

For?i?=?1?To?10

Set?NewLabel?=?Controls.Add("vb.label",?"label"??i,?Me)

NewLabel.Move?i?*?200,?100,?100,?100

NewLabel.BackColor?=?vbWhite

NewLabel.Visible?=?True

Next

Set?NewTimer?=?Controls.Add("vb.timer",?"Timer1",?Me)

NewTimer.Interval?=?200

NewTimer.Enabled?=?True

End?Sub

Private?Sub?NewTimer_Timer()

Static?i?As?Integer

i?=?i?+?1

Me("label"??i).BackColor?=?vbRed

If?i?=?1?Then

If?i?=?1?Then?i?=?11

Me("label"??i?-?1).BackColor?=?vbWhite

If?i?=?11?Then?i?=?1

End?If

If?i?=?10?Then?i?=?0

End?Sub

4、注意：復(fù)制以上代碼到代碼窗體，不要加任何控件，直接運(yùn)行即可。

VB.NET里面用什么控件做指示燈比較好？請(qǐng)說(shuō)明為優(yōu)點(diǎn)。

VB.NET里用GDI+畫(huà)指示燈其實(shí)很簡(jiǎn)單，稍微查一點(diǎn)資料就能找到gdi+語(yǔ)句的用法的。用GDI+可以畫(huà)很多種圖形，圓形半圓形自然不在話下。如果有很多指示燈在一起的話，改起來(lái)也很方便。

當(dāng)然如果嫌GDI+麻煩可以用label控件，把a(bǔ)utosize關(guān)掉，將尺寸調(diào)小一點(diǎn)，然后利用backcolor調(diào)背景顏色作為指示燈，只不過(guò)是方形的。

如果指示燈很多而且頻繁換顏色的話建議用GDI+，因?yàn)镚DI+效率高一些

在VS2008中，如何讓VB.net中的圖片動(dòng)起來(lái)

不是語(yǔ)言讓圖片動(dòng)起來(lái)的，而是圖片本身就能動(dòng)，例如gif格式圖片本身就是動(dòng)畫(huà)。如果你講的是圖片在網(wǎng)頁(yè)上移動(dòng)，而不是圖片本身內(nèi)容的動(dòng)作，那么不是vb.net的功能必須用java腳本來(lái)實(shí)現(xiàn)。

新聞標(biāo)題：vb.net走馬燈 走馬燈效果的代碼怎么寫(xiě)
本文地址：http://vcdvsql.cn/article6/ddopcog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、網(wǎng)站策劃、網(wǎng)站改版、網(wǎng)站導(dǎo)航、小程序開(kāi)發(fā)、虛擬主機(jī)

廣告

聲明：本網(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)