【叶帆开源区】VB动态加载纯DLL资源

[刘洪峰AIoT]

【程序界面】--------------------------------
http://www.bjjr.com.cn/yefan/pic/dllres1.jpg
http://www.bjjr.com.cn/yefan/pic/dllres2.jpg

【源码下载】--------------------------------
http://blog.csdn.net/yefanqiu/
【叶帆源码】－>[015]VB引用DLL资源

【源码介绍】--------------------------------
http://blog.csdn.net/yefanqiu/archive/2005/03/16/320640.aspx

【部分源码摘要】--------------------------------
'*************************************************************************
'**函 数 名：LoadRes
'**输 入：无
'**输 出：无
'**功能描述：资源加载
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-03-15 12:27:34
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub LoadRes()
Dim hRes As Long
Dim strData As String
Dim hBmp As Long
Dim hIcon As Long
Dim bitBmp As BITMAPINFO

'加载DLL
hRes = LoadLibrary(Combo1.Text)

'字符串
strData = Space(255)
LoadString hRes, IDS_STRING1, strData, 255
Label1(0).Caption = Trim(strData)

strData = Space(255)
LoadString hRes, IDS_STRING2, strData, 255
Label1(1).Caption = Trim(strData)

strData = Space(255)
LoadString hRes, IDS_STRING3, strData, 255
Label1(2).Caption = Trim(strData)

'位图
hBmp = LoadBitmap(hRes, IDB_BITMAP1)
If GetObjectType(hBmp) = OBJ_BITMAP Then
GetObject hBmp, Len(bitBmp), bitBmp
DrawState Picture1(0).hDC, 0, ByVal 0, hBmp, 0, 0, 0, bitBmp.bmiHeader.biWidth, bitBmp.bmiHeader.biHeight, DST_BITMAP
End If

'图标
hIcon = LoadIcon(hRes, IDI_ICON1)
DrawIcon Picture1(1).hDC, 0, 0, hIcon

'释放资源
DeleteObject hBmp
DeleteObject hIcon

'释放DLL
FreeLibrary hRes
End Sub

...

【叶帆开源区】其它链接
XP界面窗体制作（可放缩、可缩小到托盘）
http://community.csdn.net/Expert/topic/3387/3387552.xml?temp=.416424
有意思的老人源码
http://community.csdn.net/Expert/topic/3376/3376547.xml?temp=.1939661
VB源码之友
http://community.csdn.net/Expert/topic/3365/3365079.xml?temp=7.926577E-02
定制公用对话框（如photoshop的文件打开对话框）
http://community.csdn.net/Expert/topic/3385/3385386.xml?temp=.2206842
绝对经典的扫雷源码(仿微软扫雷界面）－－可以作弊呢！！！
http://community.csdn.net/Expert/topic/3380/3380429.xml?temp=.3048517
MSComm串口通信示例
http://community.csdn.net/Expert/topic/3387/3387736.xml?temp=.2366754
任意透明窗体－－运用API实现特异窗体
http://community.csdn.net/Expert/topic/3389/3389796.xml?temp=.8869898

[yorkness]

看看去

[yorkness]

看看去

[guxizhw]

学习：）

[zyg0]

学习

[kmzs]

叶兄总有好东东

[ljhdi]

顶一下先

[bacaihong]

多谢楼猪，学习学习再学习

[aiur2000]

呵呵，顶了

[daisy8675]

顶一把，叶帆的blog上面不少好东西，大家可以多看看

[huangjianyou]

^_^

[yangao]

好东东

[xmuyyd]

学习~~~

[是是非非]

学习，呵呵

[laviewpbt]

xuexi

[cool_man]

mark