Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Express , a kliknite na tlačidlo " Nový projekt ... " na ľavom paneli obrazovky .
2
Vyberte " Windows Forms , " a kliknite na " OK " .
3
Double - kliknite na " tlačidlo " na " Toolbox " paneli pridať nový ovládací prvok tlačidla .
4
Double - kliknite na " textové pole " pridať nový ovládací prvok textové pole .
5
Double - click " listbox " pridať ovládací prvok zoznam .
6
Double - kliknite na " Button1 " otvorte modul " Form1.vb " .
7
Stlačte tlačidlo " Ctrl " a " , " a stlačte tlačidlo " Delete " odstrániť všetky existujúce kód .
8
skopírujte a vložte nižšie uvedený kód skrátiť reťazec zadaný do textového poľa s čiarkami . Reťazec bude pridaný do ovládacieho prvku zoznamu :
public class Form1
Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Click
Dim dataEnterd As String Dim
commaPos As Integer
Dim xCnt As Integer
dataEnterd = Me.TextBox1.Text.ToString.Trim
Ak dataEnterd.Contains ( " , " ) , potom
robiť , keď dataEnterd < > " "
commaPos = Instru ( dataEnterd , " , " , CompareMethod.Text )
Ak commaPos < > 0 Then
ListBox1.Items.Add ( dataEnterd.Substring ( 0 , commaPos ) )
dataEnterd = dataEnterd.Substring ( commaPos )
Inak
ListBox1.Items.Add ( dataEnterd )
dataEnterd = " "
End If
xCnt + = 1
loop
Else
MsgBox ( " Zadajte reťazec s čiarkami . " )
End If
End Sub
End Class
9
Stlačte " F5 " pre spustenie programu , zadajte " To znamená , že , reťazec " do textového poľa . Kliknite na tlačidlo " Button1 . "