| 源码简介： |
公交车辆描述，用VB编写。是有关的我毕业论文里的一个小程序。我要做的就是公交车辆查询分析等方面的。-Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0Image1.Picture = LoadPicture("F:/毕业论文/材料/图片资料/公交车辆/沈阳有轨列车.jpg")Label1.Caption = " 沈阳第一辆有轨电车！"Case 1Image1.Picture = LoadPicture("F:/毕业论文/材料/图片资料/公交车辆/沈阳公交.jpg")Label1.Caption = " 沈阳现代公交车！"Case 2Image1.Picture = LoadPicture("F:/毕业论文/材料/图片资料/公交车辆/沈阳双层公交.jpg")Label1.Caption = " 沈阳的双层公交车！"Case 3Image1.Picture = LoadPicture("F:/毕业论文/材料/图片资料/公交车辆/夜景公交.jpg")Label1.Caption = " 沈阳夜景中的公交车！"End Select11End Sub
|
