ActiveX-Steuerelement "8856f961-340a-11d0-a96b-00c04fd705a2' kann nicht instanziiert werden, da der aktuelle thread ist nicht in einem Singlethread-apartment

Bin ich immer diese Fehlermeldung wenn ich versuchen zu zeigen, eine form mit einem webbrowser in es.

ActiveX-Steuerelement "8856f961-340a-11d0-a96b-00c04fd705a2' kann nicht instanziiert werden, da der aktuelle thread ist nicht in einem Singlethread-apartment

Rufe ich es durch:

Public Class frmMain
  Class Server
       Public Shared Sub Main()
        Dim aTcpMessaging As IMessagingSystemFactory = New TcpMessagingSystemFactory()
        Dim anInputChannel As IInputChannel = aTcpMessaging.CreateInputChannel(theIPforLocal & ":" & thePort)
        Dim aStringMessagesFactory As IStringMessagesFactory = New StringMessagesFactory()
        Dim aStringMessageReceiver As IStringMessageReceiver = aStringMessagesFactory.CreateStringMessageReceiver()
        AddHandler aStringMessageReceiver.MessageReceived, AddressOf StringMessageReceived

        aStringMessageReceiver.AttachInputChannel(anInputChannel)
    End Sub

       Private Shared Sub StringMessageReceived()
            Call New frmMM().Show()
       End Sub
  End Class

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim RelState As Integer = 0
    Call frmMain.Server.Main()
    lblVer.Text = "V.7"
    Pid = 0
  End Sub
End Class

Wie kann ich laden Sie diese nach oben, sodass er mir nicht zeigen, dass Fehler?

Dank.

David

Code update

 Class Server
    <STAThread()> Public Sub Main()
        Dim aTcpMessaging As IMessagingSystemFactory = New TcpMessagingSystemFactory()
        Dim anInputChannel As IInputChannel = aTcpMessaging.CreateInputChannel(theIPforLocal & ":" & thePort)
        Dim aStringMessagesFactory As IStringMessagesFactory = New StringMessagesFactory()
        Dim aStringMessageReceiver As IStringMessageReceiver = aStringMessagesFactory.CreateStringMessageReceiver()
        AddHandler aStringMessageReceiver.MessageReceived, AddressOf StringMessageReceived

        aStringMessageReceiver.AttachInputChannel(anInputChannel)
    End Sub

   Private Shared Sub StringMessageReceived()
        Call New frmMM().Show()
   End Sub
 End Class

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim RelState As Integer = 0
    Call frmMain.Server.Main()   '<-- the error now
    lblVer.Text = "V.7"
    Pid = 0
  End Sub
End Class

InformationsquelleAutor StealthRT | 2012-01-09

Das problem tritt auf, weil eine UI-Komponente erstellt wird, wird auf einem nicht-UI-thread.
Hier ist eine vereinfachte version des Codes, die brechen mit dieser Fehlermeldung.

Imports System.ComponentModel

Public Class Form1
    Private _ThreadedProcesss As ThreadedProcess
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        _ThreadedProcesss = New ThreadedProcess()
        _ThreadedProcesss.Start()
    End Sub

    Public Class ThreadedProcess
        Private _thread As System.Threading.Thread

        Public Sub Start()
            _thread = New System.Threading.Thread(AddressOf ThreadEntryPoint)
            _thread.Name = "Testing thread"
            _thread.Start()
        End Sub

        Private Sub ThreadEntryPoint(status As Object)
            Dim wb As New WebBrowser()
            wb.Dock = DockStyle.Fill
            wb.Visible = True
            wb.DocumentText = "Hello world"
        End Sub
    End Class
End Class

Um das problem zu beheben, brauchen Sie nur, um wieder in den UI-thread vor dem erstellen des Steuerelements.

Imports System.ComponentModel

Public Class Form1
    Private _ThreadedProcesss As ThreadedProcess
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        _ThreadedProcesss = New ThreadedProcess(New EventHandler(AddressOf ThreadedProcess_Create))
        _ThreadedProcesss.Start()
    End Sub

    Private Sub ThreadedProcess_Create(sender As Object, e As System.EventArgs)
        If (Me.InvokeRequired) Then
            Me.Invoke(New EventHandler(AddressOf ThreadedProcess_Create), {sender, e})
        Else
            Dim wb As New WebBrowser()
            Me.Controls.Add(wb)
            wb.Dock = DockStyle.Fill
            wb.Visible = True
            wb.DocumentText = "Hello world"
        End If
    End Sub

    Public Class ThreadedProcess
        Private _thread As System.Threading.Thread
        Private _callback As EventHandler

        Public Sub New(callback As EventHandler)
            _callback = callback
        End Sub

        Public Sub Start()
            _thread = New System.Threading.Thread(AddressOf ThreadEntryPoint)
            _thread.Name = "Testing thread"
            _thread.Start()
        End Sub

        Private Sub ThreadEntryPoint(status As Object)
            _callback.Invoke(Me, EventArgs.Empty)
        End Sub
    End Class
End Class

Also bei deinem Beispiel glaube ich, der code wäre:

 Class Server
    Private _callback as EventHandler
    Public Sub Main(callback as EventHandler)
        _callback = callback
        Dim aTcpMessaging As IMessagingSystemFactory = New TcpMessagingSystemFactory()
        Dim anInputChannel As IInputChannel = aTcpMessaging.CreateInputChannel(theIPforLocal & ":" & thePort)
        Dim aStringMessagesFactory As IStringMessagesFactory = New StringMessagesFactory()
        Dim aStringMessageReceiver As IStringMessageReceiver = aStringMessagesFactory.CreateStringMessageReceiver()
        AddHandler aStringMessageReceiver.MessageReceived, AddressOf StringMessageReceived

        aStringMessageReceiver.AttachInputChannel(anInputChannel)
    End Sub

    Private Sub StringMessageReceived()
        _callback.Invoke(Me, EventArgs.Empty)
    End Sub
  End Class

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim RelState As Integer = 0
      Call frmMain.Server.Main(new EventHandler(AddressOf Server_MessageReceived))   '<-- the error now
      lblVer.Text = "V.7"
      Pid = 0
  End Sub
  Private Sub Server_MessageReceived(sender as Object, e As EventArgs)
      If (Me.InvokeRequired) Then
          Me.Invoke(New EventHandler(AddressOf Server_MessageReceived), {sender, e})
      Else
          Call New frmMM().Show()
      End If
  End Sub
End Class

InformationsquelleAutor James Bunch

1

Unter der Annahme, dass Sie nicht mit dem application-framework, die Sie brauchen, um zu dekorieren Sie Ihr Sub Main mit der STAThread Attribut.

Beispiel:
```
<STAThread()> _
Public Sub Main()
```
VB-Anwendungen, das application-framework keine sorgen zu machen, über dieses Attribut zu verwenden, da der compiler wird, gilt es automatisch.
- Haben Sie zufällig ein Beispiel dafür? Ich auch aktualisiert, der code in den OP, um zu zeigen, eine gemeinsame Funktion, die ich vergaß zu zählen, beim ersten mal.
- Sicher, ich habe aktualisiert die Antwort zu zeigen, was ich meine. Ich nehme an, Sie haben eine Sub Main in der Anwendung?
- Ich kann nicht scheinen zu rufen, die die main() nicht mehr. Der Teil Call frmMain.Server.Main() nicht mehr funktioniert, und hat einen Fehler von Verweis auf einen nicht freigegebenen member erfordert einen Objektverweis.
- Ist die frmMain.Server.Main Ihre Haupteinstiegspunkt für die Anwendung?
- Ich habe aktualisiert mein OP. Hoffentlich wird jemand wissen, was zu tun ist, um es zu korrigieren.
- Brauche immer noch Hilfe mit diesem :o)
InformationsquelleAutor competent_tech
1

Nur suchte mich dumm, da bin ich nicht wirklich tun, jede threading mich, aber ich fand eine Lösung für mein problem mit dem gleichen Fehler.

Sowieso, Sie auch bekommen diesen Fehler: "ActiveX-Steuerelement" 8856f961-340a-11d0-a96b-00c04fd705a2' kann nicht instanziiert werden, da der aktuelle thread ist nicht in einer single-threaded apartment", wenn Sie versuchen, ein Objekt in einem Formular (mit dem WebBrowser-Steuerelement), wenn das Formular noch nicht erstellt wurde.

fyi

InformationsquelleAutor My Brain

Class Server
<STAThread()> Public Sub Main()
    Dim aTcpMessaging As IMessagingSystemFactory = New TcpMessagingSystemFactory()
    Dim anInputChannel As IInputChannel = aTcpMessaging.CreateInputChannel(theIPforLocal & ":" & thePort)
    Dim aStringMessagesFactory As IStringMessagesFactory = New StringMessagesFactory()
    Dim aStringMessageReceiver As IStringMessageReceiver = aStringMessagesFactory.CreateStringMessageReceiver()
    AddHandler aStringMessageReceiver.MessageReceived, AddressOf StringMessageReceived

    aStringMessageReceiver.AttachInputChannel(anInputChannel)
End Sub

Private Shared Sub StringMessageReceived()
  Dim t As New Threading.Thread(AddressOf ShowFP)

  t.SetApartmentState(Threading.ApartmentState.STA)
  t.Start()
 End Sub
End Class

Private Shared Sub ShowFP()
  Dim ShowFP As New frmFPVid
  ShowFP.ShowDialog()
End Sub

InformationsquelleAutor StealthRT

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.