Avez-vous déjà pensé à concevoir votre propre navigateur graphique ? En fait, ce n’est pas difficile du tout, nous pouvons facilement utiliser la programmation VB pour y parvenir.
Le processus de conception du navigateur graphique est le suivant :
1. Démarrez VB, créez un nouveau fichier de projet standard et sur le formulaire Form1, modifiez la légende de Form1 = "Graphic Browser".
2. Ajoutez les contrôles de lecteur, de dossier et de fichier au formulaire à partir de la boîte à outils. Le nom du lecteur est Diver1, le nom du dossier est Dir1 et le nom du fichier est File1, puis ajustez les positions appropriées.
3. Ajoutez le contrôle PictureBox au formulaire à partir de la boîte à outils. Le nom du PictureBox est Picture1 et ajustez la position, la hauteur et la largeur appropriées.
4. Dans la boîte à outils, ajoutez le contrôle CommandButton au formulaire. Le nom du CommandButton est Command1 et ajustez la position, la hauteur et la largeur appropriées.
5. Double-cliquez sur la souris dans l'espace vide du formulaire pour faire apparaître la fenêtre d'édition du code et saisissez le code suivant :
PRivateSubForm_Load()
'Définir le lecteur et le répertoire où se trouve l'application comme lecteur et répertoire actuels
'L'application est l'objet d'application actuel
Drive1.Drive = App.Path
Dir1.Path=App.Path
Fichier1.Pattern="*.bmp;*.ico;*.wmf"
FinSub
6. Double-cliquez sur le contrôle du pilote sur le formulaire pour afficher la fenêtre d'édition du code et saisissez le code suivant :
PrivateSubDrive1_Change()
'Lorsque le lecteur sélectionné change, mettez à jour le contenu de la zone de liste du répertoire ; lorsque le répertoire change, déclenchez l'événement Change de la zone de liste du répertoire.
Dir1.Path=Lecteur1.Lecteur
FinSub
7. Double-cliquez avec la souris sur le contrôle dossier du formulaire pour faire apparaître la fenêtre d'édition du code, saisissez le code suivant :
PrivateSubDir1_Change()
'Lorsque le répertoire change, mettez à jour le contenu de la zone de liste des fichiers
Fichier1.Chemin = Rép1.Chemin
FinSub
8. Double-cliquez avec la souris sur le contrôle fichier du formulaire pour faire apparaître la fenêtre d'édition du code, saisissez le code suivant :
PrivateSubFile1_Click()
'Répertoire racine, le dernier caractère du chemin est une barre oblique inverse "/", tel que : C:/
'Lorsqu'il s'agit d'un répertoire non racine, le dernier caractère du chemin n'est pas une barre oblique inverse "/"
'Pour obtenir le nom complet du fichier, vous devez ajouter une barre oblique inverse "/" à la fin du chemin
IfRight(File1.Path,1)〈〉"/"Alors
'Lorsqu'il s'agit d'un répertoire non racine, ajoutez une barre oblique inverse "/" à la fin du chemin
tempstring=File1.Path&&"/"&&File1.FileName
Autre
tempstring=File1.Path&&"/"&&File1.FileName
FinSi
'Charger les fichiers sélectionnés
Form1.Picture1.Picture=LoadPicture(tempstring)
FinSub
9. Double-cliquez sur le champ "Fermer" du formulaire pour faire apparaître la fenêtre d'édition du code et saisissez le code suivant :
PrivateSubCommand1_Click()
Décharge-moi
Fin
FinSub
Enregistrez le fichier et exécutez-le, et votre propre navigateur graphique est prêt. ->