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
Dim dataEnterd As String Dim
commaPos As Integer Dim
xCnt As Integer
dataEnterd = Me.TextBox1.Text.ToString.Trim
Se dataEnterd.Contains ( " , ") Then
fare Mentre dataEnterd < > " "
commaPos = InStr ( dataEnterd , "," , CompareMethod.Text ) per
Se commaPos < > 0 Then
ListBox1.Items.Add ( dataEnterd.Substring ( 0 , commaPos ) ) per
dataEnterd = dataEnterd.Substring ( commaPos ) per
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 ".
Programmazione © www.354353.com