📄 frmmain.frm
字号:
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 420
Left = 1395
Locked = -1 'True
TabIndex = 43
Top = 675
Width = 825
End
Begin VB.CommandButton Command3
Caption = "普通票"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 195
TabIndex = 42
Top = 690
Width = 900
End
Begin VB.CommandButton cmdBuyMore
Caption = "购买多张"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3390
TabIndex = 41
Top = 1380
Width = 1650
End
Begin VB.Label Label43
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 = 255
TabIndex = 49
Top = 4545
Width = 1500
End
Begin VB.Label Label42
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 = 510
TabIndex = 48
Top = 3840
Width = 600
End
Begin VB.Label Label41
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 = 210
TabIndex = 47
Top = 3000
Width = 1200
End
Begin VB.Label Label40
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 = 210
TabIndex = 46
Top = 2085
Width = 1200
End
Begin VB.Label Label39
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 = 3945
TabIndex = 40
Top = 210
Width = 600
End
Begin VB.Label Label38
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 = 2715
TabIndex = 39
Top = 210
Width = 600
End
Begin VB.Label Label37
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 = 1530
TabIndex = 38
Top = 210
Width = 600
End
Begin VB.Label Label36
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 = 330
TabIndex = 37
Top = 210
Width = 600
End
End
Begin VB.PictureBox picSlit
AutoSize = -1 'True
Height = 720
Left = 1425
Picture = "frmMain.frx":15162
ScaleHeight = 660
ScaleWidth = 2625
TabIndex = 0
Top = 600
Width = 2685
End
Begin VB.Image img1Yuan
Height = 855
Index = 0
Left = 9900
Picture = "frmMain.frx":154E8
ToolTipText = "请点击取票和余款"
Top = 9450
Visible = 0 'False
Width = 855
End
Begin VB.Image imgShowFollow
Height = 810
Left = 375
Picture = "frmMain.frx":1611F
ToolTipText = "购票流程..."
Top = 8970
Width = 810
End
Begin VB.Image imgAbout
Height = 480
Left = 525
Picture = "frmMain.frx":16A65
ToolTipText = "关于..."
Top = 9975
Width = 480
End
Begin VB.Label lblFinishTip
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "请取票和余款"
BeginProperty Font
Name = "方正姚体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 450
Left = 12255
TabIndex = 71
Top = 7530
Visible = 0 'False
Width = 2250
End
Begin VB.Image imgIcon
Height = 900
Index = 5
Left = 13500
Picture = "frmMain.frx":2BBC7
ToolTipText = "请点击取票和余款"
Top = 8355
Visible = 0 'False
Width = 900
End
Begin VB.Image imgIcon
Height = 900
Index = 4
Left = 12747
Picture = "frmMain.frx":2C813
ToolTipText = "请点击取票和余款"
Top = 8355
Visible = 0 'False
Width = 900
End
Begin VB.Image imgIcon
Height = 900
Index = 3
Left = 12039
Picture = "frmMain.frx":2D45F
ToolTipText = "请点击取票和余款"
Top = 8355
Visible = 0 'False
Width = 900
End
Begin VB.Image imgIcon
Height = 900
Index = 2
Left = 11331
Picture = "frmMain.frx":2E0AB
ToolTipText = "请点击取票和余款"
Top = 8355
Visible = 0 'False
Width = 900
End
Begin VB.Image imgIcon
Height = 900
Index = 1
Left = 10623
Picture = "frmMain.frx":2ECF7
ToolTipText = "请点击取票和余款"
Top = 8355
Visible = 0 'False
Width = 900
End
Begin VB.Image imgIcon
Height = 900
Index = 0
Left = 9900
Picture = "frmMain.frx":2F943
ToolTipText = "请点击取票和余款"
Top = 8355
Visible = 0 'False
Width = 900
End
Begin VB.Image img10Yuan
Appearance = 0 'Flat
Height = 1260
Index = 0
Left = 6765
Picture = "frmMain.frx":3058F
Top = 285
Visible = 0 'False
Width = 2370
End
Begin VB.Label lblStation
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "东山口"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Index = 4
Left = 4410
MousePointer = 99 'Custom
TabIndex = 35
ToolTipText = "点击选择站名"
Top = 4125
Width = 720
End
Begin VB.Label lblStation
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "烈士陵园"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 480
Index = 5
Left = 3900
MousePointer = 99 'Custom
TabIndex = 34
ToolTipText = "点击选择站名"
Top = 4485
Width = 510
WordWrap = -1 'True
End
Begin VB.Label lblStation
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "农讲所"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Index = 6
Left = 3135
MousePointer = 99 'Custom
TabIndex = 33
ToolTipText = "点击选择站名"
Top = 4035
Width = 720
End
Begin VB.Label lblStation
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "西门口"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Index = 8
Left = 2025
MousePointer = 99 'Custom
TabIndex = 32
ToolTipText = "点击选择站名"
Top = 4530
Width = 720
End
Begin VB.Label lblStation
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "陈家祠"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -