Ouvrez un nouveau projet Visual Basic en sélectionnant "EXE standard" à partir de la liste des modèles qui apparaît lorsque vous chargez première Visual Basic. Dans l'écran suivant, double-cliquez sur le "Étiquette" contrôle dans le "ToolBox" situé sur la gauche de l'écran. Cela place un "Label1" case sur le formulaire dans le centre de l'écran. Utilisez les petites boîtes sur les frontières de cette boîte pour agrandir la boîte.
Cliquez sur ce nouveau label pour afficher ses propriétés dans le panneau sur la droite. Double-cliquez sur le "Légende" propriété pour mettre en évidence la légende par défaut, "Label1." Appuyez sur la "Effacer" sur votre clavier pour supprimer la légende.
Double-cliquez sur le "De commande," un petit rectangle dans la "Boîte à outils" pour ajouter ceci à la forme. Utilisez la liste des propriétés à changer la légende par défaut, "Command1" à "Afficher InputBox." Double-cliquez sur le nouveau bouton nommé pour ouvrir la fenêtre de code.
Entrez le code ci-dessous entre les deux lignes déjà présentes: "Private Sub Command1_Click ()" et "End Sub."
Dim VotreNom NOANSWER As String
Dim LocX, LocY As Integer
LocX = 6500 'emplacement de l'écran en twips. Il existe de 1,440 pouce à twips
LocY = 4500 «changer les numéros en fonction de vos besoins
Label1.Caption = "" 'Cette efface la légende chaque fois que le programme est exécuté
NOANSWER = "Voulez-vous s'il vous plaît ne pas me dire votre nom?"
VotreNom = InputBox ("Quel est votre prénom?", "Création d'un InputBox",, LocX, LocY)
'Les deux virgules dans une rangée à la ligne ci-dessus sont indispensables
Si VotreNom = "" Puis
Label1.Caption = NOANSWER
Autre
Label1.Caption = "Bonjour, " & Votre nom & ". Comment allez-vous aujourd'hui?"
End If
Presse "F5" pour exécuter le programme.