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://scyanting.com/article/dosegio.html