VB6.0里沃想要通过按command1来实现标签label显示图片改怎么做到？

貌似Label里面不能显示图片啊？你可以用picture控件或者直接在界面上显示

如：picture1.Picture = LoadPicture(App.Path &"\1.bmp")

此句代码表示在当前文件夹中有个1.bmp图片文件，显示出来

这个比较简单。label是方的，不是圆的，所以我使用shape做了灯。

1、界面添加控件：一个计时器（timer）、一个形状（shape）、两个水平滚动条。

2、代码如下：

Dim 红灯时间 As Integer, 绿灯时间 As Integer, 红灯 As Boolean, 当前时间 As Integer

Private Sub Form_Load()

Shape1.Shape = 3

Shape1.FillStyle = 0

Shape1.FillColor = vbRed

Shape1.BorderColor = vbRed

Timer1.Interval = 1000

红灯 = True

HScroll1.Min = 1

HScroll1.Max = 100

HScroll1.Value = 5

HScroll2.Min = 1

HScroll2.Max = 100

HScroll2.Value = 5

End Sub

Private Sub HScroll1_Change()

红灯时间 = HScroll1.Value

红灯 = True

当前时间 = 0

End Sub

Private Sub HScroll2_Change()

绿灯时间 = HScroll2.Value

红灯 = False

当前时间 = 0

End Sub

Private Sub Timer1_Timer()

当前时间 = 当前时间 + 1

If 红灯 Then

If 当前时间 = 红灯时间 Then

红灯 = False

当前时间 = 0

Shape1.FillColor = vbGreen

Shape1.BorderColor = vbGreen

End If

Else

If 当前时间 = 绿灯时间 Then

红灯 = True

当前时间 = 0

Shape1.FillColor = vbRed

Shape1.BorderColor = vbRed

End If

End If

End Sub

需注意Label控件应在Picture控件上画出,而不是鼠标双击添加:

Private Sub Form_Load()

Label1.Left = 100

Label1.Top = 100

End Sub

---