ha kunskap för att manipulera data som anges av användare i textrutekontroller kan göra din ansökan mer dynamisk . En dator programmeringsspråk som ofta används för att utveckla Windows-program är Microsoft Visual Basic.NET ( VB.NET ) . I VB.NET kan du skapa ett projekt som använder en kontroll textruta och uppgifter trunkera anges av användaren med hjälp av VB.NET kod . En textruta kontroll används vanligen i ett grafiskt användargränssnitt ( GUI ) för att få uppgifter som en användare . Saker du behöver
Microsoft Visual Basic Express
Visa fler instruktioner
1
Starta Microsoft Visual Basic Express , och klicka på " Nytt projekt ... " i den vänstra rutan på skärmen .
2
Välj " Windows Forms Application " och klicka på " OK . " Addera 3
Dubbelklicka på " Button " på " Toolbox " rutan för att lägga till en ny knapp kontroll .
4
Dubbelklicka på " TextBox " för att lägga till en ny kontroll Textruta .
5
Dubbelklicka på " listruta " för att lägga till en kontroll listrutan .
6
Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul .
7
Tryck " Ctrl " och " A " och tryck på " Delete " för att ta bort all befintlig kod .
8
Kopiera och klistra in koden nedan för att trunkera strängen in i textrutan med kommatecken . Strängen läggs till i listrutan kontroll :
Public Class Form1
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
Dim dataEnterd As String
Dim commaPos As Integer
Dim xCnt As Integer
dataEnterd = Me.TextBox1.Text.ToString.Trim
Om dataEnterd.Contains ( " , ") Then
Do While dataEnterd < > " "
commaPos = InStr ( dataEnterd , "," , CompareMethod.Text ) katalog
Om commaPos < > 0 Then
ListBox1.Items.Add ( dataEnterd.Substring 0 ( , commaPos ) ) katalog
dataEnterd = dataEnterd.Substring ( commaPos ) katalog
Else
ListBox1.Items.Add ( dataEnterd ) katalog
dataEnterd = " "
End If
xCnt + = 1
loop
Else
MsgBox ( " Ange en sträng med kommatecken . " ) katalog
End If
End Sub
End Class
9
Tryck " F5 " för att köra programmet , skriv " Detta är en , sträng " i textrutan . Klicka på " Button1 . " Addera
