Dans Visual Basic, zones de liste déroulante 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 sélectionner dans une liste d'états ou de codes postaux et en cliquant sur une liste déroulante vous présente les différentes sélections. Une zone de 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 aussi 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.
Lancez Visual Basic en cliquant sur le "Début" bouton et sélection "Programmes," "Microsoft Visual Studio" et puis "Microsoft Visual Basic [numéro de version]."
Sélectionner "EXE standard" sous le "Nouveau Projet" boite de dialogue. Cliquez "Ouvert" pour ouvrir une nouvelle forme.
Cliquez sur le "ComboBox" le contrôle de la Boîte à outils sur la gauche et faire glisser vers le formulaire de centre. Définir ses propriétés dans la fenêtre Propriétés sur la droite.
Ajoutez un "ADO" contrôler dans le formulaire. Définissez sa "Visible" immeuble à "Faux."
Cliquez sur le "Afficher le code" bouton sur le dessus de la fenêtre Explorateur de projet pour commencer à ajouter du code. Dans l'exemple ci-dessous, les 50 États américains seront ajoutées dans la zone de 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 à la "Form_Load" événement et entrez le code similaire à ce qui suit:
Conn Dim As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = DBEngine.OpenDatabase (App.Path & " DbDatabase.mdb")
Set rs = conn.OpenRecordset ("tblStates")
Si rs.RecordCount gt; 0 Then
Do While Non rs.EOF
Avec Combo1
.AddItem rs.Fields ("USStateName")
End With
.MoveNext
Boucle
End If
Appuyez sur la "F5" sur votre clavier pour exécuter votre programme.
Enregistrez votre projet Visual Basic en cliquant "Fichier" et puis "Enregistrer le projet sous" dans le menu.