Stephen Lebans said:
Here's a class to simulate a VB PictureBox control using the standard
Access Image control. You should be able to use your VB code directly.
http://www.lebans.com/imageclass.htm
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
Thanks Stephen, but i just see it....!
I need this to create special effect in my Foto sistem DB.
I'm not so able with API, but i also need Events Object procedure.
I search about, but Access can't support Event procedure.
Can i use the Mouse_Move Event of Image to do this..?
This is short-part that work good in VB....!
Private Sub Form_Activate()
PrintScreen
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'tex = StretchBlt(pb.hdc, 0, 0, wid, hig, Form1.picBack.hdc, X, Y,
100, 100, SRCCOPY)
End Sub
Function PrintScreen()
Dim r As Long
Dim hWndDesk As Long
Dim hDCDesk As Long
Dim LeftDesk As Long
Dim TopDesk As Long
Dim WidthDesk As Long
Dim HeightDesk As Long
'coordinate dello schermo
LeftDesk = 0
TopDesk = 0
WidthDesk = Screen.Width \ X.TwipsPerPixelX
HeightDesk = Screen.Height \ Y.TwipsPerPixelY
'Handle del desktop desktop
hWndDesk = GetDesktopWindow()
hDCDesk = GetWindowDC(hWndDesk)
'copia la picture del desktop
r = BitBlt(pB.hdc, 0, 0, WidthDesk, HeightDesk, hDCDesk,
LeftDesk, TopDesk, vbSrcCopy)
r = ReleaseDC(hWndDesk, hDCDesk)
End Function
Thanks again.
Alessandro(IT)