Description: Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\沈阳有轨列车.jpg")
Label1.Caption = " 沈阳第一辆有轨电车！"
Case 1
Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\沈阳公交.jpg")
Label1.Caption = " 沈阳现代公交车！"
Case 2
Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\沈阳双层公交.jpg")
Label1.Caption = " 沈阳的双层公交车！"
Case 3
Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\夜景公交.jpg")
Label1.Caption = " 沈阳夜景中的公交车！"
End Select
11
End Sub
To Search:
File list (Check if you may need any files):
GIS TRAFFIC.doc
Download