textbox

casella di testo e descrizione di alcune proprietà

	Per inserimento,visualizzazione,modifica testo
	(nometext.text="testo da inserire")
(nometext.value=numero da inserire)
	(nometext.alignment=0..1..2 sinistra,destra,centro)
	(nometext.Font= per assegnare Font,Size,Stile)
	(nometext.Forecolor= per assegnare colore testo)
	(nometext.Multiline=true per scrivere su più righe)
	(nometext.ScrollBars=true per scorrimento)
	(nometext.MaxLength=numero massimo caratteri)

per vedere casella1.ppt

Private Sub CommandButton1_Click()

TextBox1.BackColor = vbCyan
TextBox1.BackStyle = fmBackStyleOpaque
TextBox1.BorderColor = vbRed
TextBox1.BorderStyle = fmBorderStyleSingle
TextBox1.ControlTipText = 1
TextBox1.Enabled = True
TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorSelectAll
TextBox1.EnterKeyBehavior = True
TextBox1.Font = times
TextBox1.ForeColor = vbRed
TextBox1.Text = "testo da visualizzare"
TextBox1.TextAlign = fmTextAlignCenter
TextBox1.Top = 50
TextBox1.Value = 20
TextBox1.Visible = False
TextBox1.Width = 100
End Sub


Private Sub CommandButton2_Click()
TextBox1.BackColor = vbCyan
TextBox1.Enabled = True
TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorSelectAll
TextBox1.EnterKeyBehavior = True
TextBox1.Font = times
TextBox1.ForeColor = vbRed
TextBox1.Text = "testo da visualizzare"
TextBox1.TextAlign = fmTextAlignCenter
TextBox1.Top = 50
TextBox1.Value = 20
TextBox1.Visible = True
TextBox1.Width = 100
End Sub

Private Sub CommandButton3_Click()
TextBox3.Font = times
TextBox3.ForeColor = vbRed
TextBox3.Height = 20
TextBox3.Width = 100 'larghezza oggetto
TextBox3.Left = 20 'distanza da margine sinistro
TextBox3.Top = 40 'distanza da margine alto
TextBox3.MaxLength = 100 'lunghezza massima linea di testo
TextBox3.Text = "massima lunghezza consentita per linea di testo"
End Sub

Private Sub CommandButton4_Click()
Rem gestione tab scrolling giustificazione value
TextBox4.ScrollBars = fmScrollBarsBoth 'scrolling
TextBox4.SelectionMargin = True
TextBox4.SpecialEffect = fmSpecialEffectSunken
TextBox4.TabIndex = 1
TextBox4.TextAlign = fmTextAlignCenter 'centratura testo
TextBox4.Top = 50 'distanza da margine alto
TextBox4.Value = 2000
TextBox4.Visible = True
TextBox4.Width = 50 'larghezza oggetto


End Sub

Private Sub CommandButton5_Click()
Rem gestione colore e stile e font per sfondo, bordo,testo, autosize
TextBox5.BackColor = vbCyan
TextBox5.BackStyle = fmBackStyleOpaque
TextBox5.BorderColor = vbRed
TextBox5.BorderStyle = fmBorderStyleSingle
TextBox5.Font = times
TextBox5.ForeColor = vbRed
TextBox5.AutoSize = True
TextBox5.Text = "testo inserito con proprietà Text e con Autosize = true"
End Sub

Private Sub CommandButton6_Click()
Rem gestione colore e stile e font per sfondo, bordo,testo, autosize=false e multiline True
TextBox6.BackColor = vbYellow
TextBox6.BackStyle = fmBackStyleOpaque
TextBox6.BorderColor = vbBlue
TextBox6.BorderStyle = fmBorderStyleSingle
TextBox6.Font = times
TextBox6.ForeColor = vbRed
TextBox6.AutoSize = False
TextBox6.Text = "testo inserito con proprietà Text e con Autosize = false e Multiline = True"
TextBox6.MultiLine = True
TextBox6.ScrollBars = fmScrollBarsVertical

End Sub

Private Sub CommandButton7_Click()
TextBox7.BackColor = vbYellow
TextBox7.BackStyle = fmBackStyleOpaque
TextBox7.BorderColor = vbBlue
TextBox7.BorderStyle = fmBorderStyleSingle
TextBox7.Font = times
TextBox7.ForeColor = vbRed
TextBox7.Enabled = True
TextBox7.Locked = False
TextBox7.Text = "possibile scrivere testo"

End Sub

Private Sub CommandButton8_Click()
TextBox8.BackColor = vbYellow
TextBox8.BackStyle = fmBackStyleOpaque
TextBox8.BorderColor = vbBlue
TextBox8.BorderStyle = fmBorderStyleSingle
TextBox8.Font = times
TextBox8.ForeColor = vbRed
TextBox8.Enabled = True
TextBox8.Locked = True
TextBox8.Text = "impossibile scrivere testo"

End Sub