wtoo2 发表于 2006-3-3 19:50

小巧玲珑的哈哈播放器

<P>哈哈播放器 源代码<BR>Option Explicit</P>
<P>Private Sub Dir1_Change()<BR>File1.Path = Dir1.Path<BR>End Sub</P>
<P>Private Sub Drive1_Change()<BR>Dir1.Path = Drive1.Drive<BR>End Sub</P>
<P>Private Sub File1_Click()<BR>Dim sfile As String<BR>If sfile = Right(Dir1.Path, 1) = "\" Then<BR>Else<BR>sfile = Dir1.Path + "\" + File1.FileName<BR>End If<BR>MMControl1.Command = "close"<BR>MMControl1.FileName = sfile<BR>MMControl1.Command = "open"<BR>MMControl1.Notify = True</P>
<P><BR>End Sub</P>
<P>Private Sub Form_Load()<BR>MMControl1.DeviceType = "MPEGVideo"<BR>End Sub<BR></P>[attach]5443[/attach]<BR>

shiyide 发表于 2006-3-4 09:14

<P>顶！！！！ 棒！ 有原码  支持原码！</P>

shiyide 发表于 2006-3-4 09:33

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

vbahz 发表于 2006-3-10 14:57

有兴趣大家一起合作，来完善播放器吗？<BR>

vbahz 发表于 2006-3-11 13:53

[attach]5595[/attach]<BR>

jxyga111 发表于 2008-6-13 10:52

源代碼只有這麼多啊

jiajinchao 发表于 2008-6-15 19:38

什么东西啊　　不行地　

ghssll55 发表于 2008-6-21 21:57

谢谢

星星——之火 发表于 2008-9-29 02:34

11

说实话，有待改进！
加油！我也是编程热爱者。

页: [1]

编程论坛