1. Introduction
Comme nous le savons tous, Visual Basic 5.0 (VB5.0) fournit les outils et mécanismes complets nécessaires à la mise en œuvre de programmes Windows avancés, et ses fonctions puissantes ont été reconnues par la majorité des développeurs de logiciels ; Explorer joue un autre rôle important dans le développement rapide des logiciels d'aujourd'hui. Internet. Son effet indélébile, sa capacité à traiter le HTML impressionne tous les utilisateurs. Si VB5.0 et Explorer sont combinés, ce sera non seulement la cerise sur le gâteau, mais encore plus puissant. Théoriquement, VB5.0 offre divers aspects d'expertise pour Internet, et Explorer peut utiliser VBScript pour étendre ses fonctions. Cependant, dans la mise en œuvre réelle, les programmeurs rencontreront des problèmes d'une sorte ou d'une autre. Nous donnons maintenant un exemple qui a été débogué avec succès. . En suivant cette méthode, les utilisateurs peuvent appeler Explore n'importe où dans leur programme VB5.0 pour faciliter l'utilisation des « fichiers d'aide » ou des « hyperliens ».
2. Modalités de mise en œuvre
Sélectionnez d'abord "Projet/Composants" dans le menu VB5.0, puis sélectionnez les deux contrôles MicrosoftInternetcontrols et MicrosoftcommonDialogControl5.0 pour ajouter les icônes WebBrowser et Commodialog à la barre d'outils, puis Enfin, sur le formulaire Form1, comme le montre la figure 1, introduisez deux étiquettes, un texte, trois commandes et un CommoDialog. Les légendes des trois commandes sont « Parcourir », « Ouvrir HTM » et « Annuler », qui sont utilisées. pour l'écriture. Il est pratique de nommer le Commodialog comme cd.
Dans le programme, une cible ii de type Internet Explorer est générée. En appelant la méthode ii.Navigatetext1, navNoreadfromcache, le nom du fichier HTML est donné par text1.text, c'est-à-dire que l'URL est donnée via Text1. je ne peux pas seulement utiliser VB5 Le programme .0 peut ouvrir librement la fenêtre de l'Explorateur, et l'URL et l'apparence de la fenêtre sont également déterminées par VB5.0. Pour le rendre plus clair, supprimez les StandardButtons, AddressBar, Links et TextLabels dans la vue/options/générale de l'Explorateur.
Parmi eux, l'URL peut être saisie directement ou sélectionnée via la navigation.
3. Procédure
Dimi
PRivateSubCommand1_Click()
Cd.Flags=&H200
Cd.Filter="Fichiers HTML(*.htm)|*.htm|FichiersTexte"&_
"(*.txt)|*.txt|Tous les fichiers(*.*)|*.*"
Cd.ShowOpen
Text1=Cd.nom de fichier
Command2.Visible=Vrai
FinSub
PrivateSubCommand2_Click()
Setii=GetObject("","INTERNETEXPLORER.application")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Haut=0
ii.Gauche=0
ii.Largeur=Form1.Largeur
ii.Hauteur = Écran.Hauteur
FinSub
PrivateSubCommand3_Click()
Texte1=""
Décharge-moi
FinSub
PrivateSubForm_Load()
Form1.Top=Écran.Hauteur/4
Form1.Gauche=0
Form1.Width=Écran.Largeur
Form1.Hauteur=Écran.Hauteur/2
Form1.BackColor=QBColor(2)
Étiquette1.BackStyle=0
Label1.FontName="Heold"
Étiquette1.FontSize=14
Label1.ForeColor=QBColor(7)
Étiquette2.BackStyle=0
Étiquette2.Caption="HTML"
Label2.FontName="brushscript"
Étiquette2.FontSize=24
Command2.Visible=Faux
FinSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Haut=0
ii.Gauche=0
ii.Largeur=Form1.Largeur
ii.Hauteur = Écran.Hauteur
FinSi
FinSub->