建站
咨詢
售后
建站咨詢
新聞中心
如何把VB中的shape控件放在按鈕之上，做按鈕按下時(shí)的指示燈用。
shape是無(wú)句柄的弱控件，不能放在按鈕上。但你何不利用按鈕本身的功能用圖片來(lái)做指示燈呢？絕對(duì)比用shape做的好看，而且更簡(jiǎn)單方便：
創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站制作、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的鐘樓網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
在屬性窗口把按鈕（比如Command1）的Style屬性設(shè)為1（這點(diǎn)是關(guān)鍵）
然后在Picture屬性和DownPicture屬性中分別放入一張適當(dāng)?shù)膱D片，前者是按鈕未點(diǎn)擊時(shí)的背景圖片，后者是點(diǎn)擊時(shí)按鈕的背景圖片，你只要選擇兩張大小適中的圖片（BMP、GIF或JPG格式的）分別表示燈亮和燈滅即可。 連一句代碼都不用，簡(jiǎn)單吧？
我想用vb 程序里面添加一個(gè)指示燈，請(qǐng)問(wèn)各位大俠該用什么控件？本人菜鳥(niǎo)，請(qǐng)?jiān)敿?xì)說(shuō)明
shape做指示燈方法，我在旁邊注解了說(shuō)明。
建立表單添加控件 shape command 兩個(gè)控件，輸入以下代碼（兩個(gè)控件都是VB默認(rèn)就有的）。
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() '表單讀取時(shí)定義Shape屬性
Shape1.Shape = 3: '設(shè)定為形狀為正圓形
Shape1.FillColor = RGB(255, 255, 0) '黃色
Shape1.FillStyle = 0: '顯示背景
End Sub
用VB.NET編寫(xiě)紅綠燈程序
給你思路把：當(dāng)汽車運(yùn)動(dòng)時(shí)，他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍，就停止汽車運(yùn)動(dòng)的那個(gè)計(jì)時(shí)器，并將另一個(gè)計(jì)時(shí)器的時(shí)間設(shè)為延時(shí)秒數(shù)并開(kāi)啟，里面的代碼是打開(kāi)騎車運(yùn)動(dòng)的計(jì)時(shí)器。
VB6.0里怎么做開(kāi)關(guān)和指示燈
實(shí)際就是圖片更換，用淺色燈圖片作為熄滅指示燈，用鮮艷深色等圖片做為點(diǎn)亮指示燈
select case power
case 0
set image1.picture=loadpicture("c:\abc\熄滅.jpg")
case 1
set image1.picture=loadpicture("c:\abc\亮度1.jpg")
case 2
set image1.picture=loadpicture("c:\abc\亮度2.jpg")
case3
......
case n
set image1.picture=loadpicture("c:\abc\點(diǎn)亮n.jpg")
end select
網(wǎng)頁(yè)題目：vb.net怎么畫(huà)指示燈的簡(jiǎn)單介紹
地址分享：http://fisionsoft.com.cn/article/ddodisi.html
