form4.frm

车次查询－输入要查询的车次既可查询车次所有的停靠站 站点查询－输入一个站点

VERSION 5.00
Begin VB.Form map_frm 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "路线图"
   ClientHeight    =   5505
   ClientLeft      =   3000
   ClientTop       =   3195
   ClientWidth     =   5760
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   ScaleHeight     =   5505
   ScaleWidth      =   5760
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      Height          =   9000
      Left            =   0
      ScaleHeight     =   8940
      ScaleWidth      =   13380
      TabIndex        =   0
      Top             =   -1080
      Width           =   13440
   End
End
Attribute VB_Name = "map_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
     Select Case select_frm.txt4.Text
            Case "1"
                 Picture1.Picture = LoadPicture(App.Path + "\image\1.bmp")
            Case "11"
                 Picture1.Picture = LoadPicture(App.Path + "\image\11.bmp")
            Case "13"
                 Picture1.Picture = LoadPicture(App.Path + "\image\13.bmp")
            Case "9"
                 Picture1.Picture = LoadPicture(App.Path + "\image\9.bmp")
           Case "2"
                  Picture1.Picture = LoadPicture(App.Path + "\image\2.bmp")
           
            Case "20"
                  Picture1.Picture = LoadPicture(App.Path + "\image\20.bmp")
            Case "18"
                  Picture1.Picture = LoadPicture(App.Path + "\image\18.bmp")
    End Select
    Select Case select_frm.txt6.Text
           Case "1"
                 Picture1.Picture = LoadPicture(App.Path + "\image\1.bmp")
            Case "11"
                 Picture1.Picture = LoadPicture(App.Path + "\image\11.bmp")
            Case "13"
                 Picture1.Picture = LoadPicture(App.Path + "\image\13.bmp")
            Case "9"
                 Picture1.Picture = LoadPicture(App.Path + "\image\9.bmp")
            Case "2"
                  Picture1.Picture = LoadPicture(App.Path + "\image\2.bmp")
           
            Case "20"
                  Picture1.Picture = LoadPicture(App.Path + "\image\20.bmp")
            Case "18"
                  Picture1.Picture = LoadPicture(App.Path + "\image\18.bmp")
    End Select
End Sub