vb红绿灯自动切换_vb教程之用VB编写“红绿灯”程序

作者：伟子

平时我们在过马路的时候常常会看到指挥交通的红绿灯，它的权利可大了，要是我们可以控制它就好了，虽然在现实生活中办不到，就让我们编写一个虚拟的红绿灯程序，也来过过控制红绿灯的瘾。

下面我们就开始编写吧。

第一件事当然是新建一个工程，然后引入所需控件。在“红绿灯”程序中，我们需要用到的控件有：OptionButton(选项按钮)、Image(图像框)及Timer(时钟)控件。引入两个OptionButton，其中Option1的Caption设置为“红灯”，Option2的Caption设置为“绿灯”；Image1的Picture属性设置为红灯图片，选择一张红灯图片(读者可以自己创建一个红灯及绿灯图片)。设计好的程序界面如图1。

好了，现在我们开始添加程序代码。

我们要求程序能够通过我们所选择的是红灯或绿灯来显示相应的图像，实现的原理就是当我们单击“红灯”时显示红灯图片，单击“绿灯”时显示绿灯图片，只要用户准备好这两张图片后，要实现这个功能就非常的容易了。其具体的程序代码如下：

双击Option1(即红灯)控件，添加如下代码：(黑体部分为系统自动生成的代码，下同)

Private Sub Option1_Click()

′显示红灯图片

On Error GoTo LoadErr　′当载入图片发生错误时跳到LoadErr处

If Option1.Value=True Then　′当单击了Option1控件时

Image1.Picture=LoadPicture(″C:\Windows\Desktop\red.jpg″)　′载入red.jpg图片，并显示在Image1控