إستعمال ال Multi Threading - نسخة قابلة للطباعة

كود :

Private Sub SurroundingSub()

    Dim th As Thread = New Thread(Sub()

                                      'انشاء كائن الفورم يجب ان يكون هنا

                                      Dim form As Form2 = New Form2()



                                      'اظهار الفورم

                                      form.ShowDialog()

                                  End Sub)

    th.SetApartmentState(ApartmentState.STA)

    th.Start()

End Sub

كود :

Public Partial Class Form1

    Inherits Form

    Private webBrowserForm As Form = DirectCast(Nothing, Form)

    Public Sub New()

        InitializeComponent()

        Form1.CheckForIllegalCrossThreadCalls = False

        CreateWebBroser()

    End Sub

    Private Sub CreateWebBroser()

        Dim th As Thread = New Thread(Sub()

                                          'انشاء كائن الفورم يجب ان يكون هنا

                                          webBrowserForm = New Form()

                                          webBrowserForm.StartPosition = FormStartPosition.Manual

                                          webBrowserForm.FormBorderStyle = FormBorderStyle.None

                                          webBrowserForm.ShowInTaskbar = False

                                          CalculateWebBrowserFormLocationAndSize()

                                          webBrowserForm.Owner = Me

                                          webBrowserForm.Controls.Add(New WebBrowser() With {

                                              .Url = New Uri("https://upload.wikimedia.org/wikipedia/commons/2/2c/Rotating_earth_%28large%29.gif"),

                                              .Dock = DockStyle.Fill

                                          })

                                          'اظهار الفورم

                                          Application.Run(webBrowserForm)

                                      End Sub)

        th.SetApartmentState(ApartmentState.STA)

        th.IsBackground = True

        th.Start()

    End Sub

    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)

        Call New Form2().ShowDialog()

    End Sub

    Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As EventArgs)

        CalculateWebBrowserFormLocationAndSize()

    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As EventArgs)

        CalculateWebBrowserFormLocationAndSize()

    End Sub

    Private Sub CalculateWebBrowserFormLocationAndSize()

        If webBrowserForm Is Nothing Then Return

        If webBrowserForm.InvokeRequired Then

            webBrowserForm.Invoke(New Action(AddressOf CalculateWebBrowserFormLocationAndSize))

        Else

            webBrowserForm.Location = PointToScreen(panel1.Location)

            webBrowserForm.Size = panel1.Size

        End If

    End Sub

End Class