vb.net圓形指示燈的簡單介紹

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

VB.NET里用GDI+畫指示燈其實很簡單，稍微查一點資料就能找到gdi+語句的用法的。用GDI+可以畫很多種圖形，圓形半圓形自然不在話下。如果有很多指示燈在一起的話，改起來也很方便。

成都創(chuàng)新互聯(lián)公司堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站建設(shè)、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的西區(qū)網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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

如果指示燈很多而且頻繁換顏色的話建議用GDI+，因為GDI+效率高一些

vc++6.0中如何繪制圓形指示燈,顏色為綠色

在VC中，通常用MFC的CDC類進行繪圖。

簡單的原型綠色指示燈，使用綠色刷子畫圓形即可：

CBrush?br(RGB(0,255,0));//綠色刷子

CBrush*?oldB?=?pDC-SelectObject(br);

pDC-Ellipse(CRect(50,50,100,100));//畫圓

pDC-SelectObject(oldB);

但這樣的“指示燈”比較簡陋，如果希望有立體、光影等效果，不建議使用簡單形狀繪圖，而是將指示燈在專業(yè)制圖軟件（如PS）中繪制好之后，做成BMP文件，在程序中通過TransparentBlt函數(shù)繪制出來，效果會更好。

VB中指示燈怎么按條件與否點亮、熄滅？

可使用FillColor屬性改變Shape控件填充形狀的顏色。

當燈亮時顯示燈亮的色彩。

當燈滅時顯示窗體的BackColor背景顏色。

BackColor屬性，BackColor－返回或設(shè)置對象的背景顏色。

用一個Timer控件的Timer事件來判別條件的變化。

以下是實施代碼。

Option?Explicit

Dim?zt_dm1

Private?Sub?Command1_Click()

zt_dm1?=?1

End?Sub

Private?Sub?Command2_Click()

zt_dm1?=?0

End?Sub

Private?Sub?Form_Load()

zt_dm1?=?0

Timer1.Interval?=?200

Timer1.Enabled?=?True

End?Sub

Private?Sub?Timer1_Timer()

If?zt_dm1?=?1?Then

Shape1.FillStyle?=?0

Shape1.FillColor?=?vbGreen

Shape2.FillStyle?=?0

Shape2.FillColor?=?Me.BackColor

Else

Shape1.FillStyle?=?0

Shape1.FillColor?=?Me.BackColor

Shape2.FillStyle?=?0

Shape2.FillColor?=?vbRed

End?If

效果：

vb界面怎么畫圓指示燈

用shape控件,把類型設(shè)置為圓形,程序里控制它的填充色來表示不同狀態(tài)

我想用vb 程序里面添加一個指示燈，請問各位大俠該用什么控件？本人菜鳥，請詳細說明

shape做指示燈方法，我在旁邊注解了說明。

建立表單添加控件 shape command 兩個控件，輸入以下代碼（兩個控件都是VB默認就有的）。

Private Sub Command1_Click() '按鈕1按下的代碼

If Shape1.FillColor = RGB(255, 255, 0) Then '若shape1為黃色則

Shape1.FillColor = RGB(255, 255, 255.255) '變更shape1為白色

Else

Shape1.FillColor = RGB(255, 255, 0) '其它情況則變成黃色

End If

End Sub

Private Sub Form_Load() '表單讀取時定義Shape屬性

Shape1.Shape = 3: '設(shè)定為形狀為正圓形

Shape1.FillColor = RGB(255, 255, 0) '黃色

Shape1.FillStyle = 0: '顯示背景

End Sub

分享題目：vb.net圓形指示燈的簡單介紹
URL標題：http://m.kartarina.com/article10/heiogo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營銷、網(wǎng)站排名、虛擬主機、網(wǎng)站制作、服務(wù)器托管、網(wǎng)站設(shè)計公司

廣告

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