VB利用API进行媒体播放

最新推荐文章于 2020-10-16 09:24:47 发布

华芸智森

最新推荐文章于 2020-10-16 09:24:47 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： vb api string

本文链接：https://blog.youkuaiyun.com/MSTOP/article/details/3053413

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 
 
' 
'媒体播放(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 