Aprire Visual Basic 2008 e nella pagina iniziale , fare clic sul collegamento "Progetto" a destra di "Crea : " . Opzione
2
Cambiare il nome applicazione predefinita da " WindowsApplication1 " a " HighlightTextbox ", quindi fare doppio clic sull'icona "Windows Forms Application" . Si apre la finestra di progettazione di Visual Basic con un nuovo modulo vuoto di Windows.
3
Posizionare il cursore sulla scheda " Strumenti " nella parte superiore sinistra della finestra di progettazione per aprire la casella degli strumenti menu.
4
Fare doppio clic sul controllo " TextBox " e il controllo " Button " per aggiungere un TextBox e un pulsante al form . Arrotolare il cursore fuori dalla Casella degli strumenti e si chiuderà automaticamente . Disporre la TextBox e il pulsante sul form per un aspetto gradevole .
5 Fare doppio clic sul controllo " Button1 " per aprire la finestra del codice . Visual Basic verrà posizionare il cursore tra la prima e l'ultima riga del gestore eventi del pulsante del mouse . Copiare e incollare il seguente codice in modo che il prodotto finito si presenta così:
Public Class Form1 Dim
TextboxFlagHighlightBoolean As Boolean = False
Private Sub Button1_Click ( ByVal sender As Sistema . Object, ByVal e As
System.EventArgs ) Handles Button1.Click
TextBox1.Text > "" Then
TextboxFlagHighlightBoolean Poi
TextBox1.ForeColor = Color.Black
TextBox1.Font = New System.Drawing.Font ( " " , 8 , Stati
Drawing.FontStyle.Regular ) per
TextboxFlagHighlightBoolean = False
Else
TextBox1.ForeColor = Color.Red
TextBox1.Font = New System.Drawing.Font ( " " , 8 , Stati
Disegno . FontStyle.Bold ) per
TextboxFlagHighlightBoolean = True
End If
Else
MessageBox.Show ( "Inserire un numero nella casella di testo " ) < br
End > Se
End Sub End Class
Questo codice dichiara una bandiera con l'istruzione " Dim " che memorizza lo stato delle evidenziazione della TextBox . Se è " False ", cliccando sul pulsante cambia il colore del testo della TextBox al rosso e cambia il font in grassetto. Se il flag è "vero " di un pulsante del mouse cambia il colore del testo torna al nero e il font torna al normale .
6
Cliccare sulla voce di menu "Debug " nella parte superiore dello schermo per testare l'applicazione. Quando si apre, digitare un numero nella casella di testo e fare clic su " Button1 ". Il fondo dovrebbe cambiare in rosso. Fare clic di nuovo e lo sfondo cambia torna al bianco .
Programmazione © www.354353.com