【VB开源代码栏目提醒】:网学会员鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“YY.FRM”一文,供大家参考学习
VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form yy
Caption = "yy"
ClientHeight = 2625
ClientLeft = 60
ClientTop = 345
ClientWidth = 4515
LinkTopic = "Form1"
ScaleHeight = 2625
ScaleWidth = 4515
StartUpPosition = 3 '窗口缺省
Visible = 0 'False
Begin VB.TextBox Text1
Height = 345
Left = 495
TabIndex = 2
Top = 1395
Width = 1725
End
Begin VB.Timer Timer1
Interval = 300
Left = 1710
Top = 735
End
Begin
VB.TextBox mci
Height = 300
Left = 270
TabIndex = 1
Text = "1"
Top = 765
Width = 975
End
Begin MCI.MMControl mci1
Height = 360
Left = 195
TabIndex = 0
Top = 225
Width = 3540
_ExtentX = 6244
_ExtentY = 635
_Version = 393216
DeviceType = ""
FileName = ""
End
End
Attribute VB_Name = "yy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
mci1.Notify = False
mci1.Wait = True
mci1.Command = "stop"
mci1.Command = "close"
mci1.DeviceType = "waveaudio"
mci1.FileName = App.Path & "\sound\py.wav"
mci1.Notify = False
mci1.Wait = True
mci1.Command = "open"
mci1.Notify = True
mci1.Wait = False
mci1.Command = "play"
If Text1.Text = "1" Then
Unload Me
End If
End Sub
Public Function music()
If mci.Text = 1 Then
mci1.Notify = False
mci1.Wait = True
mci1.Command = "stop"
mci1.Command = "close"
mci1.DeviceType = "waveaudio"
mci1.FileName = App.Path & "\sound\py.wav"
mci1.Notify = False
mci1.Wait = True
mci1.Command = "open"
mci1.Notify = True
mci1.Wait = False
mci1.Command = "play"
End If
End Function
Private Sub mci_Change()
mci1.Notify = False
mci1.Wait = True
mci1.DeviceType = "waveaudio"
mci1.FileName = App.Path & "\sound\py.wav"
mci1.Notify = False
mci1.Wait = True
mci1.Command = "open"
mci1.Notify = True
mci1.Wait = False
mci1.Command = "play"
Load main_zy
main_zy.Show
End Sub
Private Sub Timer1_Timer()
If mci1.Mode = "525" Then
mci.Text = "1"
If mci.Text = 1 Then
music
End If
End If
End Sub