如何给vf添加音频文件
做了一个KTV的点播系统,想插入音频可以播放,求大神指教如何添加音频 ,我是菜鸟,请详细一点。妹子拜谢
CLEAR ALL Main() CLEAR ALL RETURN PROCEDURE Main() LOCAL loForm loForm = CREATEOBJECT("C_Form") WITH loForm .Caption = "测试 - 卡拉OK点播机" .AutoCenter = .T. .Show ENDWITH READ EVENTS ENDPROC DEFINE CLASS C_Form AS Form ADD OBJECT MusicPlayer AS OleControl WITH OleClass = "WMPlayer.OCX.7", Width = 300, Height = 200 PROCEDURE Arrange WITH ThisForm.MusicPlayer .Top = 10 .Left = 10 ENDWITH ENDPROC PROCEDURE Activate ThisForm.Arrange ThisForm.MusicPlayer.URL = "D:\音樂\Céline Dion\Original Album Classics\Misled.mp3" *ThisForm.MusicPlayer.URL = "d4eca0066381d9c4e673ba552daaedb4.mp4" ENDPROC PROCEDURE Resize ThisForm.Arrange ENDPROC PROCEDURE Destroy CLEAR EVENTS ENDPROC ENDDEFINE