Πώς να αποκτήσετε πρόσβαση Textbox περικοπή δεδομένων

Έχοντας τη γνώση να χειριστούν τα δεδομένα εισάγονται από τους χρήστες σε ελέγχους Πλαίσιο κειμένου να κάνετε την αίτησή σας πιο δυναμική . Μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται συνήθως για την ανάπτυξη εφαρμογών των Windows είναι το Microsoft Visual Basic.NET ( VB.NET ) . Στην VB.NET , μπορείτε να δημιουργήσετε ένα έργο που χρησιμοποιεί ένα στοιχείο ελέγχου πλαισίου κειμένου και περικόψτε τα δεδομένα που εισάγει ο χρήστης , χρησιμοποιώντας τον κωδικό VB.NET . Ένα στοιχείο ελέγχου πλαισίου κειμένου χρησιμοποιείται συνήθως σε ένα Graphical User Interface ( GUI ) για να πάρετε τα δεδομένα που εισάγει ο χρήστης . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express , και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . 2

Επιλέξτε " Windows Forms Application " και κάντε κλικ στο " OK".
εικόνων 3

διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου .
Η

4 κάντε διπλό κλικ στο " πλαίσιο κειμένου " για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου κειμένου .
5

διπλό κλικ " πλαίσιο λίστας " για να προσθέσετε ένα στοιχείο ελέγχου πλαισίου λίστας .
Η 6

διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " .
Η

7 Πατήστε το πλήκτρο " Ctrl " και "A " και πιέστε "Διαγραφή " για να αφαιρέσετε όλα τα υπάρχοντα κώδικα .
8

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να περικόψετε το string που εγγράφονται στο πλαίσιο κειμένου με κόμματα . Η σειρά θα προστεθεί στον έλεγχο List Box :

Δημόσιας Τάξης Φόρμα1

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

Dim dataEnterd Όπως String Dim

commaPos As Integer

Dim xCnt As Integer

dataEnterd = Me.TextBox1.Text.ToString.Trim

Αν dataEnterd.Contains ( " , ") Στη συνέχεια

κάνετε Ενώ dataEnterd <> " "

commaPos = InStr ( dataEnterd , " , " , CompareMethod.Text )

Αν commaPos <> 0 τότε

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

dataEnterd = dataEnterd.Substring ( commaPos )

Else

ListBox1.Items.Add ( dataEnterd )

dataEnterd = " "

End If

xCnt + = 1

Loop

Else

MsgBox ( "Πληκτρολογήστε ένα string με κόμματα . " )

End If

End Sub

End Class
Τετάρτη 9

Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, πληκτρολογήστε " αυτό , είναι , ένα , string" στο πλαίσιο κειμένου . Κάντε κλικ στο " Button1 ".
Η
εικόνων