Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница:

 

  Вопрос: Опять я! Новый баг с ХТМЛ Добавлено: 22.05.03 00:10  

Автор вопроса:  MEDBEDb | ICQ: 177470289 

Private Sub Form_Load()
Form1.Height = 7215
Form1.Width = 9615
wb.Navigate ("d:\myhtml\download.html")
wb.Silent = True
End Sub

Private Sub wb_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Text1.Text = URL
End Sub

Private Sub wb_FileDownload(Cancel As Boolean)
Call ShellExecute(0, "open", Text1.Text, "", "", 1)
wb.Stop
End Sub

 

ну соответственно все пашет на ура. всем спасиба за советы направления и т.д.

Все хорошо только вот когда экзешник компилю, запускаю - срабатывает петля

Text1.Text = URL

Call ShellExecute(0, "open", Text1.Text, "", "", 1)

и этуже хтмлку открывает эксплорером.

пробовал искать ".htm" в text1.text но не получилось.

кто чем поможет???

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам