Å ha kunnskap til å manipulere data angitt av brukere i tekstbokskontrollene kan gjøre programmet mer dynamisk . En datamaskin programmeringsspråk som vanligvis brukes til å utvikle Windows-applikasjoner er Microsoft Visual Basic.NET ( VB.NET ) . I VB.NET , kan du opprette et prosjekt som bruker en tekstboks kontroll og avkorte data som brukeren ved hjelp av VB.NET kode . En tekstboks kontroll er ofte brukt i et grafisk brukergrensesnitt ( GUI ) for å få data som skrives av en bruker. Du trenger
Microsoft Visual Basic Express
Vis flere instruksjoner
en

start Microsoft Visual Basic Express , og klikk "New Project ... " på den venstre ruten på skjermen .
2

Velg "Windows Forms Application , " og klikk " OK ".
3

Dobbeltklikk på " Button" på " Toolbox" -panelet for å legge til en ny knapp kontroll.
4

Dobbeltklikk på " TextBox " for å legge til en ny tekstboks kontroll.
5

Dobbeltklikk " liste- " for å legge en liste kontroll.
6

Dobbeltklikk på " Button1 " for å åpne " Form1.vb " modulen.
7

Trykk " Ctrl" og "A ", og trykk "Delete " for å fjerne all eksisterende kode .
8

Kopier og lim inn koden nedenfor til å avkorte strengen inn i tekstboksen med komma. Strengen vil bli lagt til listen Box kontroll : en

Public Class Form1

Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Click

Dim dataEnterd Som String

Dim commaPos As Integer

Dim xCnt As Integer

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

gjøre mens dataEnterd < > " "

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

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

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

ListBox1.Items.Add ( dataEnterd )

dataEnterd = ""

End If

xCnt + = 1

Loop

Else

MsgBox ( "Skriv inn en streng med komma. ")

End If

End Sub

End Class

9

Trykk " F5 " for å kjøre programmet , og skriv " Dette er , a, streng" i tekstboksen . Klikk " Button1 . "