Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Alceus Screenshot Taker - frmPresentation.frm

frmPresentation.frm

Caricato da: Alceus
Scarica il programma completo

  1. Private Sub cmdAllScreen_Click()
  2. 'Rende invisibile il form
  3. Me.Visible = False
  4. 'Attiva il Timer1
  5. Timer1.Enabled = True
  6. 'Setta la variabile ParteSchermo a false
  7. ParteSchermo = False
  8. End Sub
  9.  
  10. Private Sub cmdPartScreen_Click()
  11. 'Rende invisibile il form
  12. Me.Visible = False
  13. 'Attiva il Timer1 del form frmAllScreen
  14. frmAllScreen.Timer1.Enabled = True
  15. End Sub
  16.  
  17. Private Sub Form_Load()
  18. 'Assegna al form un'icona
  19. Me.Icon = LoadPicture(App.Path + "\Img\" + "Camera.ico")
  20. 'Assegna un'immagine al Command Button cmdAllScreen
  21. 'cmdAllScreen.Picture = LoadPicture(App.Path + "\Img\" + "AllScreen.bmp")
  22. 'Assegna un'immagine al Command Button cmdPartScreen
  23. 'cmdPartScreen.Picture = LoadPicture(App.Path + "\Img\" + "PartScreen.bmp")
  24. 'Rende la Picture1 del frmDone grande come tutto lo schermo
  25. frmDone.Picture1.Height = Screen.Height
  26. frmDone.Picture1.Width = Screen.Width
  27. 'Si ritrova l'handle DC dello schermo grafico (finestra 0) e lo si memorizza nella variabile DC
  28. DC = GetDC(0)
  29. End Sub
  30.  
  31. Private Sub Cattura()
  32. 'Sub per catturare lo schermo intero
  33. '
  34. 'Consente l'Autoredraw della Picture1 del form frmDone
  35. frmDone.Picture1.AutoRedraw = True
  36. 'Assegna alla Picture1 del form frmDone le dimensioni dello schermo catturato
  37. frmDone.Picture1.Width = Screen.Width
  38. frmDone.Picture1.Height = Screen.Height
  39. 'Setta come immagine della Picture1 del form frmDone lo screenshot dello schermo intero
  40. StretchBlt frmDone.Picture1.hdc, 0, 0, frmDone.Picture1.ScaleWidth, frmDone.Picture1.ScaleHeight, DC, 0, 0, frmDone.Picture1.ScaleWidth, frmDone.Picture1.ScaleHeight, vbSrcCopy
  41. 'Disattiva il Timer1
  42. Timer1.Enabled = False
  43. 'Rende il form frmDone visibile
  44. frmDone.Visible = True
  45. End Sub
  46.  
  47. Private Sub Form_Unload(Cancel As Integer)
  48. 'Chiudendo questa finestra termina il programma
  49. End
  50. End Sub
  51.  
  52. Private Sub Timer1_Timer()
  53. 'Richiama la sub Cattura
  54. Cattura
  55. End Sub
  56.  
  57. Private Sub Form_Initialize()
  58. 'Rende il form in stile Xp
  59. InitCommonControls
  60. End Sub