1. 소개
우리 모두 알고 있듯이 Visual Basic 5.0(VB5.0)은 고급 Windows 프로그램을 구현하는 데 필요한 완전한 도구와 메커니즘을 제공하며, 그 강력한 기능은 대다수의 소프트웨어 개발자에 의해 인식되고 있으며 Explorer는 오늘날의 빠른 개발에서 또 다른 중요한 역할을 합니다. 인터넷. 지울 수 없는 효과와 HTML 처리 능력은 모든 사용자에게 깊은 인상을 남깁니다. VB5.0과 Explorer를 결합하면 금상첨화일 뿐만 아니라 훨씬 더 강력해질 것입니다. 이론적으로 VB5.0은 인터넷에 대한 다양한 측면의 전문 지식을 제공하며 Explorer는 VBScript를 사용하여 기능을 확장할 수 있습니다. 그러나 실제 구현에서 프로그래머는 여러 가지 문제에 직면하게 됩니다. 이제 성공적으로 디버깅된 예를 제시하겠습니다. 이 방법에 따라 사용자는 VB5.0 프로그램의 어느 곳에서나 Explore를 호출하여 "도움말 파일" 또는 "하이퍼링크"를 쉽게 사용할 수 있습니다.
2. 시행방법
먼저 VB5.0 메뉴에서 "프로젝트/구성 요소"를 선택한 다음 MicrosoftInternetcontrols 및 MicrosoftcommonDialogControl5.0 두 컨트롤을 선택하여 WebBrowser 및 Commodialog 아이콘을 도구 모음에 추가한 다음 마지막으로 그림 1과 같이 Form1 양식에 두 개의 레이블, 하나의 텍스트, 세 개의 명령 및 하나의 CommoDialog를 도입합니다. 세 명령의 캡션은 사용되는 "찾아보기", "열기 HTM" 및 "취소"입니다. Commodialog의 이름을 cd로 지정하는 것이 편리합니다.
프로그램에서는 ii.Navigatetext1, navNoreadfromcache 메소드를 호출하여 Internet Explorer 유형의 target ii를 생성하고, HTML 파일 이름은 text1.text로 부여됩니다. 즉, URL은 Text1을 통해 부여됩니다. VB5만 사용할 수는 없습니다. .0 프로그램은 탐색기 창을 자유롭게 열 수 있으며 URL 및 창 모양도 VB5.0에 의해 결정됩니다. 더 명확하게 하려면 탐색기의 보기/옵션/일반에서 StandardButtons, AddressBar, Links 및 TextLabels를 제거하십시오.
그 중 URL을 직접 입력할 수도 있고, 브라우징을 통해 선택할 수도 있습니다.
3. 절차
디미이
PRivateSubCommand1_Click()
Cd.Flags=&H200
Cd.Filter="HTML파일(*.htm)|*.htm|텍스트파일"&_
"(*.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.폭=Form1.폭
ii.높이=화면.높이
EndSub
PrivateSubCommand3_Click()
텍스트1=""
언로드미
EndSub
PrivateSubForm_Load()
Form1.Top=화면.높이/4
양식1.왼쪽=0
Form1.Width=화면.폭
Form1.Height=화면.높이/2
Form1.BackColor=QBColor(2)
Label1.BackStyle=0
Label1.FontName="보존"
Label1.FontSize=14
Label1.ForeColor=QBColor(7)
Label2.BackStyle=0
Label2.Caption="HTML"
Label2.FontName="브러시스크립트"
Label2.FontSize=24
Command2.Visible=False
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13그러면
Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
ii.NavigateText1,navNoReadFromCache
ii.표시=1
ii.상단=0
ii.왼쪽=0
ii.폭=Form1.폭
ii.높이=화면.높이
종료
EndSub->