1. Введение
Как мы все знаем, Visual Basic 5.0 (VB5.0) предоставляет полный набор инструментов и механизмов, необходимых для реализации передовых программ Windows, а его мощные функции признаны большинством разработчиков программного обеспечения. Explorer играет еще одну важную роль в быстром развитии современных программ; Интернет. Его неизгладимый эффект, его способность обрабатывать HTML впечатляют каждого пользователя. Если объединить VB5.0 и Explorer, это будет не только вишенкой на торте, но и еще более мощной. Теоретически VB5.0 обеспечивает различные аспекты работы в Интернете, и Explorer может использовать VBScript для расширения своих функций. Однако в реальной реализации программисты столкнутся с проблемами того или иного рода. Теперь мы приведем пример, который был успешно отлажен. Следуя этому методу, пользователи могут вызывать Explore в любом месте своей программы VB5.0, чтобы облегчить использование «файлов справки» или «гиперссылок».
2. Способ реализации
Сначала выберите «Проект/Компоненты» в меню VB5.0, затем выберите два элемента управления MicrosoftInternetcontrols и MicrosoftcommonDialogControl5.0, чтобы добавить значки WebBrowser и Commodialog на панель инструментов, а затем Наконец, в форме Form1, как показано на рисунке 1, введите две метки, одну текстовую, три команды и одну CommoDialog. Заголовки трех команд — «Обзор», «Открыть HTM» и «Отмена», которые используются. для записи Commodialog удобно называть cd.
В программе создается цель типа ii Internet Explorer. При вызове метода ii.Navigatetext1, navNoreadfromcache имя HTML-файла задается как text1.text, то есть URL-адрес задается через Text1. можно не только использовать VB5 Программа .0 может свободно открывать окно Проводника, а URL-адрес и внешний вид окна также определяются VB5.0. Чтобы сделать его более понятным, удалите StandardButtons, AddressBar, Links и TextLabels в View/options/general в Explorer.
Среди них URL-адрес можно ввести напрямую или выбрать при просмотре.
3. Процедура
Дмитрий
PRivateSubCommand1_Click()
Cd.Flags=&H200
Cd.Filter="HTMLfiles(*.htm)|*.htm|TextFiles"&_
"(*.txt)|*.txt|AllFiles(*.*)|*.*"
Cd.ShowОткрыть
Text1=имя_файла_CD
Command2.Visible=Истина
EndSub
PrivateSubCommand2_Click()
Setii=GetObject("","INTERNETEXPLORER.application")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Top=0
ii.Left=0
ii.Width=Form1.Width
ii.Height=Экран.Высота
EndSub
PrivateSubCommand3_Click()
Текст1=""
Разгрузить меня
EndSub
PrivateSubForm_Load()
Form1.Top=Экран.Высота/4
Форма1.Влево=0
Форма1.Ширина=Экран.Ширина
Форма1.Высота=Экран.Высота/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=Ложь
EndSub
PrivateSubText1_KeyPress (KeyAsciiAsInteger)
ЕслиKeyAscii=13Тогда
Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Top=0
ii.Left=0
ii.Width=Form1.Width
ii.Height=Экран.Высота
КонецЕсли
EndSub->