关于vb.net指示灯控件的信息
VB中指示灯怎么按条件与否点亮、熄灭?
可使用FillColor属性改变Shape控件填充形状的颜色。
成都网站建设、做网站的关注点不是能为您做些什么网站,而是怎么做网站,有没有做好网站,给成都创新互联一个展示的机会来证明自己,这并不会花费您太多时间,或许会给您带来新的灵感和惊喜。面向用户友好,注重用户体验,一切以用户为中心。
当灯亮时显示灯亮的色彩。
当灯灭时显示窗体的BackColor背景颜色。
BackColor属性,BackColor-返回或设置对象的背景颜色。
用一个Timer控件的Timer事件来判别条件的变化。
以下是实施代码。
Option Explicit
Dim zt_dm1
Private Sub Command1_Click()
zt_dm1 = 1
End Sub
Private Sub Command2_Click()
zt_dm1 = 0
End Sub
Private Sub Form_Load()
zt_dm1 = 0
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If zt_dm1 = 1 Then
Shape1.FillStyle = 0
Shape1.FillColor = vbGreen
Shape2.FillStyle = 0
Shape2.FillColor = Me.BackColor
Else
Shape1.FillStyle = 0
Shape1.FillColor = Me.BackColor
Shape2.FillStyle = 0
Shape2.FillColor = vbRed
End If
效果:
用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 light控件在哪里?
题主您好,第一个 Light 控件不是 .net 2010 中的自带控件,而是一个用户自定义控件,这个控件的下载地址是:。
另附该控件的源代码:。
第一个是 ListView 控件。
我想用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编写一个交通灯的程序
下面这个希望可以帮到你~交通灯
实例说明在本实例中,我们将制作一个具有交通灯效果的应用程序。程序运行后,交通灯不断地变化,可以通过按钮运行或停止程序。程序运行结果如图88-1所示。技术要点l 不断变换图片l 不断更改时间间隔 type="text/javascript" type="text/javascript" src=" "
实现过程■ 新建项目打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"Traffic",然后选择保存路径。单击"确认"。■ 添加控件向当前窗体添加一个Timer控件,用于控制交通灯变换的时间;三个Picture控件,分别装入相应的图片;一个Button按钮,用于控制交通灯。属性保持默认值。■ 添加代码Dim vv As BooleanDim updirec As BooleanPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Clickvv = Timer1.Enabledvv = Not vvTimer1.Enabled = vvIf vv ThenCommand1.Text = "开 始"ElseCommand1.Text = "停 止"End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickStatic i As ShortSelect Case iCase 0Timer1.Interval = 3000picicon0.Visible = Truepicicon1.Visible = Falsepicicon2.Visible = Falsei = i + 1updirec = FalseCase 1Timer1.Interval = 1000picicon0.Visible = Falsepicicon1.Visible = Truepicicon2.Visible = False'Me.Icon = picicon(i).ImageIf updirec Theni = i - 1Elsei = i + 1End IfCase 2Timer1.Interval = 3000picicon0.Visible = Falsepicicon1.Visible = Falsepicicon2.Visible = Truei = i - 1updirec = TrueEnd SelectEnd Sub■ 运行程序单击菜单"调试|启动"或单击 图标运行程序。
VB.NET里面用什么控件做指示灯比较好?请说明为优点。
VB.NET里用GDI+画指示灯其实很简单,稍微查一点资料就能找到gdi+语句的用法的。用GDI+可以画很多种图形,圆形半圆形自然不在话下。如果有很多指示灯在一起的话,改起来也很方便。
当然如果嫌GDI+麻烦可以用label控件,把autosize关掉,将尺寸调小一点,然后利用backcolor调背景颜色作为指示灯,只不过是方形的。
如果指示灯很多而且频繁换颜色的话建议用GDI+,因为GDI+效率高一些
本文题目:关于vb.net指示灯控件的信息
网页路径:http://scyanting.com/article/phepso.html