WebBrowser - пользовательский интерфейс тормозит

[COSANOSTRA]

Здравствуйте, хочу написать клиент для онлайн игры, для этого использую компонент webbrowser. И сразу появилась проблема, при загрузке игры WebBrowser1.Navigate("http://tankionline.com/battle-ru.html#/server=RU13") пользовательский интерфейс зависает (форма таймер и т.д) Как обрабатывать компонент webbrowser в отдельном потоке? Поток создаю так

Код: Выделить всё

Imports System.Threading

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Dim поток As New Thread(AddressOf поток1)
   поток.IsBackground = True     
   поток.Start()       
End Sub

Sub поток()
        ------
End Sub
   
End Class

Если есть вариант без использования потоков, буду только рад.

[COSANOSTRA]

Передавать постоянно фокус форме не вариант, управление в игре теряется

[COSANOSTRA]

Теперь я совсем запутался.. кидаю на форму лейбл и компонент веб браузер, создаю таймер в новом потоке

Код: Выделить всё

Public Class Form1
    Private tTimer As System.Timers.Timer
    Private a As Integer
   
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        tTimer = New System.Timers.Timer()
        tTimer.Enabled = True
        tTimer.Interval = 100
        AddHandler tTimer.Elapsed, AddressOf Timer5
        tTimer.AutoReset = True
        tTimer.Start()

        WebBrowser1.Navigate("http://tankionline.com/battle-ru.html#/server=RU13")
    End Sub
   
    Private Sub Timer5(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        a = a + 1
        Me.Invoke(New Action(AddressOf SetLabel))
    End Sub
   
    Private Sub SetLabel()
        Label1.Text = a
    End Sub
End Class

После запуска игры лейбл замирает.. почему? Ведь таймер обновляющий его находится в другом потоке… Помогите разобраться..

[Qwertiy]

Потому что WebBrowser работает в UI'ном потоке.

[COSANOSTRA]

То есть, если я правильно понял, компонент WebBrowser может работать только в потоке пользовательского интерфейса и нигде иначе, тогда как это реализовано в том же Internet Explorer.. ведь там интерфейс пользователя не зависает

[Qwertiy]

компонент WebBrowser может работать только в потоке пользовательского интерфейса и нигде иначе

Не факт.
И не компонент, а .NET'овская обёртка.
И не в UI'ном, а в том, в каком создан, скорее всего.

[COSANOSTRA]

Создаю поток, присваиваю ему состояние SetApartmentState, создаю в нем webbrowser. Кидаю на форму таймер и лейбл

Код: Выделить всё

Imports System.Threading
Public Class Form1
    Friend web1 As System.Windows.Forms.WebBrowser

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim поток As New Thread(AddressOf поток1)

        поток.SetApartmentState(ApartmentState.STA)
        поток.IsBackground = True
        поток.Start()
    End Sub

    Sub поток1()
        web1 = New WebBrowser
        Me.Invoke(Sub()
                      Me.Controls.Add(web1)
                      web1.Height = 600
                      web1.Width = 1024
                      web1.Navigate("http://tankionline.com/battle-ru.html#/server=RU13")
                  End Sub)
    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
    End Sub
End Class


как интерфейс тормозил, так и тормозит. Объясните пожалуйста доступным языком что я делаю не так и как добиться желаемого результата

[Qwertiy]

Мне кажется, или STA-поток может быть только один?

[COSANOSTRA]

Добился желаемого результата создавая копию второй формы в новом потоке, получается как вкладки у браузера.. все что происходит на вкладке никак не влияет на основную форму, даже если она зависнет. Но теперь при работе отображаются две формы, вопрос : как поместить форму 2 на форму 1

Код: Выделить всё

Imports System.Threading
Public Class Form1

    Dim forms As Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim поток As New Thread(AddressOf поток1)

        поток.SetApartmentState(ApartmentState.STA)
        поток.IsBackground = True
        поток.Start()
    End Sub
    Sub поток1()
        forms = New Form2
       
        forms.WebBrowser1.Navigate("http://tankionline.com/battle-ru.html#/server=RU13")
        forms.ShowDialog()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
    End Sub

End Class

[COSANOSTRA]

Пытаюсь так.. в свойствах формы Form1.IsMdiContainer = True, в потоке Me.Invoke(New Action(AddressOf SetForm))

Код: Выделить всё

Private Sub SetForm()
   forms.MdiParent = Me
End Sub

получаю:

Невозможно получить дескриптор окна для элемента управления 'WebBrowser'. Элементы управления ActiveX, не базирующиеся на окнах, не поддерживаются.

[Qwertiy]

Попробуй Parent без MDI.

[COSANOSTRA]

Попробуй Parent без MDI.

получаю:

Элемент верхнего уровня нельзя добавлять к элементу управления.

[Qwertiy]

Элемент верхнего уровня нельзя добавлять к элементу управления.

Ага, надо было TopLevel сначала убрать.
http://www.cyberforum.ru/vb-net/thread1071316.html#post5655271

Код: Выделить всё

  With New Form2
    .TopLevel = False
    .Parent = Owner
    .Show()
  End With

Но всё равно будет косяк с потоками, скорее всего. Для одной из форм. Так что, возможно, придётся воспользоваться WinApi, чтобы установить родителя.

[COSANOSTRA]

.TopLevel = False
.Parent = Owner
.Show()

Ругается на ShowDialog()

Форму, не являющуюся формой верхнего уровня, нельзя отобразить как модальное диалоговое окно. Удалите эту форму из всех родительских форм перед вызовом showDialog.

при использовании Show() ничего не происходит, может конечно и моргает но я его не вижу =)

[Qwertiy]

Внимательнее что ли...

[COSANOSTRA]

Не догоняю реально.. помещается форма2 на форму1 но она создается в потоке формы1.. если не затруднит покажи на моем примере как это реализовать

[COSANOSTRA]

не получается даже через WinApi не могу вызвать SetParent(form2.Handle, me.Handle) получается формы должны быть созданы в одном потоке

[Qwertiy]

Для этого есть переменные. В SetPerent надо передавать две переменные. Или одну переменную и хендл текущей формы. А у тебя идёт обращение из текущего потока к свойству (Handle) формы, созданной в другом.
Не могу сейчас проверять - нет времени.

[COSANOSTRA]

Не выходит, созданная форма закрывается и все.. ничего не происходит

Код: Выделить всё

Imports System.Threading
Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("User32", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndParent As IntPtr) As IntPtr
    End Function

    Public ss As Integer
    Dim forms As Form2
   Sub поток1()
        forms = New Form2
        ss = forms.Handle
        forms.WebBrowser1.Navigate("http://tankionline.com/battle-ru.html#/server=RU13")
        forms.ShowDialog()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim поток As New Thread(AddressOf поток1)

        поток.SetApartmentState(ApartmentState.STA)
        поток.IsBackground = True
        поток.Start()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SetParent(ss, Me.Handle)
    End Sub
End Class

[COSANOSTRA]

Разобрался, работает, форма 2 помещена в форму 1 работает в отдельном потоке.

форма 1

Код: Выделить всё

Imports System.Threading

Public Class Form1
    Sub поток1()
        forms = New Form2
        forms.WebBrowser1.Navigate("http://tankionline.com/battle-ru.html#/server=RU13")
        forms.ShowDialog()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim поток As New Thread(AddressOf поток1)

        поток.SetApartmentState(ApartmentState.STA)
        поток.IsBackground = True
        поток.Start()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ss = Me.Handle
    End Sub
End Class

форма 2

Код: Выделить всё

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SetParent(forms.Handle, ss)
    End Sub
End Class

модуль

Код: Выделить всё

Imports System.Runtime.InteropServices
Module Module1
    Public ss As Integer
    Public forms As Form2
    <DllImport("User32", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndParent As IntPtr) As IntPtr
    End Function
End Module

[COSANOSTRA]

И еще пару нюансов:
1 как сделать формы единым окном? то есть сейчас фокус у каждой формы свой
2 на форме 1 находится лейбл, как его поместить на передний план, сейчас его перекрывает форма 2

[COSANOSTRA]

Возможно кому ни будь пригодится.. визуально форма с экземпляром webbrowser, который работает с своем потоке никак не влияя на пользовательский интерфейс

Form1

Код: Выделить всё

Imports System.Threading

Public Class frmClient
    Dim NUI As Thread
    Dim URL As String = "https://www.google.ru"
    Dim NUI_Form As new Form2

    Private Sub NUI_Creat()
        If NUI IsNot Nothing Then
            NUI.Abort()
        End If
        NUI = New Thread(AddressOf NUI_Thread)
        With NUI
            .SetApartmentState(ApartmentState.STA)
            .IsBackground = True
            .Start()
        End With
    End Sub
    Private Sub NUI_Thread()
        NUI_Form = New Form2
        NUI_Form.WebBrowser1.Hide()
        NUI_Form.ShowDialog()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Client_Handle = Me.Handle
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        NUI_Creat()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        NUI_Form.Invoke(Sub() NUI_Form.WebBrowser1.Hide())
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        NUI_Form.Invoke(Sub() NUI_Form.WebBrowser1.Show())
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        NUI_Form.Invoke(Sub() NUI_Form.WebBrowser1.Navigate(URL))
    End Sub

End Class



Form2

Код: Выделить всё

Imports System.Runtime.InteropServices
Public Class Form2

    Const WS_CHILD = &H40000000
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim CP As CreateParams = MyBase.CreateParams
            CP.Style = WS_CHILD
            Return CP
        End Get
    End Property

    <DllImport("User32", CharSet:=CharSet.Auto, ExactSpelling:=True)>
    Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndParent As IntPtr) As IntPtr
    End Function


    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        SetParent(Me.Handle, Client_Handle)
        Me.SendToBack()
        Me.Height = Form1.Height : Me.Width = Form1.Width
    End Sub

End Class


переменную Public Client_Handle As Integer объявить в модуле, объявляя ее в форме, по непонятным причинам SetParent не работает