Discussion :

[dnboa]

Bonjour,

J'essai d'utiliser la fonction GetMessage mais j'ai tj un message d'erreur de type : "Type mismatch' sur la ligne If getMessage (msg, 0,0,0) then

Avez vous des idées?

Merci à tous.

Voici mon code :

Code :

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

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
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
 
Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function TranslateMessage Lib "user32" Alias "TranslateMessage" (lpMsg As MSG) As Long
Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As MSG) As Long
Private Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long
 
Const WM_QUIT = &H12
 
 
sub main
'******
While IsWindow(objwindow.WindowHandle)
DoSomething
Wend
 
'******
end sub
 
Sub DoSomething() 
 
Dim msg As MSG
If GetMessage(msg, 0&, 0&, 0&) Then
If msg.message = WM_QUIT Then
Exit Sub
End If
Call TranslateMessage(msg)
Call DispatchMessage(msg)
End If
 
End Sub

[ucfoutu]

Bonjour,

regarde ce que tu as écrit ! :

Code :

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

Dim msg As MSG

remplace donc msg par toto (ou par autre chose) :

Code :

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

1
2
3
4
5
Dim toto As MSG
If GetMessage(toto, 0&, 0&, 0&) Then
If toto.message = WM_QUIT Then
Exit Sub
'etc....

[iclic]

Bonjour,

Et pour compléter la réponse de Ucfoutu
je coderai comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub DoSomething() 
 
Dim toto As MSG
 
If GetMessage(toto, 0&, 0&, 0&) Then
          If toto.message <> WM_QUIT Then
                      Call TranslateMessage(msg)
                      Call DispatchMessage(msg)
          End If
End if
 
End Sub

Celà revient au-même bien sûr, mais c'est plus élégant.

A+