📄 拼音点歌.frm
字号:
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 1320
MouseIcon = "拼音点歌.frx":13EC1
MousePointer = 99 'Custom
TabIndex = 9
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":141CB
MousePointer = 99 'Custom
TabIndex = 8
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":144D5
MousePointer = 99 'Custom
TabIndex = 7
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":147DF
MousePointer = 99 'Custom
TabIndex = 6
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":14AE9
MousePointer = 99 'Custom
TabIndex = 5
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":14DF3
MousePointer = 99 'Custom
TabIndex = 4
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":150FD
MousePointer = 99 'Custom
TabIndex = 3
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":15407
MousePointer = 99 'Custom
TabIndex = 2
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":15711
MousePointer = 99 'Custom
TabIndex = 1
Top = 6720
Width = 615
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_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 68
Label37_Click
Case 79
Label38_Click
Case 48
Label36.Caption = Label36.Caption + "0"
Case 49
Label36.Caption = Label36.Caption + "1"
Case 50
Label36.Caption = Label36.Caption + "2"
Case 51
Label36.Caption = Label36.Caption + "3"
Case 52
Label36.Caption = Label36.Caption + "4"
Case 53
Label36.Caption = Label36.Caption + "5"
Case 54
Label36.Caption = Label36.Caption + "6"
Case 55
Label36.Caption = Label36.Caption + "7"
Case 56
Label36.Caption = Label36.Caption + "8"
Case 57
Label36.Caption = Label36.Caption + "9"
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 Label11_Click()
Label35.Caption = Label35.Caption + "A"
End Sub
Private Sub Label12_Click()
Label35.Caption = Label35.Caption + "B"
End Sub
Private Sub Label13_Click()
Label35.Caption = Label35.Caption + "C"
End Sub
Private Sub Label14_Click()
Label35.Caption = Label35.Caption + "D"
End Sub
Private Sub Label15_Click()
Label35.Caption = Label35.Caption + "E"
End Sub
Private Sub Label16_Click()
Label35.Caption = Label35.Caption + "G"
End Sub
Private Sub Label17_Click()
Label35.Caption = Label35.Caption + "H"
End Sub
Private Sub Label18_Click()
Label35.Caption = Label35.Caption + "I"
End Sub
Private Sub Label19_Click()
Label35.Caption = Label35.Caption + "J"
End Sub
Private Sub Label2_Click()
Call pf.chosid("主界面")
End Sub
Private Sub Label20_Click()
Label35.Caption = Label35.Caption + "K"
End Sub
Private Sub Label21_Click()
Label35.Caption = Label35.Caption + "M"
End Sub
Private Sub Label22_Click()
Label35.Caption = Label35.Caption + "N"
End Sub
Private Sub Label23_Click()
Label35.Caption = Label35.Caption + "O"
End Sub
Private Sub Label24_Click()
Label35.Caption = Label35.Caption + "P"
End Sub
Private Sub Label25_Click()
Label35.Caption = Label35.Caption + "Q"
End Sub
Private Sub Label26_Click()
Label35.Caption = Label35.Caption + "S"
End Sub
Private Sub Label27_Click()
Label35.Caption = Label35.Caption + "T"
End Sub
Private Sub Label28_Click()
Label35.Caption = Label35.Caption + "W"
End Sub
Private Sub Label29_Click()
Label35.Caption = Label35.Caption + "X"
End Sub
Private Sub Label3_Click()
Call pf.back(Me.jm)
End Sub
Private Sub Label30_Click()
Label35.Caption = Label35.Caption + "Y"
End Sub
Private Sub Label31_Click()
Label35.Caption = Label35.Caption + "F"
End Sub
Private Sub Label32_Click()
Label35.Caption = Label35.Caption + "L"
End Sub
Private Sub Label33_Click()
Label35.Caption = Label35.Caption + "R"
End Sub
Private Sub Label34_Click()
Label35.Caption = Label35.Caption + "Z"
End Sub
Private Sub Label37_Click()
If Label36.Caption <> "" Then
Label36.Caption = ""
ElseIf Label35.Caption <> "" Then
Label35.Caption = ""
End If
End Sub
Private Sub Label38_Click()
If Label36.Caption <> "" Then
Call notostr
ElseIf Label35.Caption <> "" Then
Call py
End If
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 notostr()
Select Case Label36.Caption
Case "1" Or "01"
Label35.Caption = Label35.Caption + "A"
Case "2" Or "02"
Label35.Caption = Label35.Caption + "B"
Case "3" Or "03"
Label35.Caption = Label35.Caption + "C"
Case "4" Or "04"
Label35.Caption = Label35.Caption + "D"
Case "5" Or "05"
Label35.Caption = Label35.Caption + "E"
Case "6" Or "06"
Label35.Caption = Label35.Caption + "F"
Case "7" Or "07"
Label35.Caption = Label35.Caption + "G"
Case "8" Or "08"
Label35.Caption = Label35.Caption + "H"
Case "9" Or "09"
Label35.Caption = Label35.Caption + "I"
Case "10"
Label35.Caption = Label35.Caption + "J"
Case "11"
Label35.Caption = Label35.Caption + "K"
Case "12"
Label35.Caption = Label35.Caption + "L"
Case "13"
Label35.Caption = Label35.Caption + "M"
Case "14"
Label35.Caption = Label35.Caption + "N"
Case "15"
Label35.Caption = Label35.Caption + "O"
Case "16"
Label35.Caption = Label35.Caption + "P"
Case "17"
Label35.Caption = Label35.Caption + "Q"
Case "18"
Label35.Caption = Label35.Caption + "R"
Case "19"
Label35.Caption = Label35.Caption + "S"
Case "20"
Label35.Caption = Label35.Caption + "T"
Case "21"
Label35.Caption = Label35.Caption + "W"
Case "22"
Label35.Caption = Label35.Caption + "Y"
Case "23"
Label35.Caption = Label35.Caption + "Z"
Case "24"
Label35.Caption = Label35.Caption + "X"
Case Else
End Select
Label36.Caption = ""
End Sub
Public Sub py()
On Error Resume Next
Select Case pf.from
Case "歌星"
Erase pf.swan
Set rs = db.Execute("select * from tblswan where sex='" & pf.sex & "' and left(spell,1)='" & Left(Label35.Caption, 1) & "' order by time desc")
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
'pf.szsybj = ""
rs.Close
Unload 歌星选择
歌星选择.Show
Case "字数"
Erase pf.songsz
Set rs = db.Execute("select * from tblsong where wordcount=" & pf.lenght & " and firstword ='" & Left(Label35.Caption, 1) & "' order by time desc")
Call pf.rsselect
'pf.szsybj = ""
Case Else
pf.from = "拼音"
Erase pf.songsz
Set rs = db.Execute("select * from tblsong where spell like '" & Label35.Caption & "' order by time desc")
Call pf.rsselect
歌曲列表.jm = "拼音点歌"
End Select
pf.pydg = Label35.Caption
Label35.Caption = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -