📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "广州地铁自动售票机"
ClientHeight = 10740
ClientLeft = -105
ClientTop = 330
ClientWidth = 15210
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 716
ScaleMode = 3 'Pixel
ScaleWidth = 1014
WindowState = 2 'Maximized
Begin VB.CommandButton cmdInsertMoney
Caption = "选择投币"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 7335
TabIndex = 70
Top = 735
Width = 1305
End
Begin VB.Frame fraPage1
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 5670
Left = 9540
TabIndex = 67
Top = 765
Width = 5430
Begin VB.CommandButton cmdEnglish
Caption = "English"
Enabled = 0 'False
BeginProperty Font
Name = "Arial Black"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Left = 3660
TabIndex = 69
Top = 4905
Width = 1455
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请在地图上选择目的地站名"
BeginProperty Font
Name = "方正姚体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 105
TabIndex = 68
Top = 2205
Width = 5220
End
End
Begin VB.Frame fraPage3
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 5670
Left = 9525
TabIndex = 55
Top = 765
Width = 5430
Begin VB.CommandButton cmdSelectTicket
BackColor = &H00FF8080&
Caption = "6"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 5
Left = 4650
TabIndex = 66
Top = 435
Width = 495
End
Begin VB.CommandButton cmdSelectTicket
BackColor = &H00FF8080&
Caption = "5"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 4
Left = 3978
TabIndex = 65
Top = 435
Width = 495
End
Begin VB.CommandButton cmdSelectTicket
BackColor = &H00FF8080&
Caption = "4"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 3
Left = 3306
TabIndex = 64
Top = 435
Width = 495
End
Begin VB.CommandButton cmdSelectTicket
BackColor = &H00FF8080&
Caption = "3"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 2
Left = 2655
TabIndex = 63
Top = 435
Width = 495
End
Begin VB.CommandButton cmdSelectTicket
BackColor = &H00FF8080&
Caption = "2"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 1962
TabIndex = 62
Top = 435
Width = 495
End
Begin VB.CommandButton cmdSelectTicket
BackColor = &H00FF8080&
Caption = "1"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 1290
TabIndex = 61
Top = 435
Width = 495
End
Begin VB.TextBox txtSelectedTicketNum
Alignment = 2 'Center
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1785
Locked = -1 'True
TabIndex = 60
Text = "1"
Top = 2055
Width = 1425
End
Begin VB.CommandButton cmdReselect
Caption = "重选"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3705
TabIndex = 58
Top = 1980
Width = 1515
End
Begin VB.CommandButton cmdTicketSelected
Caption = "选择完成"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3690
TabIndex = 57
Top = 1305
Width = 1515
End
Begin VB.Label Label45
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "普通票张数"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 165
TabIndex = 59
Top = 2115
Width = 1500
End
Begin VB.Label Label44
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "普通票"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 195
TabIndex = 56
Top = 525
Width = 900
End
End
Begin VB.Frame fraPage2
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 5670
Left = 9540
TabIndex = 36
Top = 765
Width = 5430
Begin VB.CommandButton cmdCancel
Caption = "取消"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3405
TabIndex = 54
Top = 2025
Width = 1650
End
Begin VB.TextBox txtDestStation
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 420
Left = 225
Locked = -1 'True
TabIndex = 53
Top = 5070
Width = 2055
End
Begin VB.TextBox txtChange
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1545
Locked = -1 'True
TabIndex = 52
Text = "0"
Top = 3765
Width = 1245
End
Begin VB.TextBox txtPaid
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1545
Locked = -1 'True
TabIndex = 51
Text = "0"
Top = 2895
Width = 1245
End
Begin VB.TextBox txtAccount
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1530
Locked = -1 'True
TabIndex = 50
Text = "0"
Top = 2025
Width = 1245
End
Begin VB.TextBox txtCost
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 3855
Locked = -1 'True
TabIndex = 45
Top = 690
Width = 825
End
Begin VB.TextBox txtTicketNum
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2655
Locked = -1 'True
TabIndex = 44
Top = 690
Width = 825
End
Begin VB.TextBox txtPrice
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -