Utilisation API setwindowlong sous VB6
cs_cricri95
Messages postés
34
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
6 avril 2012
-
12 avril 2006 à 08:26
cs_cricri95 Messages postés 34 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 6 avril 2012 - 13 avril 2006 à 08:40
cs_cricri95 Messages postés 34 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 6 avril 2012 - 13 avril 2006 à 08:40
2 réponses
zavier666
Messages postés
266
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
30 avril 2009
1
12 avril 2006 à 20:40
12 avril 2006 à 20:40
pkoi ça bloque en débogage?????
pourrais-tu montrer le bout de code, pour permettre au personnes de t'aider!!!!
(en tout cas tu aurais plus de chance de recevoir une réponse)
@+ Xav
API @ la Loupe
http://xav.prog.power.free.fr
pourrais-tu montrer le bout de code, pour permettre au personnes de t'aider!!!!
(en tout cas tu aurais plus de chance de recevoir une réponse)
@+ Xav
API @ la Loupe
http://xav.prog.power.free.fr
cs_cricri95
Messages postés
34
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
6 avril 2012
13 avril 2006 à 08:40
13 avril 2006 à 08:40
Bonjour,
Alors quelques explications ....
Dans mon MDIForm_Load, A partir d'une base de donnees j'insere mes
menus principaux avec la commande "Rec = InsertMenu(...)" et ensuite
des menus popup (si je clique sur les menus principaux) grace a la
commande "retval = InsertMenuItem(...)".
Ensuite pour declencher les clicks sur ces menus nouvellement creés je
lance apres la construction de tous les menus la commande suivante :
"trueWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProcMenu)"
Et WindowProcMenu est de la forme :
'*************************************************************
Public Function WindowProcMenu(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo FinSub
If uMsg = WM_COMMAND Then
Select Case wParam
Gestion clic utilisateur
end select
end if
WindowProcMenu = CallWindowProc(trueWndProc, hwnd, uMsg, wParam, lParam)
'****************************************************************
Voila !!!!
Mais le probleme est que le deboggage est impossible (enfin le point
d'arret fait planter toute l'appli!!!) et de plus dans certains cas
l'acces au code est impossible sur un point d'arret.
Si vous avez une idée, merci de me la faire parvenir .....
Merci d'avance bonne journée
Alors quelques explications ....
Dans mon MDIForm_Load, A partir d'une base de donnees j'insere mes
menus principaux avec la commande "Rec = InsertMenu(...)" et ensuite
des menus popup (si je clique sur les menus principaux) grace a la
commande "retval = InsertMenuItem(...)".
Ensuite pour declencher les clicks sur ces menus nouvellement creés je
lance apres la construction de tous les menus la commande suivante :
"trueWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProcMenu)"
Et WindowProcMenu est de la forme :
'*************************************************************
Public Function WindowProcMenu(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo FinSub
If uMsg = WM_COMMAND Then
Select Case wParam
Gestion clic utilisateur
end select
end if
WindowProcMenu = CallWindowProc(trueWndProc, hwnd, uMsg, wParam, lParam)
'****************************************************************
Voila !!!!
Mais le probleme est que le deboggage est impossible (enfin le point
d'arret fait planter toute l'appli!!!) et de plus dans certains cas
l'acces au code est impossible sur un point d'arret.
Si vous avez une idée, merci de me la faire parvenir .....
Merci d'avance bonne journée
