descrizione gestione proprietà con VBA
ritorna con variavba.htm

optionbuttonx.ppt sintassi e uso di pulsante OptionButton

Private Sub OptionButton1_Click()
Image1.BorderColor = vbCyan
Image1.BackColor = vbYellow
OptionButton1.ForeColor = vbGreen
End Sub

Private Sub OptionButton2_Click()
Image1.BorderColor = vbGreen
Image1.BackColor = vbRed
OptionButton2.ForeColor = vbBlue
End Sub

Private Sub OptionButton3_Click()
Image1.BorderColor = vbRed
Image1.BackColor = vbBlue
OptionButton3.ForeColor = vbRed
End Sub

Private Sub UserForm_Click()
Label1.BackColor = vbYellow
Label2.BackColor = vbRed
Label3.BackColor = vbBlue
End Sub

probeep.ppt generazione di suono con Interaction.BEEP

focus1.ppt gestione SetFocus e spostamento cursore mediante codice

spostamento normale, senza uso di SetFocus

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

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

Private Sub CommandButton4_Click()
Image2.Visible = True
End Sub

Private Sub CommandButton5_Click()
Image2.Visible = False
End Sub

Private Sub CommandButton6_Click()
End Sub

focus2.ppt inerimento di SetFocus e modifica nello spostamemto del cursore

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

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

Private Sub CommandButton4_Click()
Image2.Visible = True
End Sub

Private Sub CommandButton5_Click()
Image2.Visible = False
End Sub

Private Sub CommandButton6_Click()
CommandButton4.SetFocus
End Sub

setfocusx.ppt variante più completa

Private Sub CommandButton3_Click()
Image1.Visible = True
End Sub

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

Private Sub CommandButton5_Click()
Interaction.Beep
CommandButton8.SetFocus
End Sub

Private Sub CommandButton10_Click()
rem beep percepibile se altoparlanti attivati
Interaction.Beep
CommandButton14.SetFocus
End Sub
Private Sub CommandButton11_Click()
Image2.Visible = True
End Sub

Private Sub CommandButton12_Click()
Image2.Visible = False
End Sub

Private Sub CommandButton13_Click()
Image3.Visible = True
End Sub

Private Sub CommandButton14_Click()
Image3.Visible = False
End Sub

Private Sub CommandButton17_Click()
Interaction.Beep
CommandButton1.SetFocus
End Sub

Private Sub CommandButton19_Click()
Label2.Visible = True
End Sub

Private Sub CommandButton20_Click()
Label2.Visible = False
End Sub

Private Sub UserForm_Click()

End Sub