1. Einführung
Wie wir alle wissen, bietet Visual Basic 5.0 (VB5.0) vollständige Tools und Mechanismen, die zur Implementierung fortgeschrittener Windows-Programme erforderlich sind, und seine leistungsstarken Funktionen wurden von der Mehrheit der Softwareentwickler erkannt. Der Explorer spielt eine weitere wichtige Rolle bei der schnellen Entwicklung von heute Seine unauslöschliche Wirkung, seine Fähigkeit, HTML zu verarbeiten, beeindruckt jeden Benutzer. Wenn VB5.0 und Explorer kombiniert werden, ist dies nicht nur das i-Tüpfelchen, sondern sogar noch leistungsfähiger. Theoretisch bietet VB5.0 verschiedene Aspekte des Fachwissens für das Internet, und der Explorer kann VBScript verwenden, um seine Funktionen zu erweitern. Bei der tatsächlichen Implementierung werden Programmierer jedoch auf Probleme der einen oder anderen Art stoßen. Jetzt geben wir ein Beispiel, das erfolgreich debuggt wurde Mit dieser Methode können Benutzer Explore an einer beliebigen Stelle in ihrem VB5.0-Programm aufrufen, um die Verwendung von „Hilfedateien“ oder „Hyperlinks“ zu erleichtern.
2. Implementierungsmethode
Wählen Sie zunächst „Projekt/Komponenten“ im VB5.0-Menü, dann die beiden Steuerelemente MicrosoftInternetcontrols und MicrosoftcommonDialogControl5.0 aus, um die Symbole „WebBrowser“ und „Commodialog“ zur Symbolleiste hinzuzufügen Fügen Sie abschließend im Form1-Formular, wie in Abbildung 1 dargestellt, zwei Beschriftungen ein, einen Text, drei Befehle und einen CommoDialog. Die Beschriftungen der drei Befehle lauten „Durchsuchen“, „Öffnen Sie HTM“ und „Abbrechen“. Zum Schreiben ist es praktisch, den Commodialog als cd zu bezeichnen.
Im Programm wird ein Internet Explorer-Typziel ii generiert, indem die Methode ii.Navigatetext1, navNoreadfromcache, aufgerufen wird. Der Name der HTML-Datei wird durch text1.text angegeben, d. h. die URL wird durch Text1 angegeben kann nicht nur VB5 verwenden Das .0-Programm kann das Explorer-Fenster frei öffnen, und die URL und das Erscheinungsbild des Fensters werden ebenfalls von VB5.0 bestimmt. Um es übersichtlicher zu machen, entfernen Sie die StandardButtons, AddressBar, Links und TextLabels in der Ansicht/Optionen/Allgemein des Explorers.
Unter anderem kann die URL direkt eingegeben oder durch Durchsuchen ausgewählt werden.
3. Vorgehensweise
Dimii
PRivateSubCommand1_Click()
Cd.Flags=&H200
Cd.Filter="HTMLfiles(*.htm)|*.htm|TextFiles"&_
"(*.txt)|*.txt|Alle Dateien(*.*)|*.*"
Cd.ShowOpen
Text1=Cd.dateiname
Command2.Visible=True
EndSub
PrivateSubCommand2_Click()
Setii=GetObject("","INTERNETEXPLORER.application")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Top=0
ii.Links=0
ii.Width=Form1.Width
ii.Height=Bildschirmhöhe
EndSub
PrivateSubCommand3_Click()
Text1=""
Entlade mich
EndSub
PrivateSubForm_Load()
Form1.Top=Screen.Height/4
Form1.Left=0
Form1.Width=Bildschirm.Breite
Form1.Height=Screen.Height/2
Form1.BackColor=QBColor(2)
Label1.BackStyle=0
Label1.FontName="Heold"
Label1.FontSize=14
Label1.ForeColor=QBColor(7)
Label2.BackStyle=0
Label2.Caption="HTML"
Label2.FontName="brushscript"
Label2.FontSize=24
Command2.Visible=False
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Top=0
ii.Links=0
ii.Width=Form1.Width
ii.Height=Bildschirmhöhe
EndIf
EndSub->