descrizione gestione proprietà con VBA
esci con
vbasintassi.htm


xscrollbars.ppt

descrizione di proprietà applicate a textbox1 (variante di scrollbars.ppt)
autosize-multiline-wordwrap-scrollbars
per ogni esempio consultare il codice fornito a destra in corrispondenza
dei pulsanti CB cliccati


 

Private Sub CommandButton1_Click()
Rem inizializza proprietà
TextBox1.Left = 40
TextBox1.Top = 20
TextBox1.Height = 50
TextBox1.Width = 200
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 0
TextBox1.MultiLine = False
TextBox1.Text = "scrivi testo "
End Sub

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

Private Sub CommandButton3_Click()
TextBox1.Text = "scrivi testo"
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 2
TextBox1.MultiLine = True
End Sub

Private Sub CommandButton4_Click()
TextBox1.Text = "testo "
TextBox1.AutoSize = False
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
End Sub

Private Sub CommandButton5_Click()
TextBox1.Text = "scrivi testo"
TextBox1.AutoSize = True
TextBox1.WordWrap = True
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
End Sub

Private Sub CommandButton6_Click()
TextBox1.Text = "scrivi testo "
TextBox1.AutoSize = True
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = False
End Sub

Private Sub CommandButton7_Click()
TextBox1.Text = "scrivi testo "
TextBox1.AutoSize = True
TextBox1.WordWrap = False
TextBox1.ScrollBars = 3
TextBox1.MultiLine = True
End Sub

Private Sub CommandButton8_Click()
TextBox1.Text = "scrivi testo "
TextBox1.AutoSize = True
TextBox1.WordWrap = True
TextBox1.ScrollBars = 3
TextBox1.MultiLine = False
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