Menu Dynamique - Utilisation API setwindowlong

Question

Bonjour, Voila j'ai cr&#233;&#233; des menus dynamiquement &#224; partir d'une base de donn&#233;es (en Visual Basic 6).
Je
g&#232;re les clicks sur les menus deroulants avec setwindowlong mais le
probl&#232;me est en mode deboggage qui est pratiquement impossible si cette
API "setwindowlong" est lanc&#233;.
(Point Arret VB fait planter tout !!!).

 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&#233;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&#233;e, merci de me la faire parvenir .....
 Merci d'avance bonne journ&#233;e

cs_DARKSIDIOUS · Answer

As-tu lu mon message précédent où je te conseillais d'aller voir ma source de création de menu dynamique qui ne fait pas appel à un adressof (c'est sûrement lui qui fait tout planter en mode debug !) ??? _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_cricri95 · Answer

Oui et j'avais r&#233;pondu que &#231;a marchait peut etre quandtu faisais que des menus popup mais pas avec des menus fixes rattache au MDIFORM.

cs_DARKSIDIOUS · Answer

arf, oui, exact, j'avais pas vu ta réponse. Donc non je vois pas trop comment tu pourrais faire pour un MDI_FORM ! à mois d'intercepter l'interruption de ton prog par subclassing lorsque VB debugge, il doit bien lui envoyer un message je pense, et à ce moment là, remettre le menu d'origine... _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_cricri95 · Answer

Pas de probl&#232;me ...
Je vais essayer de faire quelquechose comme &#231;a ou sinon activ&#233; ou d&#233;sactiv&#233; mon setwindowlong en debuggage respectivement qd je clique sur mon menu et qd j'ouvre mon &#233;cran.

Mais je n'ai pas de moyen de r&#233;cup&#233;rer le clic sur le menu je ne sais pas l'intercepter et puis est-ce possible avec des menus dynamiques !!!!

Menu Dynamique - Utilisation API setwindowlong

4 réponses

Discussions similaires