Private Sub Form_Load()
'Assegna al form un'icona
Me.Icon = LoadPicture(App.Path + "\Img\" + "Camera.ico")
'Setta come autodimensionabile la Picture1 se la variabile ParteSchermo non è uguale a true
If Not ParteSchermo = True Then Picture1.Width = Screen.Width: Picture1.Height = Screen.Height
'Consente l'autoredraw della Picture1
Picture1.AutoRedraw = True
'Allarga al massimo il form
Me.Width = Screen.Width
'Porta in primo piano la barre di scorrimento VScroll1 e HScroll1 e porta in secondo piano _
la PictureBox Picture1
VScroll1.ZOrder 0
HScroll1.ZOrder 0
Picture1.ZOrder 1
''Assegna al form una picture necessaria poi per creare uno sfondo ripetitivo
'Me.Picture = LoadPicture(App.Path + "\Img\" + "Sfondo.gif")
End Sub
Private Sub HScroll1_Scroll()
'Muove l'immagine
Picture1.Left = -HScroll1.Value
End Sub
Private Sub Form_Initialize()
'Rende il form in stile Xp
InitCommonControls
End Sub
Private Sub HScroll1_Change()
'Muove l'immagine
Picture1.Left = -HScroll1.Value
End Sub
Private Sub mnuAbout_Click()
'Mostra il form frmAbout
frmAbout.Show
End Sub
Private Sub mnuNew_Click()
'"Pulisce" la Picture1
Picture1.Cls
'Mostra il form frmPresentation e rende invisibile il form frmDone
frmPresentation.Show
Me.Visible = False
End Sub
Private Sub mnuQuit_Click()
'Termina il programma
End
End Sub
Private Sub mnuSave_Click()
'Salva l'immagine
CommonDialog1.Filter = "Immagine bmp|*.bmp|Immagine jpg|*.jpg"
CommonDialog1.ShowSave
'Se la variabile ParteSchermo è diversa da true...
If Not ParteSchermo = True Then
'Se il nome dell'immagine è diversa da una stringa vuota, allora salva
If Not Len(CommonDialog1.FileTitle) = 0 Then SavePicture Picture1.Image, CommonDialog1.FileName
Else 'Altrimenti...
SavePicture Picture1.Image, App.Path & "\Catture temporanee\Cattura temporanea_2.bmp" 'Salva l'immagine temporaneamente
Picture2.Cls '"Pulisce" la Picture2
Picture2.Picture = LoadPicture(App.Path & "\Catture temporanee\Cattura temporanea_2.bmp") 'Carica l'immagine temporanea salvata precedentemente
frmAppoggio.Picture1.Width = Picture1.Width: frmAppoggio.Picture1.Height = Picture1.Height 'Dimensiona la Picture1 del form frmAppoggio
frmAppoggio.Picture1.Cls '"Pulisce" la Picture1 del form frmAppoggio
frmAppoggio.Picture1.AutoRedraw = True 'Consente l'autoredraw della Picture1 del form frmAppoggio
frmAppoggio.Picture1.PaintPicture Picture2.Picture, 0, 0, , , 0, 0, Picture1.Width, Picture1.Height 'Setta come immagine della Picture1 del form frmAppoggio solo la parte della Picture1 catturata dall'utente
'Se il nome dell'immagine è diversa da una stringa vuota, allora salva
If Not Len(CommonDialog1.FileTitle) = 0 Then SavePicture frmAppoggio.Picture1.Image, CommonDialog1.FileName
End If
End Sub
Private Sub mnuSaveAs_Click()
'Salva l'immagine con l'estensione scelta dall'utente
CommonDialog1.ShowSave
'Se la variabile ParteSchermo è diversa da true...
If Not ParteSchermo = True Then
'Se il nome dell'immagine è diversa da una stringa vuota, allora salva
If Not Len(CommonDialog1.FileTitle) = 0 Then SavePicture Picture1.Image, CommonDialog1.FileName
Else 'Altrimenti...
SavePicture Picture1.Image, App.Path & "\Catture temporanee\Cattura temporanea_2.bmp" 'Salva l'immagine temporaneamente
Picture2.Cls '"Pulisce" la Picture2
Picture2.Picture = LoadPicture(App.Path & "\Catture temporanee\Cattura temporanea_2.bmp") 'Carica l'immagine temporanea salvata precedentemente
frmAppoggio.Picture1.Width = Picture1.Width: frmAppoggio.Picture1.Height = Picture1.Height 'Dimensiona la Picture1 del form frmAppoggio
frmAppoggio.Picture1.Cls '"Pulisce" la Picture1 del form frmAppoggio
frmAppoggio.Picture1.AutoRedraw = True 'Consente l'autoredraw della Picture1 del form frmAppoggio
frmAppoggio.Picture1.PaintPicture Picture2.Picture, 0, 0, , , 0, 0, Picture1.Width, Picture1.Height 'Setta come immagine della Picture1 del form frmAppoggio solo la parte della Picture1 catturata dall'utente
'Se il nome dell'immagine è diversa da una stringa vuota, allora salva
If Not Len(CommonDialog1.FileTitle) = 0 Then SavePicture frmAppoggio.Picture1.Image, CommonDialog1.FileName
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Se si preme con il tasto destro sulla Picture1, visualizza il menù a tendina mnu del form frmRightClick
If Button = 2 Then PopupMenu frmRightClick.mnu
End Sub
Private Sub Picture1_Resize()
'Se la Picture1 è più larga del form, allora visualizza la barra di scorrimento HScroll1. Altrimenti la rende invisibile.
If Picture1.Width > Me.Width Then
HScroll1.Visible = True
Else
HScroll1.Visible = False
End If
'Se la Picture1 è più alta del form, allora visualizza la barra di scorrimento VScroll1. Altrimenti la rende invisibile.
If Picture1.Width > Me.Height Then
VScroll1.Visible = True
Else
VScroll1.Visible = False
End If
'Al ridimensionamento della Picture1, consente l'Autoredraw della Picture1 stessa
Picture1.AutoRedraw = True
End Sub
Private Sub VScroll1_Scroll()
'Muove l'immagine
Picture1.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Change()
'Muove l'immagine
Picture1.Top = -VScroll1.Value
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Dealloca l'handle DC
ReleaseDC 0, DC
'Termina il programma alla chiusura della finestra
End
End Sub
'Private Sub Form_Paint()
''Dichiara le variabili necessarie per creare uno sfondo ripetitivo
'Dim X, Y, PatternHeight, PatternWidth, SM As Integer, D As Long
'ScaleMode = vbPixels
''Definisce le dimensioni del pattern
'PatternHeight = 30
'PatternWidth = 30
''Crea uno sfondo ripetitivo
'For X = 0 To ScaleWidth Step PatternWidth
' For Y = 0 To ScaleHeight Step PatternHeight
' D = BitBlt(hdc, X, Y, PatternWidth, _
' PatternHeight, hdc, 0, 0, vbSrcCopy)
' Next Y
' Next X
'ScaleMode = SM
'End Sub