Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako získať prístup textové pole skrátenie dát

Mať vedomosti manipulovať dáta zadané užívateľmi v ovládacie prvky textové pole môže vaše aplikácie dynamickejšie . Počítačový programovací jazyk bežne používa pre vývoj aplikácií pre Windows je Microsoft Visual Basic.NET ( VB.NET ) . Vo VB.NET , môžete vytvoriť projekt , ktorý používa ovládací prvok textové pole a skrátiť údaje zadané užívateľom pomocou VB.NET kódu . Ovládací prvok textové pole sa bežne používa v grafickom užívateľskom rozhraní ( GUI ) , aby dáta zadané užívateľom . Veci , ktoré budete potrebovať v Microsoft Visual Basic Express
Zobraziť ďalšie inštrukcie Cestuj 1

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 . "

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené