包含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怎么做指示灯的词条
文章源于：https://www.cdcxhl.com/article10/hedpdo.html

成都网站建设公司_创新互联，为您提供手机网站建设、网站改版、网站收录、域名注册、动态网站、自适应网站

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联