天的教程是VB程序中添加背景音乐，要达到的效果就是当程序运行时，背景音乐同时想起

先看一下实例

这个就是 灰鸽子专杀的背景音乐``

打开VB 

添加自定义资源`

1 .midi就是背景音乐``

编写代码``

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
  Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
  Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
  Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
  Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
  Private Const GENERIC_WRITE = &H40000000
  Private Const CREATE_ALWAYS = 2
  Private Const FILE_ATTRIBUTE_NORMAL = &H80

这个是程序的声明`

看一下效果`

OK 

想要程序运行时候   背景音乐想起  播放的代码放在FORM代码那里`

还可以释放一下其他的文件  比如说EXE什么的`，当然代码也有所不同``，，，

看那昨天那个VB鸽子免杀的``，觉得好笑``

就是一个资源文件`当然可以过某些杀软``但是你释放之后`呢？~

不说了```教程结束`

刚才发现    录象的时候音频没打开``

OK   教程结束``