descrizione gestione proprietà con VBA
esci con vbasintassi.htm

scrolla1.ppt
applicazione delle proprietà a TextBox in varia combinazione

AutoSize -WordWrap -ScrollBars -MultiLine con TextBox

Private Sub CommandButton1_Click()
Rem inizializza proprietà
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False

TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 0
TextBox2.MultiLine = False

TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 0
TextBox3.MultiLine = False

End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = "scrivi testo oltre larghezza"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 1
TextBox1.MultiLine = True

TextBox2.Text = "scrivi testo oltre altezza"
TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 2
TextBox2.MultiLine = True

TextBox3.Text = "testo oltre altezza e larghezza "
TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 3
TextBox3.MultiLine = True

End Sub


Private Sub UserForm_Click()

End Sub

scrolla2.ppt

varia Multiline-WordWrap

Private Sub CommandButton1_Click()
Rem inizializza proprietà
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False

TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 0
TextBox2.MultiLine = False

TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 0
TextBox3.MultiLine = False

End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = "scrivi testo oltre limiti"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True

TextBox2.Text = "scrivi testo oltre limiti"
TextBox2.AutoSize = False
TextBox2.WordWrap = True
TextBox2.ScrollBars = 3
TextBox2.MultiLine = False

TextBox3.Text = "testo oltre limiti "
TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 3
TextBox3.MultiLine = True

End Sub

scrolla4.ppt

varia Autosize

Private Sub CommandButton1_Click()
Rem inizializza proprietà
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False

TextBox2.AutoSize = False
TextBox2.WordWrap = False
TextBox2.ScrollBars = 0
TextBox2.MultiLine = False

TextBox3.AutoSize = False
TextBox3.WordWrap = False
TextBox3.ScrollBars = 0
TextBox3.MultiLine = False

End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = "scrivi testo oltre limiti"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True

TextBox2.Text = "scrivi testo oltre limiti"
TextBox2.AutoSize = True
TextBox2.WordWrap = True
TextBox2.ScrollBars = 3
TextBox2.MultiLine = False

TextBox3.Text = "testo oltre limiti "
TextBox3.AutoSize = True
TextBox3.WordWrap = False
TextBox3.ScrollBars = 3
TextBox3.MultiLine = True

End Sub


Private Sub UserForm_Click()

End Sub