userform2 richiamabile da userform1

inserita immagine in form, immagine in cornice
(modificabile come sfondo e visibilità cliccando su pulsanti,label1, area form)

codificazione

Private Sub CommandButton1_Click()
Image1.Visible = True
Image1.BackColor = vbRed
End Sub

Private Sub CommandButton2_Click()
Image1.Visible = False
End Sub

Private Sub Label1_Click()
Image1.Visible = True
Image1.BackColor = vbCyan
End Sub


Private Sub UserForm_Click()
Rem userform2
Image1.Visible = True
Image1.BackColor = vbBlue
End Sub

gestione di form vari
caricare, visualizzare, rimuovere, inserire immagini, modificare aspetto mousepointer

Private Sub CommandButton1_Click()
Rem carica form2
Load UserForm2
End Sub

Private Sub CommandButton2_Click()
Rem mostra form2
UserForm2.Show vbModal
End Sub

Private Sub CommandButton3_Click()
Rem carica e mostra form3
Load UserForm3
UserForm3.Show
End Sub

Private Sub CommandButton4_Click()
Rem chiude applicazione con form1
Unload UserForm1
End Sub

Private Sub CommandButton5_Click()
Rem altro modo per chiudere form1
Unload Me
End Sub

Private Sub CommandButton6_Click()
Rem carica form5
Load UserForm5
End Sub

Private Sub CommandButton7_Click()
Rem mostra form5 e con modifica a mousepointer chiude form5
UserForm5.Show
End Sub

Private Sub CommandButton8_Click()
UserForm4.Show
End Sub

gestione di alcune proprietà dei pulsanti
colore pulsante, testo inserito , immagine inserita o caricata, controllo codificato

per vedere presentazione.ppt

Private Sub CommandButton1_Click()
Rem inserisce immagine in pulsante
Image1.Visible = True
CommandButton1.BackColor = vbCyan
End Sub

Private Sub CommandButton3_Click()
Rem carica immagine indicando il percorso (es."C:/documenti/foto/gattino.gif")
rem oppure con immagine e form nella stessa cartella (es."gattino.gif")
CommandButton3.BackColor = vbRed
CommandButton3.Picture = LoadPicture("gattino.gif")
End Sub


Private Sub CommandButton4_Click()
CommandButton4.BackColor = vbRed
CommandButton3.Visible = False
End Sub

Private Sub CommandButton5_Click()
CommandButton5.BackColor = vbCyan
Image1.Visible = False
End Sub

Private Sub CommandButton6_Click()
CommandButton6.BackColor = vbRed
CommandButton3.Visible = True
End Sub

Private Sub CommandButton7_Click()
Unload Me
End Sub