|
A Visual Basic InputBox fournit un moyen pour le développeur de recueillir les commentaires de l'utilisateur et affecter le résultat à une variable pour une utilisation dans d'autres parties d'une application . Au lieu d' une image graphique , un mot de code Visual Basic rend un résultat InputBox.The d'une variable InputBox pourrait faire partie d'une base de données d'adresses , une application de feuille de temps ou autre . Il pourrait apparaître dans la rétroaction à l'utilisateur si le InputBox demande quelque chose comme " Quel est ton nom », et , lorsque l'utilisateur répond , l'ordinateur peut répondre «Bonjour [ YourName ] . Comment allez-vous aujourd'hui ? " La réponse fournie par l'utilisateur remplace la variable représenté ici entre parenthèses. Instructions
1 Ouvrez un nouveau projet Visual Basic en sélectionnant " EXE standard " de la liste des modèles qui apparaît lorsque vous chargez pour la première Visual Basic. Dans l'écran suivant , double- cliquez sur le contrôle "Label" dans la "boîte à outils " situé sur la gauche de l'écran. Cela met une boîte " Label1 " sur la forme dans le centre de l'écran. Utilisez les cases minuscules sur les frontières de cette zone pour agrandir la boîte.
2 Cliquez sur ce nouveau label pour afficher ses propriétés dans le panneau de droite . Double-cliquez sur la propriété " Caption" pour mettre en évidence la légende par défaut , " Label1 ". Appuyez sur la touche "Suppr " de votre clavier pour supprimer la légende.
3 Double -cliquez sur l' " CommandButton ", un petit rectangle dans la " boîte à outils " pour ajouter ceci à la forme . Utilisez la liste des propriétés pour changer la légende par défaut, " Command1 " à " Afficher InputBox . " Double -cliquez sur le nouveau bouton nommé pour ouvrir la fenêtre de code.
4 Type de dans le code ci-dessous entre le deux lignes déjà présentes : " Private Sub Command1_Click ( )" et " End Sub ".
YourName Dim, nOANSWER Comme StringDim LocX , LocY que l'emplacement de l'écran IntegerLocX = 6500 ' en twips . Il ya 1 440 twips à un inchLocY = 4500 ' changer les numéros en fonction de votre needsLabel1.Caption = ""' cette blancs la légende à chaque fois que le programme est runNoAnswer = " Voulez-vous s'il vous plaît me dire votre nom ? " YourName = InputBox ( "Quel est votre prénom ? ", " Création d'un InputBox ", LocX , LocY ) ' les deux virgules dans une rangée sur la ligne ci-dessus sont vitalIf YourName = "" ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Bonjour, " & YourName & ". Comment allez-vous aujourd'hui ? "End If
5 Appuyez sur" F5 " pour exécuter le programme .
|
