1. はじめに
周知のとおり、Visual Basic 5.0 (VB5.0) は、高度な Windows プログラムを実装するために必要な完全なツールとメカニズムを提供しており、その強力な機能は、今日の急速な開発においてもう 1 つの重要な役割を果たしているソフトウェア開発者によって認識されています。インターネット。その忘れられない効果、HTML 処理能力はすべてのユーザーに感動を与えます。VB5.0 と Explorer を組み合わせると、さらに強力になります。理論的には、VB5.0 はインターネットに関する専門知識のさまざまな側面を提供し、Explorer は VBScript を使用してその機能を拡張できます。しかし、実際の実装では、プログラマは何らかの問題に遭遇するでしょう。次に、デバッグが成功した例を示します。この方法に従って、ユーザーは VB5.0 プログラムのどこからでも Explore を呼び出して、「ヘルプ ファイル」または「ハイパーリンク」を簡単に使用できます。
2. 実施方法
まず、VB5.0 メニューで [プロジェクト/コンポーネント] を選択し、次に 2 つのコントロール MicrosoftInternetcontrols と MicrosoftcommonDialogControl5.0 を選択して、WebBrowser および Commodialog アイコンをツールバーに追加します。最後に、図 1 に示すように、Form1 フォームに 2 つのラベル、1 つのテキスト、3 つのコマンド、および 1 つの CommoDialog を導入します。3 つのコマンドのキャプションは、「Browse」、「Open HTM」、および「Cancel」です。書き込みの場合は、Commodialog に cd という名前を付けると便利です。
プログラムでは、Internet Explorer タイプのターゲット ii が生成されます。メソッド ii.Navigatetext1、navNoreadfromcache を呼び出すと、HTML ファイル名が text1.text によって与えられます。つまり、URL は Text1 を通じて与えられます。 VB5しか使えない.0 プログラムはエクスプローラー ウィンドウを自由に開くことができ、URL とウィンドウの外観も VB5.0 によって決定されます。わかりやすくするには、エクスプローラーのビュー/オプション/全般にある StandardButtons、AddressBar、Links、および TextLabels を削除します。
このうち、URL は直接入力することも、参照して選択することもできます。
3. 手順
ディミイ
PRivateSubCommand1_Click()
Cd.Flags=&H200
Cd.Filter="HTMLfiles(*.htm)|*.htm|TextFiles"&_
"(*.txt)|*.txt|すべてのファイル(*.*)|*.*"
CD.ショー開く
Text1=Cd.ファイル名
Command2.Visible=True
EndSub
PrivateSubCommand2_Click()
Setii=GetObject("","INTERNETEXPLORER.application")
ii.NavigateText1、navNoReadFromCache
ii.可視=1
ii.トップ=0
ii.左=0
ii.幅=フォーム1.幅
ii.高さ=画面の高さ
EndSub
PrivateSubCommand3_Click()
テキスト1=""
アンロードミー
EndSub
PrivateSubForm_Load()
Form1.Top=画面の高さ/4
フォーム1.左=0
Form1.Width=画面.幅
フォーム1.高さ=画面.高さ/2
Form1.BackColor=QBColor(2)
Label1.BackStyle=0
Label1.FontName="ヘルド"
ラベル1.フォントサイズ=14
Label1.ForeColor=QBColor(7)
Label2.BackStyle=0
Label2.Caption="HTML"
Label2.FontName="ブラシスクリプト"
ラベル2.フォントサイズ=24
Command2.Visible=False
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
ii.NavigateText1、navNoReadFromCache
ii.可視=1
ii.トップ=0
ii.左=0
ii.幅=フォーム1.幅
ii.高さ=画面の高さ
EndIf
EndSub->