小巧玲珑的哈哈播放器
哈哈播放器 源代码
Option Explicit
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim sfile As String
If sfile = Right(Dir1.Path, 1) = "\" Then
Else
sfile = Dir1.Path + "\" + File1.FileName
End If
MMControl1.Command = "close"
MMControl1.FileName = sfile
MMControl1.Command = "open"
MMControl1.Notify = True
End Sub
Private Sub Form_Load()
MMControl1.DeviceType = "MPEGVideo"
End Sub