VB中使用DirectX库的简明教程(12)
2008-04-09 04:44:17来源：互联网 阅读 ()
Set objDMSegSt = Nothing
Set objDMSeg = Nothing
Set objDMPerf = Nothing
Set objDMLoader = Nothing
End
End Sub
Private Sub Timer1_Timer()
GetTimePassed
Label1.Caption = "MIDI播放时间：" ElapsedTime " 总时间：" sAllTime
End Sub
运行程序，点击"打开MIDI文件"文件按钮打开一个MIDI文件，点击"播放"按钮播放文件，点击"暂停"按钮暂停播放，点击"停止"按钮停止播放。
上面的程序比较的简单，我就不做讲解了，大家可以自己分析。
由于DirectX编程是绕开了操作系统而直接对硬件进行操作，所以在编程过程中一定要比较的小心谨慎，由于Windows2000提供了对于DirectX的支持，如果有可能的化最好在Windows2000下编写，上面的程序就是我在Windows2000下编写运行调试后再在Windows98下检验的。并另外硬件对于程序的影响很大，上面的程序在你的机器上运行可能会有速度上的问题，我的机器配置是：赛扬500，128M内存，VooDoo3000, Yamaha 724声卡。
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
