Evènement utilisateur personnalisé!

   label Traite_User_Event

    ' cré la commande qui permet de déclencher un évènement
    dim event_index%,user32%
    event_index%=4024 : user32%=2   :' event_index% doit toujours avoir la valeur 4024
    LIBRARY user32%,"user32.dll"
    command "call_user_event","SendMessageA",user32%,"IIII","stdcall"

    ' nouvelle commande utilisateur
    On_User_Event Traite_User_Event
    
    ' déclenche l'évènement(Attention, c'est toujours et uniquement le form 0 qui active la commande 'on_user_event'!)
    call_user_event handle(0),event_index%,12,34

    
    END
    Traite_User_Event:
     Off_User_Event
     '
     '
       select USER_EVENT_LPARAM
       case 12
               message "événement n°"+str$(USER_EVENT_LPARAM)+chr$(13)+chr$(10)+"Résultat="+str$(USER_EVENT_WPARAM)
       end_select
     '
     '
     On_User_Event Traite_User_Event
    return

   label Traite_User_Event

    ' cré un edit caché qui permet de déclencher un évènement personnalisé
    dim event_index%,lparam%,wparam%,event_text$,pos_index%
    event_index%=9000
    edit event_index%  : hide event_index%


    ' évènement déclenché si le texte de l'edit caché est modifié
    On_change event_index%,Traite_User_Event

    ' déclenche l'évènement
    text event_index%,"12_34"


    END
    Traite_User_Event:
     Off_change event_index%
     '
     '
       event_text$=text$(event_index%) : pos_index%=instr(event_text$,"_")   :' récupère le contenu de l'edit caché
       lparam%=val(mid$(event_text$,1,pos_index%-1))                         :' extrait un paramètre
       wparam%=val(mid$(event_text$,pos_index%+1,5))                         :' extrait un second paramètre
       select lparam%
       case 12
               message "événement n°"+str$(lparam%)+chr$(13)+chr$(10)+"Résultat="+str$(wparam%)
       end_select
     '
     '
     On_change event_index%,Traite_User_Event
    return