Les zones de texte sont principalement utilisés pour recueillir les commentaires des utilisateurs, ou pour afficher le texte soit pré- programmée ou d'une source de base de données. Dans Visual Basic 6.0, le contrôle " TextBox " est utilisé pour dessiner une zone de texte dans un Windows Form . Les propriétés de la commande peut être réglée en fonction des besoins des utilisateurs. Par exemple, vous pouvez définir une zone de texte en lecture seule ou modifiable, avec différentes couleurs de fond, ou avec des barres de défilement . Il est également possible de limiter ce type de saisie de texte , il peut accepter . Apprenez à créer un programme en Visual Basic 6.0 qui limite une entrée de zone de texte à des numéros seulement. Instructions
1

charger le nouvel environnement Visual Basic 6.0 en cliquant sur l'icône de raccourci du programme à partir du bureau ou en sélectionnant dans votre ordinateur " Microsoft Visual Basic 6.0 " dans le menu "Démarrer" .
< Br > 2

Sélectionnez " EXE standard " dans la boîte de dialogue « Nouveau projet », puis cliquez sur le bouton "Ouvrir".
3

Ajouter une zone de texte dans le formulaire en cliquant sur le " «contrôle de la" zone de texte boîte à outils ", puis tirer la taille du texte de la boîte désirée . Assurez-vous qu'elle est assez large pour contenir les caractères saisis par l'utilisateur.
4

Effacer la légende de texte en effaçant le mot " Text1 " à côté du " texte " biens à la fenêtre " Propriétés" dans le droit côté de l'écran .
5

Double- cliquez sur le contrôle de zone de texte pour afficher la fenêtre "Code" . C'est là que vous allez écrire les instructions ou les codes sources que le programme s'exécute au moment de l'exécution . Le code source vous allez écrire va valider les entrées d' utilisateur et accepte uniquement des caractères numériques , sinon il affiche un message d'erreur
6

Insérez le code suivant dans l'événement " Text1_Change ": .

If Not IsNumeric ( Text1.Text ) Puis

MsgBox " saisie numérique uniquement ! " , vbCritical , " Invalid Input "

Text1.Text = ""

End If
7

Appuyez sur F5 ou sélectionner "Exécuter" puis sur "Démarrer" dans le menu pour passer en mode d'exécution .
8

tester le programme pour vérifier qu'il s'agit d' courir comme il se doit . Des caractères alphanumériques de type ou combinaison de lettres et de chiffres dans la zone de texte . Vous devriez voir un message d'erreur vous signalant l'entrée n'est pas valide. Maintenant , tapez uniquement des nombres dans la zone de texte . Si aucun message d' erreur apparaît , le programme s'exécute correctement .
9

Enregistrer le programme en sélectionnant " Enregistrer le projet " dans le menu "Fichier" . Fournir un nom de fichier dans l'espace prévu , puis cliquez sur "Enregistrer".