?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -