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
» Mais qui a le focus ?
par Klaus Aujourd'hui à 11:48

» Mac OS X sierra
par Irikte Aujourd'hui à 11:38

» Concours de Morpions
par Froggy One Aujourd'hui à 10:29

» Synedit Parameters
par Jean Claude Aujourd'hui à 10:08

» Bienvenue à Irikte
par UltraVox Aujourd'hui à 10:04

» Recherche de traductions de mots (@Klaus).
par Klaus Aujourd'hui à 9:44

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 22:52

» Panoramic et ses curiosités
par Jack Hier à 8:15

» Utilitaire de suppression de fichiers
par Yannick Ven 23 Juin 2017 - 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Utilisation de KGF.dll pour manipuler une fenêtre

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

avatar

Nombre de messages : 9977
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Utilisation de KGF.dll pour manipuler une fenêtre   Lun 12 Oct 2015 - 0:28

KGF.dll contient une série de fonctions qui permettent de manipuler les fenêtres. Ce soir, je propose un petit essai de "destruction" d'une fenêtre. Le programme affiche une fenêtre jaune, ainsi que deux boutons à essyer. Je n'en dis pas plus - téléchargez la dernière version de KGF.dll et cliquez sur un des boutons, et au lancement suivant, sur l'autre. Vous serez surpris !
Code:
' fenetre_auto_cassante.bas

label start1, start2

dim lig%, col%, masque%(8,6), cnt%, res%, n% , reg1%, reg2%

width 0,800 : height 0,600
color 0,255,255,0

button 1 : caption 1,"Start 1" : on_click 1,start1
button 2 : caption 2,"Start 2" : on_click 2,start2 : top 2,25

end

start1:
  dll_on "KGF.dll"
  n% = dll_call1("RandomValue",0-1)
  reg1% = 0
  repeat
    repeat
      n% = dll_call1("RandomValue",48)
      lig% = int((n%-1)/8)
      col% = n% - lig%*8
      lig% = lig% + 1
    until masque%(col%,lig%)=0
    res% = dll_call5("WindowAddRectangleRegion",adr(reg1%),(col%-1)*100,(lig%-1)*100,100,100)
    reg2% = DLL_call3("WindowRegionHole",handle(0),1,adr(reg1%))
    masque%(col%,lig%) = 1
    cnt% = cnt% + 1
    pause 100
  until cnt% = 48
  res% = dll_call1("KillProcessByHandle",handle(0))
  return

start2:
  dll_on "KGF.dll"
  reg1% = 0
  for cnt%=1 to 12
    res% = dll_call5("WindowAddEllipticRegion",adr(reg1%),400-40*cnt%,300-40*cnt%,cnt%*80,cnt%*80)
    reg2% = DLL_call3("WindowRegionHole",handle(0),1,adr(reg1%))
    pause 500
  next cnt%
  res% = dll_call1("KillProcessByHandle",handle(0))
  return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

Nombre de messages : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Utilisation de KGF.dll pour manipuler une fenêtre   Lun 12 Oct 2015 - 0:48

oui c sympas klaus
bravo

petite blague:
Arrête d'en ajouter on ne vas plus avoir de place dans notre
disque dur lol


Dernière édition par pascal10000 le Lun 12 Oct 2015 - 0:53, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



Nombre de messages : 441
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Utilisation de KGF.dll pour manipuler une fenêtre   Lun 12 Oct 2015 - 0:51

Original et amusant... Very Happy
Merci !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5385
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Utilisation de KGF.dll pour manipuler une fenêtre   Lun 12 Oct 2015 - 3:16

Ça c’est beau !

Adapter la ligne 7.
Lancer le programme et cliquer un peu partout dans la FORM.
Voici l'image utilisée dans le programme.
Vous pouvez l'enregistrer : Click droit sur l'image puis enregistrer l'image sous
Vous pouvez utiliser n'importe quelle autre image.

fleur.jpg:
 
Code:

rem ============================================================================
label click
dim x%,y%,res%,reg1%,reg2%

form 10 : width 10,600 : height 10,500  : on_click 10,click
picture 20 : full_space 20
file_load 20,"c:\users\acer\desktop\fleur.jpg" : ' Adapter le chemin
dll_on "KGF.dll"

end
click:
   x% = mouse_x_left_down(10) : y% = mouse_y_left_down(10)
   res% = dll_call5("WindowAddRectangleRegion",adr(reg1%),x%,y%,50,50)
   reg2% = DLL_call3("WindowRegionHole",handle(10),1,adr(reg1%))
return
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
Klaus

avatar

Nombre de messages : 9977
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Utilisation de KGF.dll pour manipuler une fenêtre   Lun 12 Oct 2015 - 3:46

Bien vu, Papydall ! Mais que tu es brutal avec une pauvre fleur qui ne demande que la venue d'une abeille... Smile Smile Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7839
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: RE   Lun 12 Oct 2015 - 4:04

Mais que vous ont fait ces pauvres form pou mériter çà ?...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5385
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Utilisation de KGF.dll pour manipuler une fenêtre   Lun 12 Oct 2015 - 4:12

Klaus a écrit:
Bien vu, Papydall ! Mais que tu es brutal avec une pauvre fleur qui ne demande que la venue d'une abeille... Smile Smile Smile

La jolie fleur étais cachée. Je l'ai dévoilée pour l'admirer.

On peut imaginer un jeu de grattage avec cette technique, non?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
Contenu sponsorisé




MessageSujet: Re: Utilisation de KGF.dll pour manipuler une fenêtre   

Revenir en haut Aller en bas
 
Utilisation de KGF.dll pour manipuler une fenêtre
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Comment faire pour afficher une fenêtre pop-up ?
» [Résolu] Problème d'envoi de mail (smtp)
» mettre les grandeurs dans le générateur de commandes
» code pour ouverture de fenêtre au passage d'une sourie
» Où est la doc de BaseCamp ?

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