Private Sub cmdAllScreen_Click()
'Rende invisibile il form
Me.Visible = False
'Attiva il Timer1
Timer1.Enabled = True
'Setta la variabile ParteSchermo a false
ParteSchermo = False
End Sub
Private Sub cmdPartScreen_Click()
'Rende invisibile il form
Me.Visible = False
'Attiva il Timer1 del form frmAllScreen
frmAllScreen.Timer1.Enabled = True
End Sub
Private Sub Form_Load()
'Assegna al form un'icona
Me.Icon = LoadPicture(App.Path + "\Img\" + "Camera.ico")
'Assegna un'immagine al Command Button cmdAllScreen
'cmdAllScreen.Picture = LoadPicture(App.Path + "\Img\" + "AllScreen.bmp")
'Assegna un'immagine al Command Button cmdPartScreen
'cmdPartScreen.Picture = LoadPicture(App.Path + "\Img\" + "PartScreen.bmp")
'Rende la Picture1 del frmDone grande come tutto lo schermo
frmDone.Picture1.Height = Screen.Height
frmDone.Picture1.Width = Screen.Width
'Si ritrova l'handle DC dello schermo grafico (finestra 0) e lo si memorizza nella variabile DC
DC = GetDC(0)
End Sub
Private Sub Cattura()
'Sub per catturare lo schermo intero
'
'Consente l'Autoredraw della Picture1 del form frmDone
frmDone.Picture1.AutoRedraw = True
'Assegna alla Picture1 del form frmDone le dimensioni dello schermo catturato
frmDone.Picture1.Width = Screen.Width
frmDone.Picture1.Height = Screen.Height
'Setta come immagine della Picture1 del form frmDone lo screenshot dello schermo intero
StretchBlt frmDone.Picture1.hdc, 0, 0, frmDone.Picture1.ScaleWidth, frmDone.Picture1.ScaleHeight, DC, 0, 0, frmDone.Picture1.ScaleWidth, frmDone.Picture1.ScaleHeight, vbSrcCopy
'Disattiva il Timer1
Timer1.Enabled = False
'Rende il form frmDone visibile
frmDone.Visible = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Chiudendo questa finestra termina il programma
End
End Sub
Private Sub Timer1_Timer()
'Richiama la sub Cattura
Cattura
End Sub
Private Sub Form_Initialize()
'Rende il form in stile Xp
InitCommonControls
End Sub