📄 已选歌曲.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Index = 4
Left = 1080
MouseIcon = "已选歌曲.frx":123E7
MousePointer = 99 'Custom
TabIndex = 8
Top = 4515
Width = 4695
End
Begin VB.Label Label12
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Index = 5
Left = 1080
MouseIcon = "已选歌曲.frx":126F1
MousePointer = 99 'Custom
TabIndex = 7
Top = 5315
Width = 4695
End
Begin VB.Label Label13
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Index = 0
Left = 8370
MouseIcon = "已选歌曲.frx":129FB
MousePointer = 99 'Custom
TabIndex = 6
Top = 1500
Width = 270
End
Begin VB.Label Label13
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Index = 1
Left = 8370
MouseIcon = "已选歌曲.frx":12D05
MousePointer = 99 'Custom
TabIndex = 5
Top = 2265
Width = 270
End
Begin VB.Label Label13
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Index = 2
Left = 8370
MouseIcon = "已选歌曲.frx":1300F
MousePointer = 99 'Custom
TabIndex = 4
Top = 3030
Width = 270
End
Begin VB.Label Label13
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Index = 3
Left = 8370
MouseIcon = "已选歌曲.frx":13319
MousePointer = 99 'Custom
TabIndex = 3
Top = 3780
Width = 270
End
Begin VB.Label Label13
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Index = 4
Left = 8370
MouseIcon = "已选歌曲.frx":13623
MousePointer = 99 'Custom
TabIndex = 2
Top = 4515
Width = 270
End
Begin VB.Label Label13
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Index = 5
Left = 8370
MouseIcon = "已选歌曲.frx":1392D
MousePointer = 99 'Custom
TabIndex = 1
Top = 5310
Width = 270
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)
MsgBox KeyCode
Select Case KeyCode
Case 49 To 55
Label12_Click (KeyCode - 49)
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.yxsongi Mod 6) > 0 Then
pf.ysscountpage = pf.yxsongi \ 6 + 1
Else
pf.ysscountpage = pf.yxsongi \ 6
End If
Label19.Caption = CStr(pf.ysscountpage)
Label19.Left = 3320 - Label19.Width / 2
pf.ysspage = 1
Call yxpage
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)
For I = 0 To 5
Label12(I).ForeColor = RGB(255, 255, 255)
Label13(Index).ForeColor = RGB(255, 255, 255)
Next I
If Label12(Index).Caption <> "" Then
Label12(Index).ForeColor = RGB(100, 255, 0)
Label13(Index).ForeColor = RGB(100, 255, 0)
优先.index2 = Index
优先.Show
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.yxsongi Mod 6) > 0 Then
'pf.ysscountpage = pf.yxsongi \ 6 + 1
'Else
'pf.ysscountpage = pf.yxsongi \ 6
'End If
'Label19.Caption = CStr(pf.ysscountpage)
If pf.ysspage < pf.ysscountpage Then
pf.ysspage = pf.ysspage + 1
Call yxpage
'pf.ysspage = 1
End If
End Sub
Private Sub Label21_Click()
If pf.ysspage > 1 Then
pf.ysspage = pf.ysspage - 1
Call yxpage
End If
End Sub
Private Sub Label3_Click()
Call pf.back(Me.jm)
End Sub
Private Sub Label4_Click()
Call pf.sstop
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 List1_Click()
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 Timer1_Timer()
Dim astat As String
astat = pf.fastat
If astat = "stopped" Then
Call pf.nextsong
End If
End Sub
Private Sub 伴唱_Click()
Call pf.bsong
End Sub
Private Sub 暂停_Click()
Call pf.sstop
End Sub
Public Sub yxpage()
For I = 0 To 5
Label12(I).Caption = ""
Label12(I).Caption = pf.yxsongsz(pf.ysspage * 6 + I - 5).songname
Label13(I).Caption = ""
Label13(I).Caption = pf.yxsongsz(pf.ysspage * 6 + I - 5).swan
Label13(I).Left = 8300 - Label13(I).Width / 2
Next I
Label18.Caption = CStr(pf.ysspage)
Label18.Left = 1320 - Label18.Width / 2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -