确定.frm

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

VERSION 5.00
Begin VB.Form 确定 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   615
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2175
   FillColor       =   &H80000005&
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   615
   ScaleWidth      =   2175
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   1080
      MouseIcon       =   "确定.frx":0000
      MousePointer    =   99  'Custom
      Picture         =   "确定.frx":030A
      ScaleHeight     =   585
      ScaleWidth      =   1065
      TabIndex        =   1
      Top             =   0
      Width           =   1095
   End
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   0
      MouseIcon       =   "确定.frx":087F
      MousePointer    =   99  'Custom
      Picture         =   "确定.frx":0B89
      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)
Select Case KeyCode
Case 79
Picture1_Click
Case 70
Picture2_Click
Case Else
Call pf.pubkey(KeyCode, "")
End Select
End Sub

Public Sub Picture1_Click()
'pf.yxsongsz(pf.yxsongi) = pf.songsz(index2 + pf.spage * 6 - 6)
'pf.yxsongi = pf.yxsongi + 1
'MsgBox (index2)
'MsgBox (pf.ysspage)
'For i = pf.ysspage * 6 - 6 + index2 To pf.yxsongi
'pf.yxsongsz(i) = pf.yxsongsz(i + 1)
'Next i
'pf.yxsongi = pf.yxsongi - 1
'歌曲列表.Label12(index2).ForeColor = RGB(255, 255, 255)
'歌曲列表.Label13(index2).ForeColor = RGB(255, 255, 255)
Unload 确定
'MsgBox (pf.yxsongi)
End Sub

Public Sub Picture2_Click()

temp2 = pf.yxsongi - 1
Do While temp2 > 0
pf.yxsongsz(temp2) = pf.yxsongsz(temp2 - 1)
temp2 = temp2 - 1
Loop

'歌曲列表.Label12(index2).ForeColor = RGB(255, 255, 255)
'歌曲列表.Label13(index2).ForeColor = RGB(255, 255, 255)
pf.yxsongsz(0) = pf.songsz(index2 + pf.spage * 6 - 6)
pf.yxsongi = pf.yxsongi + 1

'歌曲列表.page
Unload 确定
End Sub