Avoir les connaissances nécessaires pour manipuler des données saisies par les utilisateurs dans les contrôles de zone de texte peut rendre votre application plus dynamique . Un langage de programmation informatique couramment utilisé pour développer des applications Windows est Microsoft Visual Basic.NET ( VB.NET ) . Dans VB.NET, vous pouvez créer un projet qui utilise les données de tronquer les entrées par l'utilisateur en utilisant le code VB.NET et un contrôle Zone de texte . Un contrôle de zone de texte est couramment utilisé dans une interface utilisateur graphique (GUI ) pour obtenir les données saisies par un utilisateur. Choses que vous devez
Microsoft Visual Basic Express
Voir Plus Instructions
1
Démarrez Microsoft Visual Basic Express, puis cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran .
2
Sélectionnez " Application Windows Forms " et cliquez sur "OK".
3
Double-cliquez sur "Button" sur le volet " boîte à outils " pour ajouter un nouveau bouton de commande .
4
Double -cliquez sur " TextBox " pour ajouter un nouveau contrôle zone de texte .
5
Double -cliquez sur " ListBox " pour ajouter un contrôle de zone de liste.
6
Double -cliquez sur " Button1 " pour ouvrir le "Form1.vb" module .
7
Appuyez sur "Ctrl " et "A", et appuyez sur «Supprimer» pour enlever tout le code existant.
8
Copier et coller le code ci-dessous pour tronquer la chaîne entrée dans la zone de texte avec des virgules. La chaîne sera ajoutée à la liste de contrôle de la boîte:
Public Class Form1
Private Sub Button1_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button1.Click < br >
dataEnterd As cordes
commaPos As Integer
XCNT As Integer
dataEnterd = Me.TextBox1.Text.ToString.Trim
< p > Si dataEnterd.Contains ( "," ), puis
faire pendant dataEnterd <> ""
commaPos = InStr ( dataEnterd , "," , CompareMethod.Text )
< p> Si commaPos < > 0 Then
ListBox1.Items.Add ( dataEnterd.Substring (0, commaPos ) )
dataEnterd = dataEnterd.Substring ( commaPos )
< p > Else
ListBox1.Items.Add ( dataEnterd )
dataEnterd = ""
End If
XCNT + = 1
boucle
Else
MsgBox (" Tapez une chaîne avec des virgules. " )
End If End Sub
End Class
9
Appuyez sur " F5" pour exécuter votre programme , puis tapez «Ceci, est , a, chaîne" dans la zone de texte . Cliquez sur " Button1 ".
