📄 play1.vb
字号:
Drive1.Visible = False
Exitb.Visible = False
File1.Visible = False
Label2.Visible = False
List1.Visible = False
MC.Visible = False
Openb.Visible = False
joke = True
Timer1.Enabled = True
Label1.Visible = True
about.Text = "Ok"
Else
add_Renamed.Visible = True
Closeb.Visible = True
Combo1.Visible = True
dall.Visible = True
Delete.Visible = True
Dir1.Visible = True
Drive1.Visible = True
Exitb.Visible = True
File1.Visible = True
Label2.Visible = True
List1.Visible = True
MC.Visible = True
Openb.Visible = True
joke = False
about.Text = "About"
Timer1.Enabled = False
Label1.Visible = False
End If
If joke Then
Form1.DefInstance.Cursor = System.Windows.Forms.Cursors.Help
Else
Form1.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
End If
switch_Renamed = Not switch_Renamed
End Sub
Private Sub add_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles add_Renamed.Click
CommonDialog1.Filter = "MP3|*.mp3|MID|*.mid|CD|*.cda|AVI|*.avi|WAV|*.wav|MPG|*.mpg|所有文件|*.*"
CommonDialog1.ShowOpen()
If CommonDialog1.filename <> "" Then
filename(i) = CommonDialog1.filename
List1.Items.Add((filename(i)))
i = i + 1
End If
End Sub
Private Sub Closeb_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Closeb.Click
MC.Command = "close"
MC.filename = ""
Label2.Text = "No File"
MC.PlayEnabled = False
MC.PrevEnabled = False
MC.NextEnabled = False
MC.StepEnabled = False
MC.BackEnabled = False
End Sub
Private Sub Combo1_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.TextChanged
Select Case Combo1.Text
Case "WAV"
File1.Pattern = "*.wav"
Case "AVI"
File1.Pattern = "*.avi"
Case "MID"
File1.Pattern = "*.mid"
Case "MPG"
File1.Pattern = "*.mpg"
Case "MP3"
File1.Pattern = "*.mp3"
Case "CD"
File1.Pattern = "*.cda"
End Select
End Sub
Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
Select Case Combo1.Text
Case "WAV"
File1.Pattern = "*.wav"
Case "AVI"
File1.Pattern = "*.avi"
Case "MID"
File1.Pattern = "*.mid"
Case "MPG"
File1.Pattern = "*.mpg"
Case "MP3"
File1.Pattern = "*.mp3"
Case "CD"
File1.Pattern = "*.cda"
End Select
End Sub
Private Sub Command1_Click()
Dim a As Object
Dim uBeviceID As Object
'UPGRADE_WARNING: 未能解析对象 uBeviceID 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
'UPGRADE_WARNING: 未能解析对象 a 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
a = auxSetVolume(uBeviceID, 15)
End Sub
Private Sub dall_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dall.Click
List1.Items.Clear()
MC.filename = ""
Label2.Text = "No File"
MC.BackEnabled = False
MC.StepEnabled = False
MC.Command = "close"
MC.PlayEnabled = False
MC.PrevEnabled = False
MC.NextEnabled = False
End Sub
Private Sub Delete_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Delete.Click
If List1.SelectedIndex <= 9 And List1.SelectedIndex >= 0 Then
k = List1.SelectedIndex
List1.Items.Remove((List1.SelectedIndex))
i = i - 1
End If
For k = k To 8
filename(k) = filename(k + 1)
If filename(k + 2) = "" Then
Exit For
End If
Next k
filename(i + 1) = ""
MC.filename = ""
Label2.Text = "No File"
If i = 0 Then
MC.filename = ""
Label2.Text = "No File"
MC.BackEnabled = False
MC.StepEnabled = False
MC.Command = "close"
MC.PlayEnabled = False
MC.PrevEnabled = False
MC.NextEnabled = False
End If
End Sub
Private Sub Dir1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Dir1.Change
File1.FileName = Dir1.Path
End Sub
Private Sub Drive1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Drive1.SelectedIndexChanged
Dir1.Path = Drive1.Drive
End Sub
Private Sub Exitb_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Exitb.Click
MC.Command = "close"
Form1.DefInstance.Close()
End Sub
Private Sub File1_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles File1.DoubleClick
MC.Command = "close"
Select Case Combo1.Text
Case "AVI"
MC.DeviceType = "AVIVideo"
Case "WAV"
MC.DeviceType = "waveaudio"
Case "MID"
MC.DeviceType = "Sequencer"
Case "MPG"
MC.DeviceType = "MPEGVideo"
Case "MP3"
MC.DeviceType = "MPEGVideo"
End Select
MC.filename = Dir1.Path & "\" & File1.FileName
MC.Command = "open"
MC.PlayEnabled = True
MC.PrevEnabled = True
MC.NextEnabled = True
End Sub
Private Sub File1_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles File1.MouseDown
Dim Button As Short = eventArgs.Button \ &H100000
Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
Image1.SetBounds(VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(File1.Left)), VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(File1.Top) + Y - 70), VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(File1.Width)), VB6.TwipsToPixelsY(200))
'UPGRADE_ISSUE: Image 方法 Image1.Drag 未升级。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup2064.htm
'Image1.Drag()
End Sub
Private Sub Form1_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.DoubleClick
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim lres As Object
Dim hrgn As Object
Dim lreg As Integer
'UPGRADE_WARNING: 未能解析对象 hrgn 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
hrgn = CreateEllipticRgn(115, 40, 840, 580)
'UPGRADE_WARNING: 未能解析对象 hrgn 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
'UPGRADE_WARNING: 未能解析对象 lres 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
lres = SetWindowRgn(Me.Handle.ToInt32, hrgn, True)
MC.Command = "open"
i = 0
j = 25
l = 25
joke = False
Timer1.Interval = 35
switch_Renamed = True
Combo1.Items.Add(("MP3"))
Combo1.Items.Add(("CD"))
Combo1.Items.Add(("MID"))
Combo1.Items.Add(("AVI"))
Combo1.Items.Add(("WAV"))
Combo1.Items.Add(("MPG"))
Combo1.Items.Add(("All Files"))
Combo1.SelectedIndex = 1
Timer1.Enabled = False
Label1.Visible = False
'File1.Pattern = "*.wav"
Form1.DefInstance.Cursor = System.Windows.Forms.Cursors.Arrow
End Sub
Private Sub Form1_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
Dim Button As Short = eventArgs.Button \ &H100000
Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
If Button = 1 Then
'UPGRADE_WARNING: 未能解析对象 StartX 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
StartX = X
StartY = Y
End If
End Sub
Private Sub Form1_MouseUp(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
Dim Button As Short = eventArgs.Button \ &H100000
Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
If Button = 1 Then
'UPGRADE_WARNING: 未能解析对象 EndX 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
EndX = X
EndY = Y
'UPGRADE_WARNING: 未能解析对象 StartX 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
'UPGRADE_WARNING: 未能解析对象 EndX 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
Form1.DefInstance.SetBounds(VB6.TwipsToPixelsX((EndX - StartX)), VB6.TwipsToPixelsY((EndY - StartY)), 0, 0, Windows.Forms.BoundsSpecified.X Or Windows.Forms.BoundsSpecified.Y)
'UPGRADE_WARNING: 未能解析对象 EndX 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
'UPGRADE_WARNING: 未能解析对象 StartX 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
StartX = EndX
StartY = EndY
End If
End Sub
Private Sub List1_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles List1.DoubleClick
MC.Command = "close"
MC.filename = filename(List1.SelectedIndex)
MC.Command = "open"
Combo1.Text = UCase(Mid(MC.filename, Len(MC.filename) - 2, 3))
MC.PlayEnabled = True
MC.PrevEnabled = True
MC.NextEnabled = True
If i >= 2 Then
MC.StepEnabled = True
MC.BackEnabled = True
End If
End Sub
'UPGRADE_WARNING: ListBox 事件 List1.DragDrop 未升级。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup2050.htm
Private Sub List1_DragDrop(ByRef Source As System.Windows.Forms.Control, ByRef X As Single, ByRef Y As Single)
filename(i) = Dir1.Path & "\" & File1.FileName
List1.Items.Add((filename(i)))
i = i + 1
End Sub
Private Sub MC_BackClick(ByVal eventSender As System.Object, ByVal eventArgs As AxMCI.DmciEvents_BackClickEvent) Handles MC.BackClick
MC.Command = "close"
If List1.SelectedIndex = 0 Then
MC.filename = filename(i)
List1.SelectedIndex = i - 1
MC.Command = "open"
ElseIf List1.SelectedIndex >= 1 Then
MC.filename = filename(List1.SelectedIndex - 1)
List1.SelectedIndex = List1.SelectedIndex - 1
MC.Command = "open"
End If
End Sub
Private Sub MC_Done(ByVal eventSender As System.Object, ByVal eventArgs As AxMCI.DmciEvents_DoneEvent) Handles MC.Done
'MC.StopEnabled = False
MC.PauseEnabled = False
End Sub
Private Sub MC_NextClick(ByVal eventSender As System.Object, ByVal eventArgs As AxMCI.DmciEvents_NextClickEvent) Handles MC.NextClick
MC.PlayEnabled = True
End Sub
Private Sub MC_PlayClick(ByVal eventSender As System.Object, ByVal eventArgs As AxMCI.DmciEvents_PlayClickEvent) Handles MC.PlayClick
Label2.Text = MC.filename
MC.StopEnabled = True
MC.PauseEnabled = True
MC.PlayEnabled = False
End Sub
Private Sub MC_PrevClick(ByVal eventSender As System.Object, ByVal eventArgs As AxMCI.DmciEvents_PrevClickEvent) Handles MC.PrevClick
MC.StopEnabled = True
End Sub
Private Sub MC_StepClick(ByVal eventSender As System.Object, ByVal eventArgs As AxMCI.DmciEvents_StepClickEvent) Handles MC.StepClick
MC.Command = "close"
If List1.SelectedIndex = i - 1 Then
MC.filename = filename(0)
List1.SelectedIndex = 0
MC.Command = "open"
ElseIf List1.SelectedIndex < i - 1 Then
MC.filename = filename(List1.SelectedIndex + 1)
List1.SelectedIndex = List1.SelectedIndex + 1
MC.PlayEnabled = True
MC.Command = "open"
End If
End Sub
Private Sub MC_StopClick(ByVal eventSender As System.Object, ByVal eventArgs As AxMCI.DmciEvents_StopClickEvent) Handles MC.StopClick
MC.StopEnabled = False
MC.PauseEnabled = False
MC.PlayEnabled = True
End Sub
Private Sub Openb_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Openb.Click
CommonDialog1.Filter = "MP3|*.mp3|MID|*.mid|CD|*.cda|AVI|*.avi|WAV|*.wav|MPG|*.mpg|所有文件|*.*"
CommonDialog1.ShowOpen()
If CommonDialog1.filename <> "" Then
MC.filename = CommonDialog1.filename
MC.Command = "open"
Combo1.Text = UCase(Mid(MC.filename, Len(MC.filename) - 2, 3))
End If
End Sub
Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Label1.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Label1.Left) + j)
Label1.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Label1.Top) + l)
If VB6.PixelsToTwipsX(Label1.Left) > 8000 Or VB6.PixelsToTwipsX(Label1.Left) < 3000 Then
j = -j
End If
If VB6.PixelsToTwipsY(Label1.Top) < 1200 Or VB6.PixelsToTwipsY(Label1.Top) > 5000 Then
l = -l
End If
End Sub
End Class⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -