📄 歌曲列表.frm
字号:
Begin VB.Label Label21
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 7560
MouseIcon = "歌曲列表.frx":12960
MousePointer = 99 'Custom
TabIndex = 13
Top = 6120
Width = 615
End
Begin VB.Label Label20
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 8280
MouseIcon = "歌曲列表.frx":12C6A
MousePointer = 99 'Custom
TabIndex = 12
Top = 6120
Width = 735
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 240
MouseIcon = "歌曲列表.frx":12F74
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":1327E
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":13588
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":13892
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":13B9C
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":13EA6
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":141B0
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":144BA
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":147C4
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":14ACE
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":14DD8
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
Public k As Integer
Private Sub Command1_Click()
'pf.kj
mciSendString "seek MyAVI to " & CStr(300000), vbNullString, 0, 0
mciSendString "play MyAVI", vbNullString, 0, 0
End Sub
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 To 55
Label12_Click (KeyCode - 49)
Case 58
If Picture3.Visible = True Then
Picture3_Click
Else
Picture2_Click
End If
Case 77
Label21_Click
Case 189
Label20_Click
Case Else
Call pf.pubkey(KeyCode, 歌曲列表.jm)
End Select
End Sub
Private Sub Form_Load()
nextForm.Visible = True
If (pf.songi Mod 6) > 0 Then
pf.scountpage = pf.songi \ 6 + 1
Else
pf.scountpage = pf.songi \ 6
End If
Label19.Caption = CStr(pf.scountpage)
Label19.Left = Label19.Left - Label19.Width / 4
pf.spage = 1
Call page
Select Case pf.from
Case "字数"
Picture3.Visible = True
Picture2.Visible = False
Case "拼音"
Picture3.Visible = False
Picture2.Visible = True
Case Else
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(Index As Integer)
If Label12(Index).Caption <> "" Then
pf.yxsongsz(pf.yxsongi) = pf.songsz(Index + pf.spage * 6 - 6)
pf.yxsongi = pf.yxsongi + 1
Label12(Index).ForeColor = RGB(100, 255, 0)
Label13(Index).ForeColor = RGB(100, 255, 0)
'MsgBox "ok"
'Unload 确定
'确定.index2 = Index
'确定.Show
If pf.playbj = "one" Then
pf.playbj = "zero"
Call pf.paly
Me.SetFocus
'Call pf.movenext
'Call pf.nextv
已选歌曲.Timer1.Enabled = True
End If
Call nextv
End If
End Sub
Private Sub Label12_MouseDown(Index As Integer, 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 Label20_Click()
If pf.spage < pf.scountpage Then
pf.spage = pf.spage + 1
Call page
End If
End Sub
Private Sub Label21_Click()
If pf.spage > 1 Then
pf.spage = pf.spage - 1
Call page
End If
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()
字数点歌.jm = "歌曲列表"
字数点歌.Show
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 Picture3_Click()
'pf.szsybj = "song"
'拼音点歌.jm = "歌曲列表"
拼音点歌.Show
nextForm.Visible = False
End Sub
Private Sub 伴唱_Click()
Call pf.bsong
End Sub
Private Sub 暂停_Click()
Call pf.sstop
End Sub
Public Sub page()
For I = 0 To 5
Label12(I).Caption = ""
Label12(I).ForeColor = RGB(255, 255, 255)
Label12(I).Caption = pf.songsz(pf.spage * 6 + I - 6).songname
Label13(I).Caption = ""
Label13(I).ForeColor = RGB(255, 255, 255)
Label13(I).Caption = pf.songsz(pf.spage * 6 + I - 6).swan
Label13(I).Left = 8290 - Label13(I).Width / 2
k = I
Call cz(k)
Next I
Label18.Caption = CStr(pf.spage)
Label18.Left = 1300 - Label18.Width / 2
End Sub
Public Sub cz(I As Integer)
For j = 0 To pf.yxsongi
If pf.songsz(pf.spage * 6 + I - 6).crc = pf.yxsongsz(j).crc Then
Label12(I).ForeColor = RGB(100, 255, 0)
Label13(I).ForeColor = RGB(100, 255, 0)
Exit For
End If
Next j
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -