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

GIS TRAFFIC.doc

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．