|
Visual Basic ListView est un contrôle qui affiche les données sous forme de liste . Le ListView peut afficher des informations comme une liste de petites ou grandes icônes , une petite icône avec le texte à droite de celui-ci , ou un format de rapport dans lequel le texte de chaque " sous-élément » s'affiche à droite dans chaque en-tête de colonne. Ces points de vue peuvent sembler familier car c'est ainsi que l'Explorateur Windows affiche dossier et le fichier d'informations. Les informations affichées dans la ListView peut être consulté , choisi , re- commandé , mises à jour ou exportés vers une autre application comme Notepad ou Excel. Instructions
1 Ouvrez un nouveau projet EXE standard Visual Basic . Ajoutez l'objet ListView à la boîte à outils en cliquant sur " projeter", " Composants " et en cliquant sur la case à côté de " Microsoft Windows Common Controls 6.0 (SP6 ) . " Sélectionnez l'objet ListView à partir de la boîte à outils et cliquez sur le défaut " Form1. " Renommer " Form1 " à quelque chose de plus significatif comme " frmMain " et le ListView nouvellement créée pour " lvCustomer . "
2 Ajouter un bouton pour " frmMain " et définir la légende « d'exporter ». Dans le" Form_Load " événement , peuplent " lvCustomer " avec les données des clients , soit par codage en dur ou la récupération des données à partir d'une base de données. Ajouter les en-têtes de colonne de la même façon . Un exemple simple d'ajouter un en-tête de colonne est " lvCustomer.ColumnHeaders.Add 1, " NomCli "," Nom ". " Cette ligne de code indique que la première tête de colonne aura une touche de " NomCli » et une valeur affichée à l'utilisateur de " Nom ". un exemple simple d'ajouter une ligne de données à la « lvCustomer " est " lvCustomer.ListItems.Add 1 ," John Smith " . " Cette ligne de code crée une ligne de données dans la première colonne , sans clé et une valeur de " John Smith ".
3 Récupérer les en-têtes de colonnes en parcourant les articles ColumnHeader ListView . For i = 1 To = lvCustomer.ColumnHeaders.CountsHeader sHeader + lvCustomer.ColumnHeaders.Item ( i) . texte + boucles de code vbTabNextThis travers chaque ColumnHeader et stocke la valeur de la variable " sHeader " chaîne suivie d'un caractère de tabulation .
4 Créer un fichier texte pour stocker les données ColumnHeader avec Microsoft FileSystemObject . Le code suivant crée un fichier texte nommé " output.txt " et enregistre la valeur de la variable chaîne " sHeader " à ce fichier : Dim FSO As New FileSystemObjectSet newFile = FSO.CreateTextFile ("c: \\ temp \\ sortie . txt " , True, False ) newFIle.Write ( sHeader )
5 Ouvrez le contenu du nouveau " output.txt " fichier dans le bloc-notes avec la commande" Shell ": dblNotePadID = Shell ( "Notepad c: \\ temp \\ output.txt " )
|
