VB利用API进行媒体播放

最新推荐文章于 2018-10-27 11:00:34 发布

原创

最新推荐文章于 2018-10-27 11:00:34 发布 · 1.2k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb #api #string

这篇博客介绍了如何在Visual Basic(VB)中利用API函数进行媒体播放操作，包括播放、循环播放和关闭媒体文件。通过`mciSendString`函数调用Windows Multimedia Interface API，实现了对MCI设备的控制，例如打开、播放、循环和关闭声音文件。

 
 
' 
'媒体播放(SmMedia) 
' 
Option Explicit
Dim s As String, ShortPathName As String
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare 