Trucos Varios II
LEER UN BMP DESDE UN RECURSO (DLL)
temp=DrawBMP(Form1,101)
Public Function DrawBMP(ByRef Form As Form, ByVal BMP_ID As Long, Optional ByVal x As Long = 0, Optional ByVal y As Long = 0)
Dim desDC, memDC, hRESBMP, hMEMBMP As Long
desDC = Form.hdc
memDC = CreateCompatibleDC(desDC)
hRESBMP = LoadBitmapBynum(App.hInstance, BMP_ID)
hMEMBMP = CreateCompatibleBitmap(memDC, 0, 0)
mb = SelectObject(memDC, hRESBMP)
bi = BitBlt(desDC, x, y, Form1.ScaleWidth, Form1.ScaleHeight, memDC, 0, 0,SRCCOPY)
End Function
|
