优先.frm

VOD卡拉OK点歌系统源码

VERSION 5.00
Begin VB.Form 优先 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   615
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2190
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   615
   ScaleWidth      =   2190
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   0
      MouseIcon       =   "优先.frx":0000
      MousePointer    =   99  'Custom
      Picture         =   "优先.frx":030A
      ScaleHeight     =   585
      ScaleWidth      =   1065
      TabIndex        =   1
      Top             =   0
      Width           =   1095
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   1080
      MouseIcon       =   "优先.frx":0892
      MousePointer    =   99  'Custom
      Picture         =   "优先.frx":0B9C
      ScaleHeight     =   585
      ScaleWidth      =   1065
      TabIndex        =   0
      Top             =   0
      Width           =   1095
   End
End
Attribute VB_Name = "优先"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public index2 As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox (KeyCode)
Select Case KeyCode
Case 70
Picture2_Click
Case 68
Picture1_Click
Case Else
Call pf.pubkey(KeyCode, "")
End Select
End Sub
Private Sub Picture1_Click()
Call del
Unload 优先
End Sub


Private Sub Picture2_Click()

pf.temp = pf.yxsongsz(pf.ysspage * 6 - 6 + index2 + 1)
temp2 = pf.ysspage * 6 - 6 + index2 + 1
Do While temp2 > 1
pf.yxsongsz(temp2) = pf.yxsongsz(temp2 - 1)
temp2 = temp2 - 1
Loop

pf.yxsongsz(1) = pf.temp
'已选歌曲.Label12(index2).ForeColor = RGB(255, 255, 255)
'已选歌曲.Label13(index2).ForeColor = RGB(255, 255, 255)
Call pf.publicpage
Call pf.nextv
Unload 优先
End Sub


Public Sub del()
For I = pf.ysspage * 6 - 6 + index2 + 1 To pf.yxsongi
pf.yxsongsz(I) = pf.yxsongsz(I + 1)
Next I
pf.yxsongi = pf.yxsongi - 1
Call pf.publicpage
Call pf.nextv
Unload 优先
End Sub