Avere la conoscenza di manipolare i dati immessi dagli utenti nei controlli casella di testo può rendere l'applicazione più dinamico . Un linguaggio di programmazione comunemente usato per sviluppare applicazioni di Windows è Microsoft Visual Basic.NET ( VB.NET ) . In VB.NET , è possibile creare un progetto che utilizza un controllo Casella di testo e di dati troncati inseriti dall'utente utilizzando il codice VB.NET . Un controllo casella di testo viene comunemente usato in una Graphical User Interface ( GUI) per ottenere i dati immessi da un utente . Cose che ti serviranno
Microsoft Visual Basic Express
Mostra più istruzioni
1

Avviare Microsoft Visual Basic Express e fare clic su " Nuovo progetto ... " nel riquadro di sinistra del vostro schermo .
2

Seleziona " Applicazione Windows Form , " e fare clic su " OK ".
3

doppio clic su " Pulsante " nel riquadro " Casella degli strumenti " per aggiungere un nuovo controllo pulsante .
4

doppio clic su " TextBox " per aggiungere un nuovo controllo casella di testo .
5

doppio clic " ListBox " per aggiungere un controllo casella di riepilogo .
6

doppio clic su " Button1 " per aprire il modulo " Form1.vb " .
7

Premere " Ctrl " e "A ", e premere il tasto " Elimina" per rimuovere tutto il codice esistente .
8

Copia e incolla il codice sottostante per troncare la stringa inserita nella casella di testo con una virgola. La stringa viene aggiunto alla casella di riepilogo :

Public Class Form1

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click < br >

Dim dataEnterd As String Dim

commaPos As Integer Dim

xCnt As Integer

dataEnterd = Me.TextBox1.Text.ToString.Trim
< p > Se dataEnterd.Contains ( " , ") Then

fare Mentre dataEnterd < > " "

commaPos = InStr ( dataEnterd , "," , CompareMethod.Text ) per < p > Se commaPos < > 0 Then

ListBox1.Items.Add ( dataEnterd.Substring ( 0 , commaPos ) ) per

dataEnterd = dataEnterd.Substring ( commaPos ) per < p > Else

ListBox1.Items.Add ( dataEnterd ) per

dataEnterd = " " End If

xCnt + = 1

loop

Else

MsgBox ( " Inserire una stringa con una virgola. " ) per

End If End Sub

End Class
Pagina 9

Premere " F5 " per eseguire il programma , quindi digitare " Questo , è , una , stringa" nella casella di testo . Fare clic su " Button1 ".