API函数mciSendString在vb中的具体用法是怎么样的?

发布网友发布时间：2022-05-22 08:53

共1个回答

热心网友时间：2024-03-29 18:33

这个没什么区别，下面的代码是网上找，你可以参考一下。Optionnbsp;ExplicitPrivatenbsp;Declarenbsp;Functionnbsp;mciSendStringnbsp;Libnbsp;“winmm.dll“nbsp;Aliasnbsp;“mciSendStringA“nbsp;(ByValnbsp;lpstrCommandnbsp;Asnbsp;String,nbsp;ByValnbsp;lpstrReturnStringnbsp;Asnbsp;String,nbsp;ByValnbsp;uReturnLengthnbsp;Asnbsp;Long,nbsp;ByValnbsp;hwndCallbacknbsp;Asnbsp;Long)nbsp;Asnbsp;LongDimnbsp;Resnbsp;Asnbsp;Integer,nbsp;Retnbsp;Asnbsp;Stringnbsp;*nbsp;1024Privatenbsp;Subnbsp;Form_Load()Dimnbsp;Anbsp;asnbsp;Integer,nbsp;pathnbsp;Asnbsp;String,nbsp;APPPATHnbsp;Asnbsp;String‘获得当前路径8.3格式的短路径名Ifnbsp;Right(App.path,nbsp;1)nbsp;=nbsp;““nbsp;Thennbsp;pathnbsp;=nbsp;App.pathnbsp;Elsenbsp;pathnbsp;=nbsp;App.pathnbsp;amp;nbsp;““APPPATHnbsp;=nbsp;String$(165,nbsp;0)Anbsp;=nbsp;GetShortPathName(path,nbsp;APPPATH,nbsp;164)APPPATHnbsp;=nbsp;Left(APPPATH,nbsp;InStr(APPPATH,nbsp;Chr(0))nbsp;-nbsp;1)Endnbsp;SubPrivatenbsp;Subnbsp;Form_Click()Dimnbsp;Resnbsp;Asnbsp;Integer,nbsp;Retnbsp;Asnbsp;Stringnbsp;*nbsp;1024Resnbsp;=nbsp;mciSendString(“playnbsp;“nbsp;amp;nbsp;APPPATHnbsp;amp;nbsp;“Shili.wavnbsp;fromnbsp;3000nbsp;tonbsp;8000“,nbsp;Ret,nbsp;1024,nbsp;0)‘Resnbsp;=nbsp;mciSendString(“playnbsp;“nbsp;amp;nbsp;APPPATHnbsp;amp;nbsp;“Shili.wav“,nbsp;Ret,nbsp;1024,nbsp;0)‘整首播放Endnbsp;SubPrivatenbsp;Subnbsp;Form_QueryUnload(Cancelnbsp;Asnbsp;Integer,nbsp;UnloadModenbsp;Asnbsp;Integer)Resnbsp;=nbsp;mciSendString(“closenbsp;all“,nbsp;Ret,nbsp;1024,nbsp;0)EndEndnbsp;Sub提醒：http://bbs.yesky.com/soft/forumdisplay.php?fid=147