锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net灯的简单介绍

IT技术控件

用VB.NET编写一个交通灯的程序下面这个希望可以帮到你~交通灯
实例说明在本实例中vb.net灯，我们将制作一个具有交通灯效果vb.net灯的应用程序 。程序运行后vb.net灯，交通灯不断地变化vb.net灯，可以通过按钮运行或停止程序 。程序运行结果如图88-1所示 。技术要点l 不断变换图片l 不断更改时间间隔 type="text/javascript"type="text/javascript" src="http://img.readke.com/231127/135T05218-0.jpg"
实现过程■ 新建项目打开Visual Studio.NETvb.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编写红绿灯程序给你思路把：当汽车运动时vb.net灯，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围vb.net灯，就停止汽车运动的那个计时器vb.net灯，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器 。
vb.net 怎么知道按下了多个按键用APIGetKeyboardState，判断所有的键里哪些被按下了 。
下面的是判断键盘灯的状态
Public Class NativeMethods
Private Shared keyState() As Byte
DllImport("user32.dll") _
Private Shared Function GetKeyboardState(ByVal keyState() As Byte) As Boolean
End Function
Private Shared Sub Update()
keyState = New Byte(256) {}
Dim result As Boolean = GetKeyboardState(keyState)
' Check for error:
If result = False Then
Debug.WriteLine("GetKeyBoardState error: "Marshal.GetLastWin32Error)
Throw New Exception("GetKeyBoardState error: "Marshal.GetLastWin32Error)
End If
End Sub
Public Enum LightState
Off
[On]
End Enum
' Example - the keyboard lights...
Public Shared ReadOnly Property CapsLockState() As LightState
Get
Update()
Dim isOn As Boolean = (keyState(Keys.CapsLock) = 1)
Return IIf(isOn, LightState.On, LightState.Off)
End Get
End Property
Public Shared ReadOnly Property NumLockState() As LightState
Get

推荐阅读


上一篇：硬盘录像机怎么接，硬盘录像机怎么接显示器

下一篇：买包包直播话术，直播销售包包技巧和开场白