包含vb.net怎么做指示灯的词条

vb6.0下如何做状态显示（指示灯）？

'2个重复的？'增加一个shape控件，设置一下相应的属性：园、fillstyle=0，然后复制建立园的数组，0-7共8个

创新互联网站建设公司一直秉承“诚信做人，踏实做事”的原则，不欺瞒客户，是我们最起码的底线！ 以服务为基础，以质量求生存，以技术求发展，成交一个客户多一个朋友！专注中小微企业官网定制，做网站、网站制作，塑造企业网络形象打造互联网企业效应。

'增加一个text控件

Option Explicit

Private Sub Form_Activate()

Text1 = "10101010"

End Sub

Private Sub Text1_Change()

Dim i As Integer

If IsNumeric(Text1) And Len(Text1) = 8 Then

For i = 1 To 8

If Mid(CStr(Text1), i, 1) = "0" Then

Shape1(i - 1).FillColor = vbGreen

ElseIf Mid(CStr(Text1), i, 1) = "1" Then

Shape1(i - 1).FillColor = vbRed

Else

Shape1(i - 1).FillColor = vbBlack '无效的2进制

End If

Next

End If

End Sub

我想用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: '设定为形状为正圆形

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

Shape1.FillStyle = 0: '显示背景

End Sub

vb.net 串口点亮小灯

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

分享名称：包含vb.net怎么做指示灯的词条
文章链接：http://cdxtjz.cn/article/hedpdo.html