FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par bignono Aujourd'hui à 20:14

» Compilateur FBPano
par jean_debord Aujourd'hui à 11:07

» Documentation de KGF
par Klaus Hier à 22:52

» Zoom sur une portion d'écran
par JL35 Hier à 21:51

» double guillemets "" dans un EDIT
par pascal10000 Hier à 21:08

» Recherche d'une expression dans un source
par Marc 37 Hier à 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 17 Nov 2017 - 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 évènement USER_EVENT(freebasic DLL)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
silverman

avatar

Nombre de messages : 471
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: évènement USER_EVENT(freebasic DLL)   Mer 4 Jan 2017 - 17:41

Bonjour à tous!

Voici le code de jack traduis en freebasic pour déclencher un évènement par DLL:
Code:
' MaDLL.bas
' compile with: fbc -dll MaDLL.bas
' ou: "<$fbc>" "-dll" "<$file>"
' (original: "<$fbc>" "<$file>")


' Sujet 'Evènement USER_EVENT': http://panoramic.free-boards.net/t4785-evenement-user_event


' l'include est présent dans le package FreeBasic
#include "windows.bi"


EXTERN "windows-ms"

    const WM_USER=1024   'standard Windows
    const Message_DLL=WM_USER+3000   '3000 = valeur pour les messages panoramic(défini par Jack)
    dim shared WP as UInteger
    dim shared LP as UInteger
    dim shared Result as UInteger
    
    Declare Function USER_EVENT(ByVal Nb1 As Any Ptr) As Integer
    
    
    ' ICI COMMENCE PANORAMIC
    
    Function USER_EVENT(ByVal Nb1 As Any Ptr) As Integer export
       'nb1 = handle du form 0 reçu de panoramic
       WP=10   'par exemple
       LP=20   'par exemple
       '
       Result=SendMessage(Nb1, Message_DLL, WP, LP)   'envoi un message(c'est à dire WP et LP) au form 0(=déclencher évènement)
       function = Result   'contrairement à un sub, une fonction doit renvoyer un résultat
    end function


END EXTERN
Une fois compilé, on obtient 'MaDLL.dll'

et le source en panoramic pour tester:
Code:
label traite_event
On_User_Event traite_event
dll_on "MaDLL.dll"
print dll_call1("USER_EVENT",handle(0))
dll_off
end

traite_event:
message "événement déclenché par DLL"+chr$(13)+chr$(10)+str$(USER_EVENT_LPARAM)+chr$(13)+chr$(10)+str$(USER_EVENT_WPARAM)
return

Amusez-vous! Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
évènement USER_EVENT(freebasic DLL)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Nouvelle chaîne de type Évènement : 20 - Dracula TV
» Un événement Nokia les 26 et 27 septembre prochains ?
» [RPG VX Projet terminé] Zeeshan l'avènement des djinns
» Savoir sur quel objet un évènement a eu lieu
» GlobalMemoryStatus

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: