VB mcisendstring 方法
做个mp3播放器，用realplay和WMP做出来的程序内存占用太大。
如果你仅仅是播放MP3，建议使用API函数mciSendString。
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" 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:\\mpeg\\mpeg1.avi"
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
6.关闭（Colse）：
mciSendString "close movie", 0&, 0, 0
�
相关文档：
VB无所不能之五：建立“标准”DLL动态链接库文件（2）
——作者：钟声
博客地址：http://blog.csdn.net/useway
昨天我们讲到，如何通过特殊方法获取OBJ文件，那么今天我们继续讲如何进行编译连接。
......
1.语言/环境基础
--项目的组成
--语言基础
----变量的作用域和生存期
----基本语句(for循环,赋值语句let(普通变量赋值),set(对象的赋值,只用set),分支语句)
----静态数组和动态数组(数组的声明,上下界确定,动态数组的使用,定义新的之后,怎么保留以前的数据)
----主要的系统函数和过程(By ......
'在引用里添加ADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用" & _
"户;Initial Catalog=数据库名;Data Source=服务器名"
......
Dim rs As ADODB.Recordset
Dim sqlstr As String
'查询
sqlstr = "select * from 表名 where 字段名 = '" & 查询的内容 & "'"
rs = VScn.Execute("" & SqlSt ......
'*************************************************************************
'**模 块 名：fBackupDatabase_a
'**描 述：备份数据库,返回出错信息,正常恢复,返回""
'**调 用：fBackupDatabase_a "备份文件名","数据� ......
