可以,放到自定义资源中,然后用sndPlaySound API
MSDN中又详细的例子
MSDN中又详细的例子
解决方案 »
- commondialog 的fiter 问题
- FLOAT类型问题
- 在VB中如何确定某控件的类型?
- 怎么用API读书注册表的二进制值?
- 很难得的学习资料向大家推荐
- 对象变量或 With 块变量没有设置(错误 91)???
- 送分小问题5-VB如何仅仅知道一个类的名字动态创建他的一个对象(类名字是参数)
- 求助!!关于怎样在VB中实现winsock的本机调试?
- 求购MIS系统完整源代码和文档!
- 怎样判断文本框的值的长度,用Len()函数为中文汉字时是作为一个字节处理,而不是两个字节但数据库作为两个字节处理,会出错!用什么API函数判断长度?
- 用LIST控件怎么才能选择多行。
- 、这条红色虚线是什么东东?
再调用。
www.applevb.com
新建工程,新建资源文件加入工程,在资源文件编辑器中添加自定义资源(CUSTOM),资源号使用默认的101。
Private Const FILESIZEOFJPEG = 2480 'Jpeg.jpg的大小是2480Byte
Private Sub PutJPGFile() '该过程生成资源文件中的jpeg资源到文件。
Dim Jpeg() As Byte 'Jpeg是个Btye类型和数组
Dim Counter As Long
Jpeg = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组
'注意,微软的帮助中对加载定义资源的说明有误,硬是资源标识为"CUSTOM"而非数字
If Dir(App.Path & "\Jpeg.jpg") = "" Then '尚未存在
Open App.Path & "\Jpeg.jpg" For Binary As #1 '以二进制方式生成Jpeg.jpg For Counter = 0 To FILESIZEOFJPEG - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终
Put #1, , Jpeg(Counter)
Next Counter
Close #1
End If
End Sub
Option Explicit
'******* API声明:得到系统临时目录 *********
Private Declare Function GetTempPath Lib "Kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetTempFilename Lib "Kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFilename As String) As Long
'*******************************************Public Function LoadPRIRes(ByVal ResourceID As Long, Optional ByVal TempFile) As string
Attribute LoadPRIRes.VB_Description = "读取自定义资源"
'函数定义: ResourceID - 自定义资源 ID Dim sFileName As String
Dim k As Long, t As Long
If IsMissing(TempFile) Then
GetTempFile "", "~nt", 0, sFileName
Else
sFileName = TempFile
End If
If SaveResItemToDisk(ResourceID, sFileName, t) = 0 Then
LoadPRIRes = sFileName
End If
End FunctionPrivate Function SaveResItemToDisk(ByVal iResourceNum As Integer, ByVal sDestFileName As String, ) As Long
'=============================================
'Saves a resource item to disk
'Returns 0 on success, error number on failure
'=============================================
Dim bytResourceData() As Byte
Dim iFileNumOut As Integer
Dim sResourceType As String
On Error GoTo SaveResItemToDisk_err
sResourceType = "PRIVATE" '自定义资源类型名
bytResourceData = LoadResData(iResourceNum, sResourceType)
iFileNumOut = FreeFile
Open sDestFileName For Binary Access Write As #iFileNumOut
Put #iFileNumOut, , bytResourceData
Close #iFileNumOut
SaveResItemToDisk = 0
Exit Function
SaveResItemToDisk_err:
SaveResItemToDisk = Err.Number
End FunctionPrivate Function GetTempFile(ByVal strDestPath As String, ByVal lpPrefixString As String, ByVal wUnique As Integer, lpTempFilename As String) As Boolean
If strDestPath = "" Then
strDestPath = String(255, vbNullChar)
If GetTempPath(255, strDestPath) = 0 Then
strDestPath = UZAm.sPath
End If
End If
lpTempFilename = String(255, vbNullChar)
GetTempFile = GetTempFilename(strDestPath, lpPrefixString, wUnique, lpTempFilename) > 0
lpTempFilename = StripTerminator(lpTempFilename)
End Function这是我正在使的源码。