vb.net制作指示灯的简单介绍

[VB.NET]如何用VB在窗体中实现闪烁文字

通过使用VB的Timer控件，程序员可以轻松的在窗体上实现闪烁文字的效果。本文将演示如何为Label控件加上闪烁效果，这种方法同样适用于其它多种控件。以下代码可以完成检验ForeColor属性的任务： Private Sub Timer1_Timer() If Label1.ForeColor = Label1.BackColor Then Label1.ForeColor = vbBlack Else Label1.ForeColor = Label1.BackColor End If End Sub 另外，你也可以让文字采用不同的颜色，比如交替采用红色和绿色： Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbGreen Else Label1.ForeColor = vbRed End If End Sub 当你停止文字闪烁时，还要确定文字的状态是可见的并且采用了合适的色彩。

相关问答

Q1: vb.net 串口点亮小灯

SCON = 0x50; //REN=1允许串行接受状态，串口工作模式1 TMOD|= 0x20; 试下这个程序，PC发什么，它就回送什么，收到数据，点亮P2.0的LED。

Q2: 请问如何用vb.net编写程序控制led电子屏显示文字？

主要是对SerialPort控件的编程和数据库的读取,

在数据库读取方面可以用 DataSet ,BindingSource , TableAdapter 等数据绑定控件,

SerialPort控件的具体读写方法建议你看MSDN,大概是:

Private Sub 关闭和启动串口()

Try

If 串口.IsOpen Then

串口.Close()

End If

串口.Open()

Catch ex As Exception

''''

End Try

End Sub

Private Sub 串口的读与写()

......

Dim 发送字节() As Byte, 返回字节 As Byte

Try

'例如要发送字节: 6D

发送字节 = BitConverter.GetBytes(CByte("H6D"))

串口.Write(发送字节, 0, 1)

......

'例如读串口返回的字节

返回字节 = 串口.ReadByte

Catch ex As Exception

''''

End Try

......

End Sub

'等等