哈哈播放器 源代码
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) 小巧玲珑的哈哈播放器

顶！！！！ 棒！ 有原码 支持原码！

但是我还有小小的请求` 就是把组件中的代码也一起副上 谢谢！