|
En Visual Basic, combos sont souvent utilisés dans les programmes de saisie de données et lors de la présentation des informations via des formulaires en ligne . Par exemple, vous pourriez avoir besoin de choisir parmi une liste d'états ou de codes postaux et en cliquant sur la liste déroulante vous présente les différentes sélections . Une liste déroulante est remplie avec les éléments définis par l'utilisateur qui sont généralement ajoutés par le programmeur lors de la conception , mais vous pouvez également remplir une zone de liste déroulante avec des éléments d'une table de base de données à l'aide de quelques lignes de code. Choses que vous devez
Visual Basic installé Treaties Database fichier
Voir Plus Instructions
1 lancement Visual Basic en cliquant sur le bouton "Démarrer " et sélectionner " Programmes, »« Microsoft Visual Studio », puis« Microsoft Visual Basic [numéro de version]. "
2 sélectionner" EXE standard "sous la boîte de dialogue « Nouveau projet ». Cliquez sur "Ouvrir " pour ouvrir une nouvelle forme .
3 Cliquez sur la commande " zone de liste déroulante " à partir de la boîte à outils sur la gauche et faire glisser vers le formulaire de centre. Définir ses propriétés sous la fenêtre Propriétés de la droite .
4 Ajouter un contrôle " ADO " dans le formulaire. Définissez sa propriété "Visible" à "false".
5 Cliquez sur le bouton " Afficher le code " en haut de la fenêtre de l' Explorateur de projet pour commencer à ajouter du code. Dans l'exemple ci-dessous , les 50 États américains seront ajoutés dans la liste déroulante à partir d'une table de base de données. Lorsque le formulaire est chargé lors de l'exécution , la zone de liste déroulante est remplie automatiquement . Allez à l'événement " Form_Load " et entrez un code similaire à suivante:
conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetSet conn = DBEngine.OpenDatabase ( App.Path & "\\ dbDatabase . mdb ") Set rs = conn.OpenRecordset ( " tblStates " )
Si rs.RecordCount > 0 ThenDo While Not rs.EOFWith Combo1.AddItem rs.Fields ( " USStateName ") End With.MoveNextLoopEnd Si
6 Appuyez sur la touche "F5" de votre clavier pour exécuter le programme.
7 Enregistrez votre projet Visual Basic en cliquant sur " fichier" puis "Enregistrer projet sous »dans le menu.
|
