语种点歌.frm

来自「VOD卡拉OK点歌系统源码」· FRM 代码 · 共 384 行

FRM
384 行
字号 
VERSION 5.00
Begin VB.Form 语种点歌 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   7215
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9615
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   7215
   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 Label17 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   6960
         MouseIcon       =   "语种点歌.frx":BB91
         MousePointer    =   99  'Custom
         TabIndex        =   17
         Top             =   5040
         Width           =   2415
      End
      Begin VB.Label Label16 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   3960
         MouseIcon       =   "语种点歌.frx":BE9B
         MousePointer    =   99  'Custom
         TabIndex        =   16
         Top             =   5040
         Width           =   2415
      End
      Begin VB.Label Label15 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   5880
         MouseIcon       =   "语种点歌.frx":C1A5
         MousePointer    =   99  'Custom
         TabIndex        =   15
         Top             =   3480
         Width           =   2415
      End
      Begin VB.Label Label14 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   2880
         MouseIcon       =   "语种点歌.frx":C4AF
         MousePointer    =   99  'Custom
         TabIndex        =   14
         Top             =   3480
         Width           =   2415
      End
      Begin VB.Label Label13 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   4920
         MouseIcon       =   "语种点歌.frx":C7B9
         MousePointer    =   99  'Custom
         TabIndex        =   13
         Top             =   2160
         Width           =   2415
      End
      Begin VB.Label Label12 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   1800
         MouseIcon       =   "语种点歌.frx":CAC3
         MousePointer    =   99  'Custom
         TabIndex        =   12
         Top             =   2160
         Width           =   2415
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   240
         MouseIcon       =   "语种点歌.frx":CDCD
         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":D0D7
         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":D3E1
         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":D6EB
         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":D9F5
         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":DCFF
         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":E009
         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":E313
         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":E61D
         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":E927
         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":EC31
         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
Label12_Click
Case 50
Label13_Click
Case 51
Label14_Click
Case 52
Label15_Click
Case 53
Label16_Click
Case 54
Label17_Click
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 lchose("G")
End Sub

Private Sub Label13_Click()
Call lchose("Y")
End Sub

Private Sub Label14_Click()
Call lchose("T")
End Sub

Private Sub Label15_Click()
Call lchose("E")
End Sub

Private Sub Label16_Click()
Call lchose("T")
End Sub

Private Sub Label17_Click()
Call lchose(" ")
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 lchose(lan As String)
Erase pf.songsz
Set rs = db.Execute("select * from tblsong where lang='" & lan & "' order by time desc")
Call pf.rsselect
歌曲列表.jm = "语种点歌"
歌曲列表.Picture3.Visible = False
歌曲列表.Picture2.Visible = True
End Sub

语种点歌.frm - 源码说明

本页面展示了「VOD卡拉OK点歌系统源码」中的 语种点歌.frm 源码文件，采用 FRM 编程语言编写，共 384 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与VOD相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?