📄 frmmain.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 29
Left = 7905
MousePointer = 99 'Custom
TabIndex = 12
ToolTipText = "点击选择站名"
Top = 6255
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 = &H00000000&
Height = 240
Index = 30
Left = 8655
MousePointer = 99 'Custom
TabIndex = 11
ToolTipText = "点击选择站名"
Top = 5790
Width = 480
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 = 0
Left = 5805
MousePointer = 99 'Custom
TabIndex = 10
ToolTipText = "点击选择站名"
Top = 2355
Width = 960
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 = 1
Left = 5565
MousePointer = 99 'Custom
TabIndex = 9
ToolTipText = "点击选择站名"
Top = 3525
Width = 960
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 = 2
Left = 5910
MousePointer = 99 'Custom
TabIndex = 8
ToolTipText = "点击选择站名"
Top = 4260
Width = 960
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 = 3
Left = 5265
MousePointer = 99 'Custom
TabIndex = 7
ToolTipText = "点击选择站名"
Top = 4470
Width = 480
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 = &H00000000&
Height = 240
Index = 17
Left = 1095
MousePointer = 99 'Custom
TabIndex = 6
ToolTipText = "点击选择站名"
Top = 2835
Width = 1200
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 = &H00000000&
Height = 240
Index = 16
Left = 1770
MousePointer = 99 'Custom
TabIndex = 5
ToolTipText = "点击选择站名"
Top = 2130
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "5元、10元纸币入口"
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1200
TabIndex = 4
Top = 120
Width = 3210
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "取票找零口"
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 9840
TabIndex = 3
Top = 7560
Width = 1875
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Welcome to Guangzhou Metro"
BeginProperty Font
Name = "Arial Black"
Size = 21.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 615
Left = 1395
TabIndex = 2
Top = 9660
Width = 7050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欢迎乘坐广州地铁"
BeginProperty Font
Name = "隶书"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 840
Left = 1545
TabIndex = 1
Top = 8925
Width = 6720
End
Begin VB.Shape Shape1
BackColor = &H00C0FFFF&
BackStyle = 1 'Opaque
Height = 5775
Left = 9480
Top = 720
Width = 5535
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 6555
Left = 180
Picture = "frmMain.frx":3491E
Top = 1950
Width = 9060
End
Begin VB.Image imgPopIcon
Height = 2325
Left = 9690
Picture = "frmMain.frx":39B85
Top = 8130
Width = 4920
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim index10Yuan As Integer
Private Sub cmdBuyMore_Click()
Call changeScreen(3) ' 显示购买多张页面
End Sub
Private Sub cmdCancel_Click()
' 如果已付款则出币
If txtPaid > 0 Then
Call showIcons(0, txtPaid)
End If
' 修改显示
txtChange.Text = txtPaid ' 找零为已付金额数
txtPaid.Text = 0 ' 已付金额清零
Call finishExchange
End Sub
Private Sub cmdInsertMoney_Click()
Dim i As Integer
cmdInsertMoney.Visible = False
' 计算需要最少10元纸币数
nMax10Yuan = (txtAccount + 9) \ 10
' 设置纸币数
img10Yuan(0).Visible = True
For i = 1 To nMax10Yuan - 1
Load img10Yuan(i)
img10Yuan(i).Visible = True
Next
End Sub
Private Sub cmdReselect_Click()
txtSelectedTicketNum.Text = 1
End Sub
Private Sub cmdSelectTicket_Click(Index As Integer)
txtSelectedTicketNum.Text = cmdSelectTicket(Index).Caption
txtTicketNum.Text = txtSelectedTicketNum.Text
End Sub
Private Sub cmdTicketSelected_Click()
Call changeScreen(2) ' 回到购票界面
' 计算票价
Call calculateAccount
End Sub
Private Sub Form_Load()
' 程序从这里正式开始运行……
Call setInitStation("农讲所")
Call Init ' 初始化系统
Call changeScreen(1) ' 显示欢迎提示
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub img10Yuan_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
index10Yuan = Index ' 记录被点击的纸币编号
img10Yuan(Index).Drag vbBeginDrag ' 开始拖动纸币
End Sub
Private Sub img1Yuan_Click(Index As Integer)
' 删除多余1元硬币
For i = 1 To nShowed1Yuan - 1
Unload frmMain.img1Yuan(i)
Next
' 恢复初始状态
Call Init
Call changeScreen(1)
End Sub
Private Sub imgAbout_Click()
frmAbout.Show
End Sub
Private Sub imgIcon_Click(Index As Integer)
' 删除多余1元硬币
For i = 1 To nShowed1Yuan - 1
Unload frmMain.img1Yuan(i)
Next
' 恢复初始状态
Call Init
Call changeScreen(1)
End Sub
Private Sub imgShowFollow_Click()
Dialog.Show
End Sub
Private Sub Label1_Click()
s = InputBox("请正确输入初始站名", "更换初始站名")
If getStationNO(s) >= 0 Then
Call setInitStation(s)
Call Init ' 初始化系统
Call changeScreen(1) ' 显示欢迎提示
End If
End Sub
Private Sub lblStation_Click(Index As Integer)
If Not fraPage2.Visible Then Call changeScreen(2) ' 切换页面
' 设置第2页目的地站名
destStation = lblStation(Index).Caption
Call setPage2 ' 计算并显示票价
End Sub
Private Sub picSlit_DragDrop(Source As Control, X As Single, Y As Single)
img10Yuan(index10Yuan).Drag vbEndDrag
img10Yuan(index10Yuan).Visible = False
Call insertMoney(10) ' 投币10元
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -