vb.net控制信号灯 vb指示灯怎么画
VB.NET里面用什么控件做指示灯比较好?请说明为优点。
VB.NET里用GDI+画指示灯其实很简单,稍微查一点资料就能找到gdi+语句的用法的。用GDI+可以画很多种图形,圆形半圆形自然不在话下。如果有很多指示灯在一起的话,改起来也很方便。
成都创新互联坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、网站设计、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的花垣网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
当然如果嫌GDI+麻烦可以用label控件,把autosize关掉,将尺寸调小一点,然后利用backcolor调背景颜色作为指示灯,只不过是方形的。
如果指示灯很多而且频繁换颜色的话建议用GDI+,因为GDI+效率高一些
用VB.net模拟十字路口红绿灯交通信号的切换
实在不难,就是不知道你写了代码没有?
答案补充:
Dim xuhao As Integer
Const wenjianjia = "" '自己写好了
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
xuhao = xuhao + 1
If xuhao = 4 Then xuhao = 1
Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")
End Sub
vb.net 串口点亮小灯
SCON = 0x50; //REN=1允许串行接受状态,串口工作模式1 TMOD|= 0x20; 试下这个程序,PC发什么,它就回送什么,收到数据,点亮P2.0的LED。
用VB模拟交通信号灯
Private Sub Form_Load()
Timer1.Interval = 60000
Timer2.Interval = 60000
End SubPrivate Sub Timer1_Timer()
Me.BackColor = RGB(0, 255, 0)
Timer2.Enabled = True
Timer1.Enabled = False
End SubPrivate Sub Timer2_Timer()
Me.BackColor = RGB(255, 0, 0)
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
本文标题:vb.net控制信号灯 vb指示灯怎么画
浏览地址:http://pwwzsj.com/article/dosegio.html