|
|
发表于 2003-10-13 10:06:00
|
显示全部楼层
Re:VB中怎么把一幅图装载到内存中?
- Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" ( _
- ByVal hInst As Long, _
- ByVal lpsz As String, _
- ByVal un1 As Long, _
- ByVal n1 As Long, _
- ByVal n2 As Long, _
- ByVal un2 As Long _
- ) As Long
- Private Const IMAGE_BITMAP = 0
- Private Const LR_LOADFROMFILE = &H0010
- Private Const LR_CREATEDIBSECTION = &H2000
- dim bm as long
- dim dc as long
- dc=createcompatibledc(me.hdc) ' ??建一???me兼容的??洵h境
- bm=loadimage(0,"c:\img.bmp",IMAGE_BITMAP,me.scalewidth,me.scaleheight,LR_LOADFROMFILE or LR_CREATEDIBSECTION) ' ??位?D
- selectobject dc,bm ' ?⑽?D放入到??洵h境句柄
- bitblt me.hdc,0,0,me.scalewidth,me.scaleheight,dc,0,0,vbsrccopy
- deleteobject bm
- releasedc 0,dc
- 上面那段代??]?y??，估??]什麽大???。
[em10] |
|
楼主