Ci sono momenti quando si crea un'applicazione di Visual Basic che si desidera evidenziare un campo di testo per enfasi. Questo potrebbe essere far notare un errore per l'utente o semplicemente per rendere il campo di distinguersi da altri campi di testo sullo schermo. Microsoft Visual Basic 2008 offre la possibilità di farlo modificando le proprietà di colore e il carattere del testo nel campo.

Istruzioni

1

Aprire Visual Basic 2008 e la pagina iniziale, fare clic sul collegamento "Progetto" a destra del "Crea:" opzione.

2

Modificare il nome di applicazione predefinito da "WindowsApplication1" a "HighlightTextbox", quindi fare doppio clic sull'icona "Windows Forms Application". Verrà visualizzata la finestra di progettazione di Visual Basic con un nuovo modulo vuoto Windows.

3

Posizionare il cursore sulla scheda «Strumenti» nella parte superiore sinistra della finestra di progettazione per aprire il menu della casella degli strumenti.

4

Fare doppio clic sul controllo "TextBox" e "Button" per aggiungere un controllo TextBox e un pulsante al form. Rotolare il cursore dalla casella degli strumenti e si chiuderà automaticamente. Organizzare la casella di testo e il pulsante sul form per un aspetto gradevole.

5

Fare doppio clic sul controllo "Button1" per aprire la finestra di codice. Visual Basic verrà posizionare il cursore tra la prima e l'ultima riga del gestore dell'evento click del pulsante. Copiare e incollare il codice seguente in modo che il prodotto finito è simile al seguente:

Public Class Form1

Dim TextboxFlagHighlightBoolean As Boolean = False

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

If TextBox1.Text > "" Then

If TextboxFlagHighlightBoolean Then

TextBox1.ForeColor = Color.Black

TextBox1.Font = New System.Drawing.Font("", 8,

Drawing.FontStyle.Regular)

TextboxFlagHighlightBoolean = False

Else

TextBox1.ForeColor = Color.Red

TextBox1.Font = New System.Drawing.Font("", 8,

Drawing.FontStyle.Bold)

TextboxFlagHighlightBoolean = True

End If

Else

MessageBox.Show("Please enter a number in the textbox")

End If

End Sub

End Class

Questo codice dichiara una bandiera con l'istruzione "Dim" che memorizza lo stato dell'evidenziazione del controllo TextBox. Se è "False", facendo clic sul pulsante cambia il colore del testo del controllo TextBox a rosso e cambia il tipo di carattere in grassetto. Se il flag è "vero" un clic sul pulsante cambia il colore del testo al nero e il tipo di carattere per tornare normale.

6

Fare clic sulla voce di menu "Debug" nella parte superiore dello schermo per testare l'applicazione. Quando si apre, immettere un numero nella casella di testo e fare clic su "Button1." Lo sfondo dovrebbe cambiare al rosso. Fare di nuovo clic e lo sfondo cambia indietro in bianco.