如何制作与使用 .RES 资源文件
作者:青锋幽灵 日期:2008-05-09 14:16
这是从资源文件里调用msvbvm60.dll 注册的代码
本代码是放在模块 Moudule1.bas 里面,不是放在Form1里面的.
要注册.dll .ocx最好是放在.bas里面,并把启动项设为Sub Main
否则有可能在还没进入窗体执行注册的动作前,就产生错误而中断了
尤其是98系统之下的msvbvm60.dll
Moudule1.bas代码：
ASP/Visual Basic代码
- Option Explicit
- Public winsys$, appdisk$, aa$, jj%
- Sub Main()
- On Error Resume Next
- If App.PrevInstance Then
- MsgBox "本系统已运行中, 不得重复加载!!", vbOKOnly, App.Title
- End
- Else
- appdisk = Trim(App.Path) & "/"
- winsys = Environ("windir") & "/system32/"
- Call regdllocx
- Form1.Show
- End If
- End Sub
- Private Sub regdllocx()
- On Error Resume Next
- Dim v
- Dim byt() As Byte
- aa = winsys & "msvbvm60.dll"
- If Dir(aa) = "" Then
- v = LoadResData(101, "CUSTOM")
- byt = v
- Open aa For Binary As #1
- Put #1, 1, byt()
- Close #1
- End If
- If Dir(aa) <> "" Then
- aa = winsys & "Regsvr32 /s " & aa
- Call Shell(aa, 3)
- End If
- End Sub
Form1.frm代码：
ASP/Visual Basic代码
- '直接从资源文件调用 .bmp图片(只允许.bmp),不必释放到硬盘
- 'Me.Icon = LoadResPicture(101, vbResIcon) '注释：加载图标
- 'Picture1.Picture = LoadResPicture(101, vbResBitmap) '注释：加载位图
- 'Command1.MouseIcon = LoadResPicture(101, vbResCursor) '注释：加载光标'
- '播放 WAVE 声音(只允许.wav)
- Option Explicit
- Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
- Const SND_ASYNC = &H1
- Const SND_MEMORY = &H4
- Private Sub Command1_Click()
- Dim bArr() As Byte
- bArr = LoadResData(101, "CUSTOM")
- DoEvents
- sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
- End Sub
- 1
