Lainuxxx
Visitante
|
 |
« Respuesta #1 en: Enero 02, 2004, 10:07:41 » |
|
Bueno kreo ke te entiendo aki tienes un kode modificado por mi ke kreo es lo ke buscas.
EN GENERAL
:::::::::::::::
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal dwRop As Long) As Long
EN EL FORM
:::::::::::::::
Private Sub Form_Load()
On Error Resume Next
Dim A As Long
Dim s As Long
Me.Cls
Me.AutoRedraw = True
Me.ScaleMode = 1
A = GetDesktopWindow()
s = GetDC(A)
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, s, 0, 0, vbSrcCopy
'Remplaza automaticamente la imagen vieja por la nueva
'Kill "C:\imagen.Jpg"
'Kon esto Guardas tu imagen
SavePicture Me.Image, "C:\imagen.jpg"
If SetWindowPos(hwnd, -1, 0, 0, 0, 0, SWP_FLAGS) Then
frmcongela.WindowState = 2
End If
End Sub
EN UN MODULO
:::::::::::::::::::
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Saludoz
Lainuxxx
|
Autor