2024年5月22日发(作者：)
该函数的详细资料罗列如下
Option Explicit
Private Declare Function mciSendString Lib "" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
mciSendString是用来播放多媒体文件的API指令，可以播放MPEG,AVI,WAV,MP3,
等等，下面介绍它的使用方法：
该函数有四个参数：
第一个参数：要发送的命令字符串。字符串结构是:[命令][设备别名][命令参数].
第二个参数：返回信息的缓冲区,为一指定了大小的字符串变量.
第三个参数：缓冲区的大小,就是字符变量的长度.
第四个参数：回调方式，一般设为零返回值：函数执行成功返回零，否则返回错误代
码
一、常用命令
1.打开（Open），格式：Open 设备名[type设备型式][alias 别名]
Dim mName as string
mName = "f:"
mciSendString "open mName type MPEGVideo Alias movie parent %u
Style %u notify",0&, 0, 0
其中：
open :操作命令,mName :全路径文件名,type MPEGVideo: 是指打开
MPEG,AVI等类型，如果不加一句，就是打开WAV,MP3等Alias movie 定义了该
操作的别名为movie，后续操作只要指明别名即可,parent %u : 源,Style %u :样式,notify:
通知
2.播放（Play），格式：Play 设备名 [from起点][to终点]
mciSendString "play movie", 0&, 0, 0
mciSendString "play movie fullscreen", 0&, 0, 0 '全屏播放
3.暂停（Pause）： mciSendString "pause movie", 0&, 0, 0
4.继续（Resume）：mciSendString "resume movie", 0&, 0, 0
5.停止（Stop）：mciSendString "stop movie", 0&, 0, 0
发布者：admin，转转请注明出处：http://www.yc00.com/news/1716338693a2727391.html
评论列表（0条）