Discussion :

[jul54]

Bonjour à tous,

je cherche à établir une communication entre deux de mes programmes, 1 en C# l'autre en VB6.
J'utilise donc la méthode PostMessage, venant du C++, je suis arrivé facilement à intercepté les messages dans mon programme en C# avec la méthode WndProc. J'ai tenté la même chose en VB6 avec le code suivant:

Code :

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

1
2
3
4
5
Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
    If uMsg = WM_CALLPROG Then
        MsgBox ("Message Intercepté")
    End If
End Function

WM_CALLPROG est un évènement que j'ai défini moi même (=WM_USER+1)

Or ce bout de code n'intercepte aucun évènement. Je n'ai pas trouvé de fonction "Overidable" sur le net alors qu'il me semble qu'elle devrait l'être.

Comment intercepter un message envoyé avec PostMessage en VB6?

Merci d'avance pour toute réponse et de votre indulgence (on est vendredi et mon cerveau est nase, je suis sûr que c'est pas compliqué mais là, je peux plus)

[medkarim]

désolé pas bien lu le message
t a essay avec l'api getmessage ou peekmessage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long
Type Msg
    hWnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
Type POINTAPI
    x As Long
    y As Long
End Type

Code :

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

[jul54]

Merci pour ton aide, en fait je cherchais à faire du SubClassing, j'ai trouvé un lien l'expliquant qui m'a permis de résoudre mon problème, mais cet article est sur un site concurrent alors je ne crois pas que je puisse mettre le lien.

Il suffit d'effectuer une recherche google VB6 & Subclassing et vous trouverez comment intercepter un évènement.