www.pudn.com > tv_song > TVsong.frm
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "SWFLASH.OCX"
Begin VB.Form TVsong
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Form2"
ClientHeight = 9000
ClientLeft = 210
ClientTop = 105
ClientWidth = 12000
Icon = "TVsong.frx":0000
LinkTopic = "Form2"
ScaleHeight = 9000
ScaleWidth = 12000
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.Timer CshTimer
Interval = 100
Left = 480
Top = 0
End
Begin VB.Timer GqLbTimer
Enabled = 0 'False
Interval = 100
Left = 960
Top = 0
End
Begin VB.Timer XzGsTimer
Enabled = 0 'False
Interval = 100
Left = 1440
Top = 0
End
Begin VB.Timer XzGqTimer
Enabled = 0 'False
Interval = 100
Left = 1920
Top = 0
End
Begin VB.Timer ZfyTimer
Enabled = 0 'False
Interval = 100
Left = 2400
Top = 0
End
Begin VB.Timer TVsongTimer
Enabled = 0 'False
Interval = 100
Left = 0
Top = 0
End
Begin VB.PictureBox BJ
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 10455
Left = 0
Picture = "TVsong.frx":0442
ScaleHeight = 10455
ScaleWidth = 15375
TabIndex = 0
Top = 0
Width = 15375
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash
Height = 9015
Left = 0
TabIndex = 13
Top = 0
Width = 12015
_cx = 4215497
_cy = 4210205
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = 0 'False
Base = ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = "000000"
SWRemote = ""
Stacking = "below"
End
Begin VB.Label lZfy
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 69.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1650
Left = 6720
TabIndex = 12
Top = 5200
Width = 3720
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "8.红点颏发挥感"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 7
Left = 6360
TabIndex = 11
Top = 7320
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "9.反对客观恢复棵"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 8
Left = 6360
TabIndex = 10
Top = 8040
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "7.本周最新排行"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 6
Left = 6360
TabIndex = 9
Top = 6600
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "6.疯狂迪斯科"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 5
Left = 6360
TabIndex = 8
Top = 5880
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "5.亚洲节拍"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 4
Left = 6360
TabIndex = 7
Top = 5160
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "4.欧美风情"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 3
Left = 6360
TabIndex = 6
Top = 4440
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "3.港台流行"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 2
Left = 6360
TabIndex = 5
Top = 3720
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "2.大陆经典"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 1
Left = 6360
TabIndex = 4
Top = 3000
Width = 5500
End
Begin VB.Label GqMc
BackStyle = 0 'Transparent
Caption = "1.新歌推荐"
BeginProperty Font
Name = "黑体"
Size = 27.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 630
Index = 0
Left = 6360
TabIndex = 3
Top = 2280
Width = 5500
End
Begin VB.Label XS_Caption
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "本周最新排行"
BeginProperty Font
Name = "宋体"
Size = 45
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1110
Left = 285
TabIndex = 2
Top = 2520
Width = 5400
End
Begin VB.Label BL
BackStyle = 0 'Transparent
Caption = "88/88"
BeginProperty Font
Name = "宋体"
Size = 48
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1185
Left = 1560
TabIndex = 1
Top = 3840
Width = 3480
End
End
End
Attribute VB_Name = "TVsong"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'===在模块级别中使用，强制显式声明模块中的所有变量===
Option Explicit
Private Sub BJ_KeyDown(KeyCode As Integer, Shift As Integer)
'===遇到错误执行下一句===
On Error Resume Next
'==========如果按下Ctrl和X将终止程序！================
If CStr(KeyCode) = "88" And CStr(Shift) Then
'===卸载通信控制窗体=====
Unload sCOMx
'===卸载播放歌曲窗体=====
Unload frmPLay
'===卸载限时操作窗体=====
Unload frmXSCZ
'===卸载电话卡=====
TV_Disable
'===显示光标或鼠标=====
ShowCursor 1
'===终止程序===
End
End If
'=====================================================
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'===遇到错误执行下一句===
On Error Resume Next
'==========如果按下Ctrl和X将终止程序！================
If CStr(KeyCode) = "88" And CStr(Shift) Then
'===卸载通信控制窗体=====
Unload sCOMx
'===卸载播放歌曲窗体=====
Unload frmPLay
'===卸载限时操作窗体=====
Unload frmXSCZ
'===卸载电话卡=====
TV_Disable
'===显示光标或鼠标=====
ShowCursor 1
'===终止程序===
End
End If
'=====================================================
End Sub
Private Sub Form_GotFocus()
'===遇到错误执行下一句===
On Error Resume Next
Dim Jsq As Integer
Flash.Visible = True
TVsongTimer.Enabled = True
frmXSCZ.MP1.Play
frmXSCZ.Timer1.Enabled = False
frmXSCZ.Visible = False
End Sub
Private Sub Form_Load()
'===遇到错误执行下一句===
On Error Resume Next
Dim ChannelNum '电话卡可用的通道数
Dim Start As String * 10000 '读取系统配置文件时的临时变量
'=============检测系统安全================================
Dim DrvName As String '盘符
Dim VolName As String '卷标
Dim FileSysName As String '文件系统名称
Dim SerialNo As Long '(数字)序列号
Dim txtSerialNo As String '(字符串)序列号
Dim CompressFlag As Long '压缩盘标记
Dim Maxlen As Long '文件名的最大长度
Dim SecPerClust As Long '每簇的扇区数
Dim BytePerSec As Long '每扇区的字节数
Dim TotalClust As Long '总簇数
Dim FreeClust As Long '可用的簇数
ChannelNum = 0
'---------------------------------------------------------
'---Command1.Caption = "修改" & UCase(DrvName) & "的卷标"
' SetVolumeLabel DrvName, Text8.Text
'---------------------------------------------------------
'初始化两个缓冲区
VolName = String(255, 0)
FileSysName = String(255, 0)
'DrvName = Left(Drive1.Drive, 2) & "\"
DrvName = "C:\"
'获取卷标,序列号,文件名长度,压缩盘和文件系统名称
GetVolumeInformation DrvName, VolName, 256, SerialNo, Maxlen, CompressFlag, FileSysName, 256
'获取盘的空间信息(包括总空间和可用空间)
'GetDiskFreeSpace DrvName, SecPerClust, BytePerSec, FreeClust, TotalClust
'Command1.Caption = "修改" & UCase(DrvName) & "的卷标"
'判断盘的类型,并显示
'Select Case GetDriveType(DrvName)
' Case 0
' txtDiskType = "不明"
' Case 2
' txtDiskType = "软盘"
' Case 3
' txtDiskType = "硬盘"
' Case 4
' txtDiskType = "网络盘"
' Case 5
' txtDiskType = "光盘"
' Case 6
' txtDiskType = "RamDisk"
'End Select
'判断并显示是否为压缩盘
'If (CompressFlag And IS_COMPRESSED) = 0 Then
' txtIsCompressDisk = "非压缩盘"
' Else
' txtIsCompressDisk = "是压缩盘"
'End If
'得到准确的卷标,并显示
'txtVolName = Left(VolName, InStr(1, VolName, Chr(0)) - 1)
'得到准确的文件系统名称,并显示
'txtFileSysName = Left(FileSysName, InStr(1, FileSysName, Chr(0)) - 1)
'得到16进制的序列号,并显示
txtSerialNo = Hex(SerialNo)
'If txtSerialNo <> "C45884F1" Then
' MsgBox "软件过期或非法安装！", 48
' End
'End If
'计算出总空间信息,并显示
'txtTotalSpace = Str(SecPerClust * BytePerSec * TotalClust) & "字节"
'计算出可用空间信息,并显示
'txtFreeSpace = Str(SecPerClust * BytePerSec * FreeClust) & "字节"
'---------------------------------------------------------------------
If App.PrevInstance Then
MsgBox "TV_Song 已经运行!"
End
End If
Flash.Movie = App.Path + "\PictureBj\Welcome.SWF"
TVsong.Show
ShowCursor 0
'======打开系统文件,检查Tv_Song.CFG中所有路径===============================
Set DB = OpenDatabase(App.Path, False, False, "FoxPro 3.0")
Open App.Path + "\SYSTEM.CFG" For Input As #1
'===当前使用MODEM的串口或电话语音卡的通道号===
Line Input #1, Start
sCOM = Val(ChkPath(Start))
'===背景音乐的总数====
Line Input #1, Start
mBjS = Val(ChkPath(Start))
'===限制操作的总计时间===
Line Input #1, Start
MaxTime = Val(ChkPath(Start))
'===每屏限制操作时间===
Line Input #1, Start
MpTime = Val(ChkPath(Start))
'===游飞字幕===
Line Input #1, Start
YfZm0 = ChkPath(Start)
Close #1
'===初始化电话语音卡===
TV_Disable
ChannelNum = TV_Installed()
TV_Initialize
TV_SetSignalLevel 3
'===启动背景音乐=============================================
frmXSCZ.MP1.FileName = App.Path + "\musicbj\" + Trim(CStr(Int(Rnd * mBjS))) + ".MP3"
frmXSCZ.MP1.Play
'===关闭限时操作的窗体===============
frmXSCZ.Visible = False
frmXSCZ.Timer1.Enabled = False
'==初始化MODEM======
Load sCOMx
'==启动欢迎界面的时间控件======
TVsongTimer.Enabled = True
TVsong.CshTimer.Enabled = False
TVsong.GqLbTimer.Enabled = False
TVsong.XzGsTimer.Enabled = False
TVsong.XzGqTimer.Enabled = False
TVsong.ZfyTimer.Enabled = False
'==设定摘机状态为挂机======
ZjBZ = 0
'==设定背景音乐的状态为播放======
BuSy = 1
End Sub
Private Sub GqMc_Click(Index As Integer)
'===遇到错误执行下一句===
On Error Resume Next
Dim i, j, IiIi
'==选定后的蓝白交替闪动提示========================
For i = 1 To 10
DoEvents
If Int(i / 2) = i / 2 Then
GqMc(Index).ForeColor = &HC00000
Else
GqMc(Index).ForeColor = &HFFFFFF
End If
GqMc(Index).Refresh
For j = 1 To 10000: DoEvents: Next j
Next i
GqMc(Index).ForeColor = &HFF00FF
GqMc(Index).Refresh
For j = 1 To 10000: DoEvents: Next j
'=====搜索按键内容=============================================================
Select Case UCase(sOption)
Case "GQLB" '--目前页面<歌曲类别>,下一页<选择歌手>---
'===读取选择的数值和内容============
GqLb = Mid(GqMc(Index).Caption, 3)
GqLb1 = left(GqMc(Index).Caption, 1)
'===检索数据库============
'If Index = 6 Then
' Set RmRsT = DB.OpenRecordset("select distinct rm from TV_Song.Dat where val(djs)>50 and gqlb1<>'1' order by rm ")
' Else
Set RmRsT = DB.OpenRecordset("select distinct rm from Tv_Song.Dat where gqlb1='" + GqLb1 + "' order by rm ")
'End If
'===读取数据库里的歌曲类别下的歌手总数============
If Not RmRsT.EOF Then
'===如果该类型的歌手有,记录总数============
RmUser = 0
RmZong = RmRsT.RecordCount
'===启动选择歌手的界面==========
sOption = "XzGs"
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
Flag = 1
'===让选择歌曲类型的Timer控件禁用=========
GqLbTimer.Enabled = False
Call Load_XzGs
'===让显示标签可见=========
XS_Caption.Visible = True
Else
'===如果该类型的歌手没有,继续选择============
GqLbTimer.Enabled = True
End If
Case "XZGS" '--目前页面<选择歌手>,下一页<选择歌曲>---
'===读取歌手姓名============
GsXm = Trim(Mid(GqMc(Index).Caption, 3))
'===读取所选歌手的所有歌曲============
'If GqLb1 = "7" Then
' Set GmRsT = DB.OpenRecordset("select distinct gm,djs from TV_song.dat where rm='" + GsXm + "' and val(djs)>50 and gqlb1<>'1' order by djs desc,Gm")
' Else
Set GmRsT = DB.OpenRecordset("select distinct gm,djs from TV_song.dat where rm='" + GsXm + "' and gqlb1='" + GqLb1 + "' order by djs desc,gm ")
'End If
'===如果该歌手的歌曲,有============
If Not GmRsT.EOF Then
'===该歌手的歌曲总记录数============
GmUser = 0
GmZong = GmRsT.RecordCount
'===艺术清除选择该歌手的界面============
sOption = "XzGq"
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择该歌手的歌曲的界面============
GqLbTimer.Enabled = False
Call Load_XzGq
Else
'===如果该歌手的歌曲,没有============
XzGsTimer.Enabled = True
End If
Case "XZGQ" '--目前页面<选择歌曲>,下一页<播放歌曲>---
'===读取歌曲的音像文件全路径============
Dim RsT As Recordset
'If GqLb1 = "7" Then
' Set RsT = DB.OpenRecordset("select * from TV_song.DAt where rm='" + GsXm + "' and gm='" + Mid(GqMc(Index), 3) + "'")
' Else
Set RsT = DB.OpenRecordset("select * from TV_song.DAt where rm='" + GsXm + "' and gm='" + Mid(GqMc(Index), 3) + "' and gqlb1='" + GqLb1 + "'")
'End If
'===如果歌曲不存在,读取======
If Not RsT.EOF Then
'===如果该歌曲的点击数>=1=================
If Val(RsT("djs")) >= 1 Then
FileName = RsT("gqlb2") + RsT("rm") + "." + RsT("gqlb1") + "\" + RsT("gm") + "." + RsT("djs")
Else
'===如果该歌曲的点击数>=1,否则============
FileName = RsT("gqlb2") + RsT("rm") + "." + RsT("gqlb1") + "\" + RsT("gm") + ".dat"
End If
'===卸载播放窗体=================
Unload frmPLay
'===暂停背景音乐的播放=================
frmXSCZ.MP1.Pause
'===播放"操作完毕请挂机"的语音=================
TV_StartPlayFile 0, App.Path + "\cut", 1, LONG_MAX
For IiIi = 0 To 10000: DoEvents: Next IiIi
TV_HangUpCtrl sCOM
For IiIi = 0 To 10000: DoEvents: Next IiIi
'===让限时操作窗体的倒计时Timer1控件禁用=================
frmXSCZ.Timer1.Enabled = False
'===让限时操作的窗体不可见=================
frmXSCZ.Visible = False
frmXSCZ.Label3.Caption = CStr(MaxTime)
TVsong.TVsongTimer.Enabled = False
TVsong.CshTimer.Enabled = False
TVsong.GqLbTimer.Enabled = False
TVsong.XzGsTimer.Enabled = False
TVsong.XzGqTimer.Enabled = False
TVsong.ZfyTimer.Enabled = False
'===启动播放音像文件的窗体=================
Load frmPLay
'Unload TVsong
'===向信息台发送"PAUSE"的指令=================
SendCMD "PAUSE"
Else
'===如果歌曲不存在,返回=================
XzGqTimer.Enabled = True
End If
'===释放歌曲记录集的变量===============
Set RsT = Nothing
End Select
End Sub
Private Sub TVsongTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
Dim Jsq As Integer
'===播放封面的动画=============================
Flash.Visible = True
Flash.Play
'===设定窗体焦点=============================
If sCOMx.VoiceTimer.Enabled = False Then sCOMx.VoiceTimer.Enabled = True
TVsong.SetFocus
TVsong.BJ.SetFocus
'===播放背景音乐=============================
frmXSCZ.MP1.Play
'===用户是否拨入=============================
If Ajz = "C" Then
'===设置操作标志=======
BuSy = 1
'===设置摘机标志=======
ZjBZ = 1
'===时间控制无效=======
TVsongTimer.Enabled = False
'===动画停止===========
Flash.StopPlay
'===播放"欢迎进入MTV电视互动点播系统,您现在可以按照电视画面进行操作"的语音=======
'TV_StartPlayFile 0, App.Path + "\welcome", 1, LONG_MAX
Flag = 1
'===设置总的操作限时的秒数=======
Max = MaxTime
'===设置每屏的操作限时的秒数=======
Mp = MpTime
'===启动操作限时窗体的倒计时的控件=======
frmXSCZ.Timer1.Enabled = True
'===显示操作限时窗体=======
frmXSCZ.Visible = True
Load frmXSCZ
'===操作界面的设置=======
For Jsq = 0 To 8
'===设置选择内容的标签为空=======
GqMc(Jsq).Caption = ""
'===设置选择内容的标签为不可见=======
GqMc(Jsq).Visible = False
'===设置选择内容的标签的字体颜色为深蓝色=======
GqMc(Jsq).ForeColor = &HFF0000
Next Jsq
'===设置选择结果的标签为不可见=======
XS_Caption.Visible = False
'===设置页面比例的标签为不可见=======
BL.Visible = False
'===设置祝福语编号的标签为不可见=======
lZfy.Visible = False
'===设置FLASH动画的控件为不可见=======
Flash.Visible = False
'===启动选择点歌种类的画面==========================
Call Load_Csh
'===启动选择点歌种类的时间控件==========================
CshTimer.Enabled = True
End If
Ajz = " "
End Sub
'=========选择点歌种类==========================
Private Sub Load_Csh()
'===遇到错误执行下一句===
On Error Resume Next
Dim Jsq As Integer
'===让操作限时的窗体一直在最上面=======
SetWindowPos frmXSCZ.hwnd, -1, 15, 520, 272, 63, &H40
'====载入动画==========================
sOption = "Csh"
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'====显示选择结果的标签设为不可见=================
XS_Caption.Visible = False
'===显示选择比例的的标签不可见,并且清空=====
BL.Visible = False: BL.Caption = ""
'====祝福语编号的标签设为不可见====
lZfy.Visible = False
For Jsq = 0 To 8
DoEvents
'===设置选择内容的标签为空=======
GqMc(Jsq).Caption = ""
'===设置选择内容的标签为不可见=======
GqMc(Jsq).Visible = False
'===设置选择内容的标签的字体颜色为深蓝色=======
GqMc(Jsq).ForeColor = &HFF0000
Next Jsq
'===启动CSH的时间控件========
CshTimer.Enabled = True
'===每屏限时操作的秒数重计====
Mp = MpTime
End Sub
'===选择点歌种类的Timer=============
Private Sub CshTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
'===设定清屏的图片========
sOption = "Csh"
'===用户是否挂机,判断总限时或每屏限时是否已到===
If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
TV_Exit
'===用户是否按键=========
ElseIf ZjBZ = 1 And Flag = 0 Then
'===如果用户按键"1,2"========
If InStr("12", Ajz) > 0 Then
Select Case Ajz
Case "1" '===如果选择了"1"-->普通点歌=======
'===游飞字幕内容用系统默认的文字========
YfZm = YfZm0
'===设定清屏的图片========
sOption = "GqLb"
'===启动清屏的动画========
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌曲类别的界面=======
Call Load_GqLb
Case "2" '===如果选择了"2"-->祝福点歌=======
'===设定清屏的图片========
sOption = "Zfy"
'===启动清屏的动画========
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动输入祝福语密码的界面=======
Call Load_Zfy
'===启动输入祝福语密码界面的时间控件====
ZfyTimer.Enabled = True
End Select
'===禁用选择点歌类别的时间控件=======
CshTimer.Enabled = False
End If
Else
Flag = 0
End If
'===清空按键值=======
Ajz = " "
End Sub
'===输入祝福语密码======
Private Sub Load_Zfy()
'===遇到错误执行下一句===
On Error Resume Next
Dim Jsq As Integer
'===把显示选择结果的标签设为不可见=============
XS_Caption.Visible = False
'===启用输入祝福语密码的Timer=============
ZfyTimer.Enabled = True
'===把输入祝福语密码的标签设为可见并清空=============
lZfy.Visible = True
lZfy.Caption = ""
lZfy.Refresh
For Jsq = 0 To 8
'===设置选择内容的标签为空=======
GqMc(Jsq).Caption = ""
'===设置选择内容的标签为不可见=======
GqMc(Jsq).Visible = False
'===设置选择内容的标签的字体颜色为深蓝色=======
GqMc(Jsq).ForeColor = &HFF0000
Next Jsq
'====每屏限时操作的秒数重计====
Mp = MpTime
End Sub
'===输入祝福语密码的Timer=============
Private Sub ZfyTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
Dim Ll As String, Bh
Dim ZfyRst As Recordset
'===用户是否挂机,判断总限时或每屏限时是否已到=
If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
TV_Exit
'===用户是否按键=====
ElseIf ZjBZ = 1 And Flag = 0 Then
If InStr("1234567890*#", Ajz) > 0 Then
Select Case Ajz
Case "*" '===如果按了"*"号键,直接跳到普通点歌=====
'===禁用输入祝福语密码的时间控件=====
ZfyTimer.Enabled = False
'===把游飞字幕的内容设定为系统默认值=====
YfZm = YfZm0
'===设定清屏的图片=====
sOption = "GqLb"
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌曲类别的窗体=====
Call Load_GqLb
'===启用选择歌曲类别的时间控件=====
GqLbTimer.Enabled = True
'===输入祝福语密码的标签不可见=====
lZfy.Visible = False
Case "#" '===如果按了"#"号键,确认此祝福语密码和内容是否存在==
'===如果用户确认密码,读出来====
Bh = Trim(lZfy.Caption)
'===检索祝福语密码是否存在=====
Set ZfyRst = DB.OpenRecordset("select * from zfy where bh='" + Bh + "'")
If Not ZfyRst.EOF Then '===祝福语密码如果存在=====
'===禁用输入祝福语密码的时间控件=====
ZfyTimer.Enabled = False
'===读出祝福语内容=====
YfZm = ZfyRst("zfy")
'===删除该条记录=====
ZfyRst.Delete
'===释放祝福语记录集的变量=====
Set ZfyRst = Nothing
'===设定清屏的图片=====
sOption = "GqLb"
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌曲类别的窗体=====
Call Load_GqLb
'===启用选择歌曲类别的时间控件=====
GqLbTimer.Enabled = True
'===输入祝福语密码的标签不可见=====
lZfy.Visible = False
Else '===祝福语密码不存在=====
'===禁用输入祝福语密码的时间控件=====
ZfyTimer.Enabled = False
'===设定清屏的图片=====
sOption = "Zfy"
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动输入祝福语密码的窗体=====
Call Load_Zfy
'===启用输入祝福语密码的时间控件=====
ZfyTimer.Enabled = True
End If
Case Else '===如果按了"01234567890"号键=====
If Len(Trim(lZfy.Caption)) <= 3 Then lZfy.Caption = Trim(lZfy.Caption) + Ajz
End Select
End If
Else
Flag = 0
End If
'===清空按键值=======
Ajz = " "
End Sub
'=========选择歌曲类别============================
Private Sub Load_GqLb()
'===遇到错误执行下一句===
On Error Resume Next
Dim Jsq, Start$
'===显示选择结果的的标签不可见,并且清空=====
XS_Caption.Visible = False
XS_Caption = ""
'===显示选择页数比例的的标签不可见,并且清空=====
BL.Visible = False
BL.Caption = ""
For Jsq = 0 To 8
'===设置选择内容的标签为空=======
GqMc(Jsq).Caption = ""
'===设置选择内容的标签为不可见=======
GqMc(Jsq).Visible = False
'===设置选择内容的标签的字体颜色为深蓝色=======
GqMc(Jsq).ForeColor = &HFF0000
Next Jsq
'===读取歌曲类别=============
Open App.Path + "\SONGTYPE.CFG" For Input As #2
'===计数器清零=====
Jsq = 0
While Not EOF(2) And Jsq <= 6
'If (Time$ >= "08:00:00" And Jsq <> 6) Or Time$ < "08:00:00" Then
Input #2, Start$
'===设置选择内容的标签的字体颜色为深蓝色=======
GqMc(Jsq).ForeColor = &HFF0000
'===设置选择标签的内容=======
GqMc(Jsq).Caption = Trim(Start$)
'===设置选择标签为可见=======
GqMc(Jsq).Visible = True
'End If
'===计数器 + 1 =======
Jsq = Jsq + 1
Wend
Close #2
'===启用选择歌曲类别的时间控件=====
GqLbTimer.Enabled = True
'====每屏限时操作的秒数重计====
Mp = MpTime
End Sub
Private Sub GqLbTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
'===设定清屏的图片=====
sOption = "GqLb"
'===用户是否挂机,判断总限时或每屏限时是否已到================
If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
TV_Exit
'==============用户是否按键==============================
ElseIf ZjBZ = 1 And Flag = 0 Then
If InStr("12345670", Ajz) > 0 Then
Select Case Ajz
Case "0"
'===禁用选择歌曲类别的时间控件=====
GqLbTimer.Enabled = False
'===启动选择点歌类别的窗体=====
Call Load_Csh
'===启用选择点歌类别的时间控件=====
CshTimer.Enabled = True
Case Else
'===设定清屏的图片=====
sOption = "GqLb"
'===禁用选择歌曲类别的时间控件=====
GqLbTimer.Enabled = False
'===接受用户的按键选择===
GqMc_Click (Ajz - 1)
End Select
End If
Else
Flag = 0
End If
'===清空按键值=======
Ajz = " "
End Sub
'=========选择原唱歌手============================
Private Sub Load_XzGs()
'===遇到错误执行下一句===
On Error Resume Next
Dim i
If Flag = 1 Then
Flag = 0
'===显示选择结果的的标签清空,并重新符值=====
XS_Caption.Caption = ""
XS_Caption.Caption = GqLb
'===显示选择页数比例的的标签可见,并且清空=====
BL.Visible = True
BL.Caption = ""
For i = 0 To 8
DoEvents
If Not RmRsT.EOF Then '===如果有记录====
'===读取歌手姓名,并且排序=====
GqMc(i).Caption = Trim(Str(i + 1)) + "." + Trim(RmRsT("rm"))
GqMc(i).Visible = True
'===设定标签的字体颜色为深蓝色====
GqMc(i).ForeColor = &HFF0000
'===歌手总数 + 1 =====
RmUser = RmUser + 1
'===记录指针移到下一条记录=====
RmRsT.MoveNext
Else '===如果已经没有记录了===
GqMc(i).Visible = False
End If
Next i
BL.Caption = TV_BL(RmUser, RmZong)
'===启用选择歌手的时间控件=====
XzGsTimer.Enabled = True
End If
'====每屏限时操作的秒数重计====
Mp = MpTime
End Sub
Private Sub XzGsTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
Dim kk
'===设定清屏的图片=====
sOption = "XzGs"
'===用户是否挂机,判断总限时或每屏限时是否已到================
If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
TV_Exit
'==============用户是否按键==============================
ElseIf ZjBZ = 1 And Flag = 0 Then
If InStr("0123456789*#", Ajz) > 0 Then
Select Case Ajz
Case "0"
'===设定清屏的图片=====
sOption = "GqLb"
'===禁用选择歌手的时间控件=====
XzGsTimer.Enabled = False
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌曲类别的窗体=====
Call Load_GqLb
Case "*"
If RmUser > 9 Then
For kk = (Val(Mid(BL.Caption, 1, InStr(BL.Caption, "/") - 1)) - 2) * 9 To RmUser - 1
DoEvents
'===歌手总数 - 1 =====
RmUser = RmUser - 1
'===记录指针移到上一条记录===
RmRsT.MovePrevious
Next kk
Flag = 1
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌手的窗体=====
Call Load_XzGs
End If
Case "#"
If RmZong > RmUser Then
Flag = 1
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌手的窗体=====
Call Load_XzGs
End If
Case Else
'===设定清屏的图片=====
sOption = "XzGs"
'===禁用选择歌手的时间控件=====
XzGsTimer.Enabled = False
'===接受用户的按键选择===
GqMc_Click (Ajz - 1)
End Select
End If
Else
'===启动选择歌手的窗体=====
Call Load_XzGs
Flag = 0
End If
'===清空按键值=======
Ajz = " "
End Sub
'=========选择播放歌曲============================
Private Sub Load_XzGq()
'===遇到错误执行下一句===
On Error Resume Next
Dim i
'===显示选择页数的的标签清空=====
BL.Visible = True
BL.Caption = ""
'===可选择的按键的变量清空=====
KxAJZ = ""
'===显示选择结果的的标签清空,并重新符值=====
XS_Caption.Caption = ""
XS_Caption = GsXm
For i = 0 To 8
DoEvents
If Not GmRsT.EOF Then '===如果歌曲存在====
'===可选择的按键的变量清空=====
KxAJZ = KxAJZ + Trim(CStr(i + 1))
'===读取歌曲名称,并且排序====
GqMc(i).Caption = Trim(Str(i + 1)) + "." + Trim(GmRsT("gm"))
'===选择标签可见===
GqMc(i).Visible = True
'===选择标签的字体颜色为深蓝色===
GqMc(i).ForeColor = &HFF0000
'===歌曲总数 + 1 ===
GmUser = GmUser + 1
'===记录指针移到下一条记录===
GmRsT.MoveNext
Else '===如果歌曲不存在===
'===选择标签不可见===
GqMc(i).Visible = False
End If
Next i
'===显示选择页数的的标签重新付值=====
BL.Visible = True
BL.Caption = TV_BL(GmUser, GmZong)
'===累计可按键的字串=====
KxAJZ = KxAJZ + "0*#"
'===启用选择歌曲的时间控件=====
XzGqTimer.Enabled = True
'====每屏限时操作的秒数重计====
Mp = MpTime
End Sub
Private Sub XzGqTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
Dim kk
'===设定清屏的图片=====
sOption = "XzGq"
'===用户是否挂机,判断总限时或每屏限时是否已到================
If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
TV_Exit
'==============用户是否按键==============================
ElseIf ZjBZ = 1 And Flag = 0 Then
If InStr(KxAJZ, Ajz) > 0 Then
Select Case Ajz
Case "0"
'===设定清屏的图片=====
sOption = "XzGs"
'===禁用选择歌曲的时间控件=====
XzGqTimer.Enabled = False
'If GqLb1 = "7" Then
' Set RmRsT = DB.OpenRecordset("select distinct rm from TV_Song.Dat where val(djs)>50 and gqlb1<>'1' order by rm ")
' Else
Set RmRsT = DB.OpenRecordset("select distinct rm from Tv_Song.Dat where gqlb1='" + GqLb1 + "' order by rm ")
'End If
If Not RmRsT.EOF Then
If RmUser > 9 Then
For kk = 0 To Fix((RmUser - 1) / 9) * 9 - 1
DoEvents
'===记录指针移到下一条记录===
RmRsT.MoveNext
Next kk
'===重新计算歌手总数====
RmUser = Fix((RmUser - 1) / 9) * 9
Else
'===歌手总数清零===
RmUser = 0
End If
Flag = 1
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌手的窗体=====
Call Load_XzGs
Else
'===启用选择歌曲的时间控件=====
XzGqTimer.Enabled = True
End If
Case "*"
If GmUser > 9 Then
For kk = (Val(Mid(BL.Caption, 1, InStr(BL.Caption, "/") - 1)) - 2) * 9 To GmUser - 1
DoEvents
'===歌曲总数 - 1 ====
GmUser = GmUser - 1
'===记录指针移到上一条记录===
GmRsT.MovePrevious
Next kk
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌曲的窗体=====
Call Load_XzGq
End If
Case "#"
If GmZong > GmUser Then
'===启动清屏动画=====
Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
'===启动选择歌曲的窗体=====
Call Load_XzGq
End If
Case Else
'===禁用选择歌曲的时间控件=====
XzGqTimer.Enabled = False
'===接受用户的按键选择===
GqMc_Click (Ajz - 1)
End Select
End If
Else
Flag = 0
'===启动选择歌曲的窗体=====
Call Load_XzGq
End If
'===清空按键值=======
Ajz = " "
End Sub