📄 frmmenu.frm
字号:
VERSION 5.00
Begin VB.Form frmMenu
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5595
ClientLeft = 45
ClientTop = 45
ClientWidth = 2940
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmMenu.frx":0000
ScaleHeight = 5595
ScaleWidth = 2940
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Image Image2
Height = 435
Index = 9
Left = 480
Picture = "frmMenu.frx":15C0
Stretch = -1 'True
Top = 240
Width = 480
End
Begin VB.Label Label1
Caption = " 开始记费 "
Height = 495
Index = 9
Left = 360
TabIndex = 9
Top = 240
Width = 2535
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 45
Index = 1
Left = 360
Top = 840
Width = 2535
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 45
Index = 0
Left = 360
Top = 4920
Width = 2535
End
Begin VB.Image Image2
Height = 435
Index = 8
Left = 480
Picture = "frmMenu.frx":1A02
Stretch = -1 'True
Top = 960
Width = 480
End
Begin VB.Image Image2
Height = 360
Index = 7
Left = 480
Picture = "frmMenu.frx":1E44
Stretch = -1 'True
Top = 1560
Width = 465
End
Begin VB.Image Image2
Height = 360
Index = 6
Left = 480
Picture = "frmMenu.frx":2286
Stretch = -1 'True
Top = 2040
Width = 435
End
Begin VB.Image Image2
Height = 360
Index = 5
Left = 480
Picture = "frmMenu.frx":2590
Stretch = -1 'True
Top = 2520
Width = 360
End
Begin VB.Image Image2
Height = 360
Index = 4
Left = 480
Picture = "frmMenu.frx":29D2
Stretch = -1 'True
Top = 3000
Width = 360
End
Begin VB.Image Image2
Height = 360
Index = 3
Left = 480
Picture = "frmMenu.frx":2E14
Stretch = -1 'True
Top = 3480
Width = 360
End
Begin VB.Image Image2
Height = 435
Index = 2
Left = 480
Picture = "frmMenu.frx":3256
Stretch = -1 'True
Top = 3960
Width = 345
End
Begin VB.Image Image2
Height = 345
Index = 1
Left = 480
Picture = "frmMenu.frx":3698
Stretch = -1 'True
Top = 4440
Width = 315
End
Begin VB.Image Image2
Height = 345
Index = 0
Left = 480
Picture = "frmMenu.frx":39A2
Stretch = -1 'True
Top = 5040
Width = 345
End
Begin VB.Label Label1
Caption = " 程序 "
Height = 495
Index = 8
Left = 360
TabIndex = 8
Top = 960
Width = 2535
End
Begin VB.Label Label1
Caption = " 常用网址"
Height = 495
Index = 7
Left = 360
TabIndex = 7
Top = 1440
Width = 2535
End
Begin VB.Label Label1
Caption = " 进入网吧聊天室"
Height = 495
Index = 6
Left = 360
TabIndex = 6
Top = 2040
Width = 2535
End
Begin VB.Label Label1
Caption = " 点要商品"
Height = 495
Index = 5
Left = 360
TabIndex = 5
Top = 2520
Width = 2535
End
Begin VB.Label Label1
Caption = " 查看储金卡"
Height = 495
Index = 4
Left = 360
TabIndex = 4
Top = 3000
Width = 2535
End
Begin VB.Label Label1
Caption = " 查看上机时间"
Height = 495
Index = 3
Left = 360
TabIndex = 3
Top = 3480
Width = 2535
End
Begin VB.Label Label1
Caption = " 系统设置"
Height = 495
Index = 2
Left = 360
TabIndex = 2
Top = 3960
Width = 2535
End
Begin VB.Label Label1
Caption = " 退出系统"
Height = 495
Index = 1
Left = 360
TabIndex = 1
Top = 4440
Width = 2535
End
Begin VB.Label Label1
Caption = " 关机"
Height = 495
Index = 0
Left = 360
TabIndex = 0
Top = 5040
Width = 2535
End
End
Attribute VB_Name = "frmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Deactivate()
Unload Me
End Sub
Private Sub Form_Load()
Me.Left = 30
Me.Top = frmButton.Top - Me.Height - 80
If NowJF = True Then
Label1(9) = " 结帐"
Else
Label1(9) = " 开始记费"
End If
'frmButton.Flash
Me.Show
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 1 Or 2
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Label1(Index).BackColor = &H8000000D Then Exit Sub
For i = 0 To Label1.Count - 1
Label1(i).BackColor = Me.BackColor
Label1(i).ForeColor = 0
'Image2(i).BorderStyle = 0
Next i
Label1(Index).BackColor = &H8000000D
Label1(Index).ForeColor = &H80000009
'Image2(Index).BorderStyle = 1
End Sub
Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'On Error Resume Next
If Button = 1 Then
Select Case Index
Case 0 '关机
ShowFrmMain
frmMain.Combo1.Text = "关机"
frmMain.Combo1_Click
Case 1 '退出
ShowFrmMain
frmMain.Combo1.Text = "退出记费器"
frmMain.Combo1_Click
Case 2 '设置
ShowFrmMain
frmMain.Combo1.Text = "系统设置"
frmMain.Combo1_Click
' frmMain.Combo1.Enabled = False
Case 3 '时间
frmButton.Winsock1.SendData "_gets" + Chr(0) + "time"
DoEvents
Case 4 '储金卡
frmGetCard.Show 0
Case 5 '商品
frmButton.Winsock1.SendData "_gets" + Chr(0) + "good"
DoEvents
Case 6 '聊天室
'进入聊天室
frmCharUser.Show
Case 7 '网址
PopupMenu frmButton.cdHTTP, , Me.Width - 20
Case 8 '程序
Case 9 '开始记费
frmButton.Winsock1.SendData "_comm" + Chr(0) + "start"
DoEvents
End Select
Unload Me
'frmButton.Flash
ElseIf Button = 2 Then
Unload Me
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -