Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Открыть Webbrowser

Автор: eldar22 14.5.2010, 16:17

Здравствуйте!
На форме есть webbrowser он открывает страничку там одна ссылка когда ее нажимаешь появляется сообщение закрыть ли webbrowser
Вопрос вот в чем как открыть заново webbrowser

Код


Private Sub Command1_Click()
WebBrowser1.Document.links(0).Click
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "www.cauT.ru"
End Sub

Автор: Akina 14.5.2010, 16:30

Цитата(eldar22 @ 14.5.2010, 17:17

)

когда ее нажимаешь появляется сообщение закрыть ли webbrowser

1) Что за ссыль такая?
2) Почему бы не сказать "нет"?

Автор: eldar22 14.5.2010, 19:16

ссылка естественно java script

Код


<script type="text/javascript"><!--
   var frame = document.getElementById('rf');
   frame && frame.contentWindow && frame.contentWindow.focus();
   
   var timeOut = Number("2"), timeout = $('#timeout')[0];
   if(window.opener){
      window.form = window.opener.document.survey;
      
      function query(url){
         if($.query){
            $.query(url);
         }else{
            location.href = url;
         }
      }

      function onTimeouted(){
         if(!(--timeOut)){
             var next = document.getElementById('next-question');
            next.innerHTML = '<a href="/страничка.php?таймер=да" onclick="form.submit(); window.close()">Ссылка</a>';
            timeout.parentNode.innerHTML = '';
            Boolean("1") && query("/профиль/работа/таймер/да");
         }else{
            timeout.innerHTML = Number(timeout.innerHTML)-1;
            setTimeout(arguments.callee, 1000);
         }
      }
      
      if(isNaN(timeOut)) timeOut = 0;
      
      timeOut && setTimeout(onTimeouted, 1000) || ++timeOut && onTimeouted();  
   }
//--></script>

закрывает браузер после нажатие, если не закрывать окно то не чего не происходит
Для дальнейшой работы надо закрыть.

Открываю страницу ссылкой во втором webbrowser ссылка его закрывает

Код


Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = WebBrowser2.object
 
End Sub

Вот и вопрос как обратно открыть webbrowser