Problème avec le Handles

Version imprimable

Bonjour à vous tous

j'ai une application qui est censé récupérer la lecture d'un data matrix par usb émulation PortCom.
Rien de bien compliqué, me direz vous. Mais la ou cela bloque c'est qu'au moment d'afficher la lecture j'ai l'erreur suivante :

Impossible d'appeler Invoke ou BeginInvoke sur un contrôle tant que le handle de fenêtre n'a pas été créé.

voici mon code :

IHM.vb

Code:

1
2
3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       General.Init_Post()
End Sub

General.vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Public Shared Sub Init_Post()
        'Lecture du fichier de config
        Dim strConfigFileName As String = IHM.strPathRootConfig & "\Config.ini"
        Dim str_ScannerComPort As String = ""
 
        'Port com pour la douchette
        str_ScannerComPort = Gestion_INI.GetCle(strConfigFileName, "Poste", "ScannerComPort")
 
        'Init comm douchettes
        Douchette.Init_douchettes(str_ScannerComPort)
 
    End Sub

Douchette.vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
    'Gestion des ports com pour les douchettes
    Public WithEvents portCom As New System.IO.Ports.SerialPort
 
    Public Function Init_douchettes(ByVal strPort As String) As Boolean
        Try
            'Si le nom est vide -> pas d'ouverture
            If strPort <> "" Then
                If Me.portCom.IsOpen = False Then
                    'Init des parametres
                    portCom.BaudRate = 38400
                    portCom.Parity = IO.Ports.Parity.None
                    portCom.Handshake = IO.Ports.Handshake.None
                    portCom.StopBits = IO.Ports.StopBits.One
                    portCom.PortName = strPort
 
                    'Initialise le buffer
                    portCom.DiscardNull = True
 
                    'Ouverture
                    portCom.Open()
                End If
            End If
        Catch ex As Exception
            MsgBox("Erreur dans la configuration de la douchette." & vbCrLf & ex.Message)
        End Try
    End Function
 
    'Gestion reception code barre douchette
    Public Sub Reception_Data(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles portCom.DataReceived
 
        Dim strTmp As String = ""
 
        Try
            If portCom.ReadBufferSize > 0 Then
 
                'Recupere les donnees
                strTmp = portCom.ReadExisting
 
                'Vide le buffer
                portCom.DiscardInBuffer()
 
                'Affichage de la trame reçu
                TextBox1.Invoke(New AfficheDataReadDeleg(AddressOf AfficheDataRead), New Object() {strTmp})
            End If
        Catch ex As Exception
            MsgBox("Erreur durant la réception" & vbCrLf & vbCrLf & ex.ToString)
        End Try
    End Sub
 
    'Création d'une délégation pour gestion des threads pour l'affichage
    Delegate Sub AfficheDataReadDeleg(ByVal StrTmp As String)
 
    'affichage de la trame reçu
    Public Sub AfficheDataRead(ByVal StrTmp As String)
        TextBox1.Text = StrTmp
    End Sub

Ligne ou j'ai le blocage:

Code:

1
2
'Affichage de la trame reçu
 TextBox1.Invoke(New AfficheDataReadDeleg(AddressOf AfficheDataRead), New Object() {strTmp})

12/01/2011, 17h53
Invité

Le message est très clair je pense le handle n'est pas créé donc pas de possibilité d'appeler Invoke ou BeginInvoke sur contrôle.

Sinon tu peux faire un test sur la propriété InvokeRequired qui te renvoie True si tu peux appeler les méthodes citées précédemment.
12/01/2011, 17h57
Invité

T'as aussi la proprieté IsHandleCreated qui te permet de savoir si un handle associé à un contrôle.

Bref évite surtout de vouloir faire des traitements dans le gestionnaire Form_Load de ton formulaire. Privilégie les lancements de traitements dans des Threads indépendants.
12/01/2011, 18h02
Fr33dom

InvokeRequired est à False
tout comme IsHandleCreated
12/01/2011, 18h15
Invité

Essaies de gérer l'évènement Shown (et d'y mettre ton traitement.

d'après MSDN :

Citation:

Shown se produit à chaque fois que le formulaire est affiché en premier.

L'événement Shown est déclenché uniquement la première fois qu'un formulaire est affiché ; les opérations consistant à réduire, agrandir, restaurer, masquer, afficher, ou invalider et repeindre ne déclencheront pas cet événement.

En gérant cet évènement on est sûr que tes contrôles possèdent des Handle associés.

Nota Béné : Encore une fois ça fait pas parti des bonnes pratiques.
12/01/2011, 18h40
Fr33dom

Même en lancant dans le Shown, sa ne change rien :(
12/01/2011, 19h44
Invité

Désolé passe par la bonne pratique en utilisant un BackgroundWorker. :ccool:
12/01/2011, 22h26
Pol63

pas lu en entier mais sinon il y a me.createcontrol qui permet de forcer la création du handle (à mettre dans le sub new par exemple)

Veuillez m'excuser mais j'en avais oublié les règles de programmation VB et certaine chose avait été oublié de ma part, ce qui créait des erreur alors qu'il n'y avait pas lieu d'en avoir. Puis lorsque je remet tout en place sa va tout de suite mieux.

Je met quand mm mon code des fois que cela servent pour d'autre:

Class IHM

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class IHM
    'class Douchette
    Public WithEvents ObjPosteScan As New Douchette()
 
    'Delegués
    Private Delegate Sub Deleg_Affiche_CB1(ByVal strCB As String)
 
    'Gestion reception codebarre
    Private Sub Reception_CB_douchette1(ByVal strCB As String) Handles ObjPosteScan.Reception_CB_douchette
        'Demande l'affichage (threadsafe)
        If Me.InvokeRequired Then
            Me.Invoke(New Deleg_Affiche_CB1(AddressOf TextBox_AfficheCBRead), strCB)
        End If
    End Sub
 
    Public Sub TextBox_AfficheCBRead(ByVal StrCB As String)
        TextBox1.Text = TextBox1.Text & StrCB & vbCrLf
    End Sub
End Class

Class Douchette

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Douchette
    'Evenements douchettes
    Public Event Reception_CB_douchette(ByVal strCB As String)
 
    'Gestion reception code barre douchette
    Public Sub Reception_Data(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles portCom.DataReceived
        Dim strTmp As String = ""
 
        Try
            If portCom.ReadBufferSize > 0 Then
                'Recupere les donnees
                strTmp = portCom.ReadExisting
                'Vide le buffer
                portCom.DiscardInBuffer()
                'Leve l'evenement CB recu
                RaiseEvent Reception_CB_douchette(strTmp)
            End If
        Catch ex As Exception
            MsgBox("Erreur durant la réception" & vbCrLf & vbCrLf & ex.ToString)
        End Try
    End Sub
End Class

Merci à vous de vous être penché sur la question et bonne continuation