Надеюсь, кто-то может мне помочь с этим.У меня есть две отдельные, но связанные формы, одна из которых содержит элемент управления WebBrowser.Пользователь заполняет некоторую информацию в Форме 1 и нажимает кнопку со следующим кодом:
If Form2Shown = False Then
Dim memoscreen As New Form2
Form2Ref = memoscreen
memoscreen.show()
Form2Shown = True
memoscreen.TopMost = OptionOnTop
Else
Dim memoscreen As Form2
memoscreen = Form2Ref
memoscreen.TopMost = OptionOnTop
memoscreen.QuickRefresh()
End If
Подсказка QuickRefresh в Form2 - это метод навигации.Он вызывается как при загрузке формы, так и вручную в приведенном выше коде:
Public Sub QuickRefresh()
Dim HM As Form1
HM = Form1Ref
Me.Text = "retrieving information..."
Me.AxWebBrowser1.Navigate("SomeValidURL")
HM.Focus()
HM.SetHugoFocus()
End Sub
Проблема, с которой я столкнулся, заключается в том, что при первом вызове QuickRefresh (то есть при загрузке формы 2) навигацияуспешно, и страница отображается нормально.Если я затем снова нажму кнопку в Form1, страница не изменится.Однако атрибут Text и фокус окна меняются, поэтому я знаю, что метод запускается.
Некоторые вещи, которые я пробовал / проверял:
- В WebBrowser для параметра AllowNavigation установлено значение True.control
- Попытка зацикливания, когда браузер занят во время вызова Application.DoEvents ()
Любые предложения приветствуются.Спасибо.