descrizione gestione proprietà con VBA
esci con vbasintassi.htm

yscrollbars.ppt

descrizione di proprietà applicate a textbox1 (variante con Select Case n e meno pulsanti)
autosize-multiline-wordwrap-scrollbars
per ogni esempio consultare il codice fornito a destra in corrispondenza
delle opzioni per Case n inserite

Private Sub CommandButton1_Click()
Rem inizializza proprietà
Dim n As Integer
n = TextBox2
Select Case n
Case 1
TextBox1.Text = "scrivi testo1 "
TextBox1.Left = 40
TextBox1.Top = 20
TextBox1.Height = 50
TextBox1.Width = 200
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False

Case 2
TextBox1.Text = "scrivi testo2 "
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 1
TextBox1.MultiLine = True
Case 3
TextBox1.Text = "scrivi testo3"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 2
TextBox1.MultiLine = True
Case 4
TextBox1.Text = "scrivi testo4 "
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
Case 5
TextBox1.Text = "scrivi testo5"
TextBox1.AutoSize = True
TextBox1.WordWrap = True
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
Case 6
TextBox1.Text = "scrivi testo6 "
TextBox1.AutoSize = True
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = False
Case 7
TextBox1.Text = "scrivi testo7 "
TextBox1.AutoSize = True
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
Case 8
TextBox1.Text = "scrivi testo8 "
TextBox1.AutoSize = True
TextBox1.WordWrap = True
TextBox1.ScrollBars = 3
TextBox1.MultiLine = False
End Select
End Sub


Private Sub CommandButton9_Click()
Label6.Visible = True
End Sub
Private Sub CommandButton10_Click()
Label6.Visible = False
End Sub



Private Sub UserForm_Click()

End Sub