主界面.frm

VOD卡拉OK点歌系统源码

      End
      Begin VB.Label Label4 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   3090
         MouseIcon       =   "主界面.frx":12BD8
         MousePointer    =   99  'Custom
         TabIndex        =   4
         Top             =   6765
         Width           =   735
      End
      Begin VB.Label Label3 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   2160
         MouseIcon       =   "主界面.frx":12EE2
         MousePointer    =   99  'Custom
         TabIndex        =   3
         Top             =   6720
         Width           =   735
      End
      Begin VB.Label Label2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   1320
         MouseIcon       =   "主界面.frx":131EC
         MousePointer    =   99  'Custom
         TabIndex        =   2
         Top             =   6720
         Width           =   735
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   240
         MouseIcon       =   "主界面.frx":134F6
         MousePointer    =   99  'Custom
         TabIndex        =   1
         Top             =   6720
         Width           =   855
      End
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Const CONNECT_UPDATE_PROFILE = &H1
Private Const RESOURCE_CONNECTED As Long = &H1&
Private Const RESOURCE_GLOBALNET As Long = &H2&
Private Const RESOURCETYPE_DISK As Long = &H1&
Private Const RESOURCEDISPLAYTYPE_SHARE& = &H3
Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1&

Public jm As String
Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETCONNECT, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwflags As Long) As Long

Private Type NETCONNECT
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    lpLocalName As String
    lpRemoteName As String
    lpComment As String
    lpProvider As String
End Type

Public Function MapDrive(LocalDrive As String, RemoteDrive As String, Optional Username As String, Optional Password As String) As Boolean
   Dim NetR As NETCONNECT
   NetR.dwScope = RESOURCE_GLOBALNET
   NetR.dwType = RESOURCETYPE_DISK
   NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
   NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
   NetR.lpLocalName = Left$(LocalDrive, 1) & ":"
   NetR.lpRemoteName = RemoteDrive
   MapDrive = (WNetAddConnection2(NetR, Username, Password, CONNECT_UPDATE_PROFILE) = 0)
End Function


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 Label12_Click
Case 50
Call Label13_Click
Case 51
Call Label14_Click
Case 52
Call Label15_Click
Case 53
Call Label17_Click
Case 54
Call Label22_Click
Case 55
Call Label21_Click
Case 56
Call Label20_Click
Case 57
Call Label19_Click
Case 48
Call Label18_Click
Case Else
Call pf.pubkey(KeyCode, 主界面.jm)
End Select
End Sub

Private Sub Form_Load()
Me.Show
Set db = New ADODB.Connection

db.ConnectionString = "uid=;pwd=;Driver={Microsoft Access Driver (*.mdb)};dbq=" & App.path & "\song.mdb"
db.Open

pf.chanbj = "bs"
pf.stopbj = True
pf.yxsongi = 0
pf.playbj = "one"
pf.sdbj = "1"
stopform.Show
stopform.Top = 7550
stopform.Left = 4200
bcForm.Show
bcForm.Top = 7550
bcForm.Left = 5920
nextForm.Show
nextForm.Top = 1380
nextForm.Left = 6500
tv.Top = 0
tv.Left = 12000
tv.Width = 12000
tv.Height = 9000
tv.Show

'If MapDrive("I:", "\\" & pf.serverip & "\d") And MapDrive("j:", "\\" & pf.serverip & "\e") And MapDrive("l:", "\\" & pf.serverip & "\f") And MapDrive("k:", "\\" & pf.serverip & "\h") And MapDrive("n:", "\\" & pf.serverip & "\g") Then
'Else
   'MsgBox "映射网络驱动器失败"
'End If

End Sub
Private Sub Label1_Click()
Call pf.Main
End Sub

Private Sub Label10_Click()
Call pf.volumesub
End Sub

Private Sub Label12_Click()
Erase pf.songsz
Set rs = db.Execute("select * from tblsong where time>5 ORDER BY time DESC")
Call pf.rsselect
歌曲列表.jm = "主界面"
pf.from = "情歌"
歌曲列表.Picture3.Visible = False
歌曲列表.Picture2.Visible = True
End Sub

Private Sub Label13_Click()
字数点歌.jm = "主界面"
字数点歌.Show
End Sub

Private Sub Label14_Click()
拼音点歌.jm = "主界面"
拼音点歌.Show
nextForm.Visible = False
End Sub

Private Sub Label15_Click()
歌星点歌.jm = "主界面"
歌星点歌.Show
End Sub

Private Sub Label17_Click()
Erase pf.songsz
Set rs = db.Execute("select * from tblsong where love='是' order by time desc")
Call pf.rsselect
歌曲列表.jm = "主界面"
歌曲列表.Picture3.Visible = False
歌曲列表.Picture2.Visible = True
End Sub

Public Sub Label18_Click()

Unload 已选歌曲
已选歌曲.jm = "主界面"
已选歌曲.Show
End Sub

Private Sub Label19_Click()
'点酒水.jm = "主界面"
'点酒水.Show
End Sub

Private Sub Label2_Click()
Call pf.chosid("主界面")
End Sub

Public Sub Label20_Click()
game.Show
End Sub

Private Sub Label21_Click()
语种点歌.jm = "主界面"
语种点歌.Show
End Sub

Private Sub Label22_Click()
类型点歌.jm = "主界面"
类型点歌.Show
End Sub

Private Sub Label23_Click()
setscr.SetDisplayMode& 800, 600, 16
End
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