descrizione gestione proprietà con VBA
esci con
vbasintassi.htm


zscrollbars.ppt

descrizione di proprietà applicate a textbox1 (variante con Select Case n e meno pulsanti ,Call Procedura)
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
Call prima(False, False, 0, False)
Case 2
TextBox1.Text = "scrivi testo2 "
Call prima(False, False, 1, True)
Case 3
TextBox1.Text = "scrivi testo3"
Call prima(False, False, 2, True)
Case 4
TextBox1.Text = "scrivi testo4 "
Call prima(False, False, 3, True)
Case 5
TextBox1.Text = "scrivi testo5"
Call prima(True, True, 3, True)
Case 6
TextBox1.Text = "scrivi testo6 "
Call prima(True, False, 3, False)
Case 7
TextBox1.Text = "scrivi testo7 "
Call prima(True, False, 3, True)
Case 8
TextBox1.Text = "scrivi testo8 "
Call prima(True, True, 3, False)
End Select
End Sub

Private Sub prima(a As String, w As String, b As Integer, m As String)
TextBox1.AutoSize = a
TextBox1.WordWrap = w
TextBox1.ScrollBars = b
TextBox1.MultiLine = m
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