📄 etklokmain.frm
字号:
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 17
Left = 7710
MouseIcon = "EtKlokMain.frx":17A92
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 16
Left = 7260
MouseIcon = "EtKlokMain.frx":17D9C
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 15
Left = 6810
MouseIcon = "EtKlokMain.frx":180A6
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 14
Left = 6330
MouseIcon = "EtKlokMain.frx":183B0
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 13
Left = 5880
MouseIcon = "EtKlokMain.frx":186BA
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 12
Left = 5370
MouseIcon = "EtKlokMain.frx":189C4
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 11
Left = 4890
MouseIcon = "EtKlokMain.frx":18CCE
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 10
Left = 4470
MouseIcon = "EtKlokMain.frx":18FD8
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 9
Left = 3990
MouseIcon = "EtKlokMain.frx":192E2
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 8
Left = 3660
MouseIcon = "EtKlokMain.frx":195EC
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 7
Left = 3270
MouseIcon = "EtKlokMain.frx":198F6
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 6
Left = 2790
MouseIcon = "EtKlokMain.frx":19C00
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 5
Left = 2340
MouseIcon = "EtKlokMain.frx":19F0A
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 4
Left = 1950
MouseIcon = "EtKlokMain.frx":1A214
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 3
Left = 1500
MouseIcon = "EtKlokMain.frx":1A51E
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 2
Left = 1050
MouseIcon = "EtKlokMain.frx":1A828
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 1
Left = 570
MouseIcon = "EtKlokMain.frx":1AB32
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Image ZmdgImg
Height = 510
Index = 0
Left = 120
MouseIcon = "EtKlokMain.frx":1AE3C
MousePointer = 99 'Custom
Top = 8460
Width = 480
End
Begin VB.Label SysNameLab
BackStyle = 0 'Transparent
Caption = "飞鹤全自动电脑点歌系统2003黄金版"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 315
Left = 4200
MouseIcon = "EtKlokMain.frx":1B146
MousePointer = 99 'Custom
TabIndex = 13
Top = 210
Width = 3945
End
Begin VB.Label XHLab
BackStyle = 0 'Transparent
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 120
MouseIcon = "EtKlokMain.frx":1B450
MousePointer = 99 'Custom
TabIndex = 12
Top = 1380
Width = 1485
End
Begin VB.Label PageLab
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "PageLab"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 60
MouseIcon = "EtKlokMain.frx":1B75A
MousePointer = 99 'Custom
TabIndex = 9
Top = 7380
Width = 1290
End
Begin VB.Label AllPage
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "AllPage"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 1500
MouseIcon = "EtKlokMain.frx":1BA64
MousePointer = 99 'Custom
TabIndex = 8
Top = 7380
Width = 1290
End
Begin VB.Label BFNameLab
BackStyle = 0 'Transparent
Caption = "包房名"
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 120
MouseIcon = "EtKlokMain.frx":1BD6E
MousePointer = 99 'Custom
TabIndex = 1
Top = 1020
Width = 1755
End
Begin VB.Label IsPlayLab
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 1740
MouseIcon = "EtKlokMain.frx":1C078
MousePointer = 99 'Custom
TabIndex = 0
Top = 8040
Width = 2910
End
Begin VB.Image CaptionImg
Height = 915
Left = 15
MouseIcon = "EtKlokMain.frx":1C382
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 0
Width = 11955
End
Begin VB.Image ChangeImg2
Height = 1185
Left = 9690
Top = 1890
Width = 2265
End
Begin VB.Image SysBackImg
Height = 8070
Left = 0
MouseIcon = "EtKlokMain.frx":1C68C
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 930
Width = 11985
End
End
Attribute VB_Name = "EtKlokMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim SongPage As Integer
Dim PageUpSelect As Boolean
Dim StarIndex As Integer
Dim StarCount As Integer
Dim StarData() As StarS
Private Type StarS
StarName As String
StarPath As String
End Type
Dim x As ListItem
Dim ZmgqIndex As Integer
Dim SelPagIndex As Integer
Dim ToolIndex As Integer
Dim StarPagIndex As Integer
Dim YdgqToolIndex As Integer
Dim DglbIndex As Integer
Dim OneClassIndex As Integer
Dim FlgqIndex As Integer
Dim HcgqIndex As Integer
Dim LxgbIndex As Integer
Dim DyxpIndex As Integer
Dim ChangeFlag As Boolean
Dim SelectStyle As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 114
ToolImg_Click 2
EtYKQ.ShowYKQ "重 唱", True
Case 115
ToolImg_Click 4
EtYKQ.ShowYKQ "停 唱", True
Case 97
If PlaySDFlag = "L" Then
RightDVD
PlaySDFlag = "R"
EtYKQ.ShowYKQ "右声道播放", True
Else
LeftDVD
PlaySDFlag = "L"
EtYKQ.ShowYKQ "左声道播放", True
End If
Case 112
If PauseFlag Then
PauseFlag = False
ContinuePlayDVD
EtYKQ.ShowYKQ "播 放", True
Else
PauseDVD
PauseFlag = True
EtYKQ.ShowYKQ "暂 停", True
End If
Case 100
If StarLbe.Caption = "歌星点歌" Then
ChangeImg_Click
End If
YdgqImg_Click (1)
EtYKQ.ShowYKQ "删 歌", True
Case 109
GQList.SetFocus
SelectStyle = 1
EtYKQ.ShowYKQ "主 画 面", True
GQList.SetFocus
Case 119
ChangeImg_Click
EtYKQ.ShowYKQ StarLbe.Caption, True
YDGQList.SetFocus
If StarLbe.Caption = "歌星点歌" Then
SelectStyle = 3
Else
SelectStyle = 2
End If
Case 105
If StarLbe.Caption = "歌星点歌" Then
ChangeImg_Click
End If
YdgqImg_Click (0)
EtYKQ.ShowYKQ "优 先", True
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
EtYKQ.ShowYKQ "接收遥控器输入", False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -