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
» Reprise du développement et de la documentation
par Fredisland Aujourd'hui à 12:53

» Une copie de Panoramic Editeur
par Jean Claude Hier à 21:03

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Hier à 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

» Création d'une application avec Panoramic_Editor
par Klaus Mar 15 Mai 2018 - 0:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 évènement USER_EVENT(freebasic DLL)

Aller en bas 
AuteurMessage
silverman

avatar

Nombre de messages : 614
Age : 45
Localisation : Picardie
Date d'inscription : 18/03/2015

MessageSujet: évènement USER_EVENT(freebasic DLL)   Mer 4 Jan 2017 - 15: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)
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: