enable

uso di enable, true, false, setfocus, MsgBox
creare oggetti indicati,nomi automatici,inserire testo,incollare codice

per vedere ppt

oggetti creati (formattazione opzionale)

inserimento testo informativo (non comparirà nel codice)

attivazione con celibe

attivazione con sposato

esercitazione con visual basic per attivazione
di enabled,true, false,setfocus, MsgBox

scopo programma:inserire dati personali,differenziando
tra celibe e spostato, in modo da spostare il cursore
solo su alcune celle ed escludendo quelle non richieste.

dalla immagine si vede che sono presenti
2 pulsanti (cambiare solo testo informativo)
6 etichette(label1 >> label6 ):cambiare solo testo
9 caselle di testo (textbox1 >> textbox9 ):nessuna modifica

da codice si vede che con celibe vengono saltate le
caselle 4,5,6 e (enabled.false)
se invece si tratta di sposato anche le celle 4,5,6
sono abilitate (enabled.true)

terminato inserimento dati cliccare su pulsante per
cancellare tutte le entrate e accettare nuovi dati.
SetFocus riporta cursore in prima casella.


codice da copiare e incollare

Private Sub CommandButton1_Click()
Dim x As String
TextBox1.SetFocus
MsgBox " ora premi OK poi TAB o Return e scrivi dati richiesti"
x = "celibe"
x = TextBox1.Text
If x = "celibe" Then
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
End If
If x <> "celibe" Then
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
End If
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_click()
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox1 = ""
TextBox1 = SetFocus
End Sub