哈哈播放器 源代码
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

QwlekP6d.rar (220.4 KB) 小巧玲珑的哈哈播放器