歌星点歌.frm
来自「VOD卡拉OK点歌系统源码」· FRM 代码 · 共 396 行
FRM
396 行
VERSION 5.00
Begin VB.Form 歌星点歌
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 7200
ClientLeft = 0
ClientTop = 0
ClientWidth = 9615
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 7200
ScaleWidth = 9615
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 7215
Left = 0
Picture = "歌星点歌.frx":0000
ScaleHeight = 7215
ScaleWidth = 9615
TabIndex = 0
Top = 0
Width = 9615
Begin VB.Label Label15
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 3135
Left = 7440
MouseIcon = "歌星点歌.frx":BB86
MousePointer = 99 'Custom
TabIndex = 15
Top = 1800
Width = 1575
End
Begin VB.Label Label14
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 3135
Left = 5280
MouseIcon = "歌星点歌.frx":BE90
MousePointer = 99 'Custom
TabIndex = 14
Top = 2040
Width = 1575
End
Begin VB.Label Label13
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 3135
Left = 2760
MouseIcon = "歌星点歌.frx":C19A
MousePointer = 99 'Custom
TabIndex = 13
Top = 2040
Width = 1575
End
Begin VB.Label Label12
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 3135
Left = 600
MouseIcon = "歌星点歌.frx":C4A4
MousePointer = 99 'Custom
TabIndex = 12
Top = 1800
Width = 1575
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 240
MouseIcon = "歌星点歌.frx":C7AE
MousePointer = 99 'Custom
TabIndex = 11
Top = 6720
Width = 855
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 1320
MouseIcon = "歌星点歌.frx":CAB8
MousePointer = 99 'Custom
TabIndex = 10
Top = 6720
Width = 735
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 2160
MouseIcon = "歌星点歌.frx":CDC2
MousePointer = 99 'Custom
TabIndex = 9
Top = 6720
Width = 735
End
Begin VB.Label Label4
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 3120
MouseIcon = "歌星点歌.frx":D0CC
MousePointer = 99 'Custom
TabIndex = 8
Top = 6720
Width = 735
End
Begin VB.Label Label5
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 3960
MouseIcon = "歌星点歌.frx":D3D6
MousePointer = 99 'Custom
TabIndex = 7
Top = 6720
Width = 735
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 4920
MouseIcon = "歌星点歌.frx":D6E0
MousePointer = 99 'Custom
TabIndex = 6
Top = 6720
Width = 615
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 5760
MouseIcon = "歌星点歌.frx":D9EA
MousePointer = 99 'Custom
TabIndex = 5
Top = 6720
Width = 975
End
Begin VB.Label Label8
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 6960
MouseIcon = "歌星点歌.frx":DCF4
MousePointer = 99 'Custom
TabIndex = 4
Top = 6720
Width = 615
End
Begin VB.Label Label9
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 7800
MouseIcon = "歌星点歌.frx":DFFE
MousePointer = 99 'Custom
TabIndex = 3
Top = 6720
Width = 735
End
Begin VB.Label Label10
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 8760
MouseIcon = "歌星点歌.frx":E308
MousePointer = 99 'Custom
TabIndex = 2
Top = 6720
Width = 615
End
Begin VB.Label Label11
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 5280
MouseIcon = "歌星点歌.frx":E612
MousePointer = 99 'Custom
TabIndex = 1
Top = 455
Width = 4095
End
End
End
Attribute VB_Name = "歌星点歌"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public jm As String
Private Sub Form_Activate()
If pf.yxsongsz(1).songname <> "" Then
Label11.Caption = pf.yxsongsz(1).songname
'Call nextForm.Form_Initialize
Else
Label11.Caption = "没有待播的歌曲"
已选歌曲.Timer1.Enabled = False
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 49
Call swansex("男")
Case 50
Call swansex("女")
Case 51
Call swansex("组")
Case 52
Call swansex("ALL")
Case Else
Call pf.pubkey(KeyCode, 歌星点歌.jm)
End Select
End Sub
Private Sub Label1_Click()
Call pf.Main
End Sub
Private Sub Label10_Click()
Call pf.volumesub
End Sub
Private Sub Label12_Click()
Call swansex(1)
pf.sex = "男"
End Sub
Private Sub Label12_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
主界面.Show
End If
End Sub
Private Sub Label13_Click()
Call swansex(0)
pf.sex = "女"
End Sub
Private Sub Label13_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
主界面.Show
End If
End Sub
Private Sub Label14_Click()
Call swansex(2)
pf.sex = "组"
End Sub
Private Sub Label14_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
主界面.Show
End If
End Sub
Private Sub Label15_Click()
Call swansex(4)
End Sub
Private Sub Label15_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
主界面.Show
End If
End Sub
Private Sub Label2_Click()
Call pf.chosid("主界面")
End Sub
Private Sub Label3_Click()
Call pf.back(Me.jm)
End Sub
Private Sub Label4_Click()
Call pf.spaly
End Sub
Private Sub Label5_Click()
Call pf.repaly
End Sub
Private Sub Label6_Click()
Call pf.ysong
End Sub
Private Sub Label7_Click()
Call pf.nextsong
End Sub
Private Sub Label8_Click()
Call pf.calls
End Sub
Private Sub Label9_Click()
Call pf.volumeadd
End Sub
Private Sub Picture2_Click()
Call pf.bsong
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
主界面.Show
End If
End Sub
Private Sub 伴唱_Click()
Call pf.bsong
End Sub
Private Sub 暂停_Click()
Call pf.sstop
End Sub
Public Sub swansex(sexp As Integer)
Erase pf.swan
'On Error Resume Next
If sexp = 4 Then
Set rs = db.Execute("select * from tblswan")
Else
Set rs = db.Execute("select * from tblswan where sex=" & sexp)
End If
pf.swani = 0
Do While Not rs.EOF
pf.swan(pf.swani).sex = rs.Fields("sex")
pf.swan(pf.swani).spell = rs.Fields("spell")
pf.swan(pf.swani).swanname = rs.Fields("name")
pf.swan(pf.swani).firstword = rs.Fields("firstword")
pf.swani = pf.swani + 1
rs.movenext
Loop
rs.Close
Unload 歌星选择
'歌星选择.jm = "歌星点歌"
歌星选择.Show
nextForm.Visible = False
pf.from = "歌星"
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?