Discussion :

[johann77]

Bonjour,
Mon problème est que j'essaye d'accéder a un Windows Form, en l'occurence un WebBrowser depuis une Classe.

L'application visuel s'appelle AchatPoint.
Le WebBrowser est par defaut WebBrowser1.

Voici mon code actuel de la classe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Dim Achat As New AchatPoint
Achat .WebBrowser1.Navigate("Mon site")

Aucune erreur de compilation mais quand je lance je reçois une erreur du style "Impossible d'instancier le contrôle activex"

Voilà, merci d'avance...

[johann77]

Voici l'erreur relevée complète :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
{"Impossible d'instancier le contrôle ActiveX '8856f961-340a-11d0-a96b-00c04fd705a2', car le thread actuel n'est pas un thread cloisonné (STA, Single-Threaded Apartment)."}

Dans ma classe il y a un code qui permet de récupérer une commande tapée par un utilisateur.
Or, pour une commande j'ai besoin d'une vérification web via un WebBrowser.

Donc dans cette classe j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Points As New AchatPoint()
                            Points.Show()
                            Dim X As Integer
                            Dim Y As Integer
                            Dim code As String
                            Points.TestCode(X, Y, code)

Y et X sont définis mais je vais pas donner tout le code inutile ^^'

Ensuite dans la Form AchatPoint j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class AchatPoint
    Public Sub TestCode(X As Integer, Y As Integer, code As String)
 
        WebBrowser1.Navigate("Lien qui contient les variables X, Y, code")
        If WebBrowser1.DocumentText.Contains("OUI") Then
            msgbox("Bon") 
        Else
            msgbox("Incorrect")
        End If
    End Sub
 
End Class

Et là j'ai l’erreur citée au dessus quand je fait la commande qui appelle la classe.

J'ai essayé d'ajouter un <gras>Shared </gras>à <gras>Public Sub TestCode</gras> mais le WebBrowser se souligne en bleu et soulève comme erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Impossible de faire référence à un membre instance d'une classe à partir d'une méthode partagée ou d'un initialiseur de membre partagé sans une instance explicite de la classe