descrizione gestione proprietà con VBA
esci con vbasintassi1.htm

autowrap.ppt

descrizione proprietà Autosize, WordWrap per vari oggetti (in particolare TextBox1)
(creare oggetti con nomi indicati in figure o codici; incollare codice fornito)

Private Sub CommandButton2_Click()
Label1.AutoSize = False
TextBox1.AutoSize = False
CommandButton1.AutoSize = False
OptionButton1.AutoSize = False
ToggleButton1.AutoSize = False
CheckBox1.AutoSize = False
TextBox1.MultiLine = True

Label1.WordWrap = True
TextBox1.WordWrap = True
CommandButton1.WordWrap = True
OptionButton1.WordWrap = True
ToggleButton1.WordWrap = True
CheckBox1.WordWrap = True
End Sub

Private Sub CommandButton3_Click()
Label1.AutoSize = False
TextBox1.AutoSize = False
CommandButton1.AutoSize = False
OptionButton1.AutoSize = False
ToggleButton1.AutoSize = False
CheckBox1.AutoSize = False
TextBox1.MultiLine = True

Label1.WordWrap = False
TextBox1.WordWrap = False
CommandButton1.WordWrap = False
OptionButton1.WordWrap = False
ToggleButton1.WordWrap = False
CheckBox1.WordWrap = False
End Sub




Private Sub CommandButton4_Click()
Label1.AutoSize = True
TextBox1.AutoSize = True
CommandButton1.AutoSize = True
OptionButton1.AutoSize = True
ToggleButton1.AutoSize = True
CheckBox1.AutoSize = True
TextBox1.MultiLine = True

Label1.WordWrap = True
TextBox1.WordWrap = True
CommandButton1.WordWrap = True
OptionButton1.WordWrap = True
ToggleButton1.WordWrap = True
CheckBox1.WordWrap = True
End Sub

Private Sub CommandButton5_Click()
Label1.AutoSize = True
TextBox1.AutoSize = True
CommandButton1.AutoSize = True
OptionButton1.AutoSize = True
ToggleButton1.AutoSize = True
CheckBox1.AutoSize = True
TextBox1.MultiLine = True

Label1.WordWrap = False
TextBox1.WordWrap = False
CommandButton1.WordWrap = False
OptionButton1.WordWrap = False
ToggleButton1.WordWrap = False
CheckBox1.WordWrap = False

End Sub

Private Sub CommandButton6_Click()
TextBox1.Height = 60
CommandButton1.Height = 60
OptionButton1.Height = 60
ToggleButton1.Height = 60
CheckBox1.Height = 60
TextBox1.Height = 60
CommandButton1.Width = 120
OptionButton1.Width = 120
ToggleButton1.Width = 120
CheckBox1.Width = 120
TextBox1.Width = 120
CommandButton1.Width = 120
OptionButton1.Width = 120
ToggleButton1.Width = 120
CheckBox1.Width = 120
End Sub

Private Sub CommandButton7_Click()
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
End Sub

Private Sub CommandButton8_Click()
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
End Sub


Private Sub UserForm_Click()

End Sub