Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
» Automate cellulaire : simulation de feu de forêt
Sam 9 Déc - 2:56 par Admin

»  Exécution des fichiers CPL
Mar 28 Nov - 19:18 par Admin

» Quelques fonctions de la user32.dll
Sam 25 Nov - 1:43 par Admin

» Copier vers une FORM définie l’image de fond du bureau.
Ven 24 Nov - 2:38 par Admin

»  Capture d’écran de Windows
Ven 17 Nov - 0:27 par Admin

»  Courbes de Bézier cubiques
Mer 8 Nov - 2:28 par Admin

» Harmonographe
Mer 8 Nov - 2:22 par Admin

»  Simuler l’appui d'une touche ou combinaison de touches
Sam 16 Sep - 13:58 par Admin

» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031

Calendrier Calendrier


Fonctions de la user32.dll

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

Fonctions de la user32.dll

Message par Admin le Dim 18 Juin - 14:56

Code:

rem ============================================================================
rem    Voici quelques fonctions de la user32.dll : ça peut servir.
rem  Sinon, connaitre simplement leur existence ne fait de mal à personne.
rem        Sinon, vous pouvez toujours les jetter à la poubelle !
rem ============================================================================
' REMARQUE : Dans ces fonctions, le mot fenêtre est pris au sens de WINDOW, c-à-d
' Tout objet manipulé par WINDOW comme FORM, BUTTON, etc.
dim ret%,hWnd,hWndParent,Flag, ascii

form 10 : set_focus 10 : left 10,300
button 20 : parent 20,10

hWnd = handle(0)
print "handle(0) = " + str$(hWnd)

dll_on "user32.dll"

rem ============================================================================
rem GetForgroundWindow
' Cette fonction retourne un pointeur (Handle) vers la fenêtre qui se trouve
' au premier plan.
' Elle retourne 0 si aucune fenêtre n'est au premier plan (si un changement est en cours).
ret% = dll_call0("GetForegroundWindow")
print "Handle Forground = " + str$(ret%)
rem ============================================================================
rem GetFocus
' Cette fonction retourne le handle de la fenêtre qui a le Focus
ret% = dll_call0("GetFocus")
print "Handle Focus = " + str$(ret%)
print "Handle form 10 = " + str$(handle(10))
ret% = dll_call0("GetFocus")
print "Handle Focus = " + str$(ret%)
rem ============================================================================
rem GetDesktopWindow
' Cette fonction  retourne le Handle de la fenêtre correspondant au bureau
' (Celle sur laquelle sont affichés le fond d'écran, et les icônes).
ret% = dll_call0("GetDesktopWindow")
print "Handle du Bureau = " + str$(ret%)
rem ============================================================================
rem GetWindow
' retoure le handle de la fenêtre suivante (flag = 2)ou de la fenêtre précédente (flag = 3)
flag = 2 : ' fenêtre suivante
ret% = dll_call2("GetWindow",hWnd,flag)
print "handle de la fenêtre suivante = " + str$(ret%)
' retoure le handle de la fenêtre précédente (flag = 3)
flag = 3 : ' fenêtre précédente
ret% = dll_call2("GetWindow",hWnd,flag)
print "handle de la fenêtre précédente = " + str$(ret%)
rem ============================================================================
rem GetParent
' Cette fonction retourne  un pointeur (handle) vers la fenêtre parent dont
' le handle est passé en paramêtre.
' Si la fenêtre ne possède pas de parent, elle retourne 0.
ret% = dll_call1("GetParent",handle(20))
print "Handle Parent de Button 20 = " + str$(ret%)
rem ============================================================================
rem IsChild
' Cette fonction permet de savoir si une fenêtre est fille ou appartient à la
' descendance d'une autre.
' hWndParent est le handle de la fenêtre d'origine.
' hwnd est le handle de la fenêtre à tester.
' Si la seconde fenêtre fait partie de la descendance de la première la fonction
' retourne "1 = Vrai", sinon "0 = Faux".
hWnd = handle(20)       : ' handle du button 20
hWndparent = handle(10) : ' handle du form 10
ret% = dll_call2("IsChild",hWndParent,hWnd)
if ret% > 0
  print str$(hWndParent) + " est fils/fille de " + str$(hWnd)
else
  print str$(hWndParent) + " n' est pas fils/fille de " + str$(hWnd)
end_if
rem ============================================================================
rem GetSystemMetrics
' Cette fonction est utile pour connaître les dimensions des objets manipulés sous Windows.
' Envoyez en paramêtre une constante (voir liste ci-dessous) et récupérez le résultat en pixels.
' 0  : Largeur de l'écran
' 1  : Hauteur de l'écran
' 2  : Largeur des barres de défilement verticales.
' 3  : Hauteur des barres de défilement horizontales.
' 5  : Largeur d'une bordure de fenêtre.
' 6  : Hauteur d'une bordure de fenêtre.
' 11 : Largeur d'un icône.
' 12 : Hauteur d'un icône.
' 13 : Largeur du curseur.
' 14 : Hauteur du curseur.
' 15 : Hauteur d'une barre de menu.
' 19 : Indique si une souris est présente (renvoie '1 = Vrai' ou '0 = Faux').
' 20 : Hauteur des flèches dans les barres de défilement verticales.
' 21 : Largeur des flèches dans les barres de défilement horizontales.
' 23 : Indique si les boutons droit et gauche de la souris sont inversés (renvoie '1 = Vrai' ou '0 = Faux').
' 36 : Largeur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte.
' 37 : Hauteur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte.
' 43 : Indique le nombre de boutons présents sur la souris.
ret% = dll_call1("GetSystemMetrics",43)
print "Votre souris possède " + str$(ret%) + " boutons"
rem ============================================================================
rem IsCharAlphaA
' Cette fonction indique si un caractère est de type alphabétique (a-z,A-Z).
' Paramètre : code ASCII du caractère à tester.
' La fonction retourne 1 si le caractère est alphabétique, sinon 0.
ascii = asc("a")
ret% = dll_call1("IsCharAlphaA",ascii)
if ret% > 0
  print chr$(ascii) + " est alphabétique"
else
  print chr$(ascii) + " n' est pas alphabétique"
end_if
rem ============================================================================
rem IsCharAlphaNumericA
' Cette fonction indique si un caractère est de type alphanumérique.
' Paramètre : code ASCII du caractère à tester.
' La fonction retourne 1 si le caractère est alphanumérique, sinon 0.
ascii = asc("3")
ret% = dll_call1("IsCharAlphaNumericA",ascii)
if ret% > 0
  print chr$(ascii) + " est alphanumérique"
else
  print chr$(ascii) + " n' est pas alphanumérique"
end_if
rem ============================================================================
rem IsIconic
' Cette fonction permet de savoir si la fenêtre dont le handle est transmis en
' paramètre est réduite en icone ou non.
' La fonction retourne 1 si la fenêtre est réduite en icone, sinon 0.
ret% = dll_call1("IsIconic",handle(0))
if ret% > 0
  print "La fenêtre est réduite en inone"
else
  print "La fenêtre n'est pas réduite en icone"
end_if
rem ============================================================================
rem IsWindowVisible
' Cette fonction permet de savoir si une fenêtre est visible ou non,
' même cachée par d'autres.
' Elle retourne '1 = Vrai' si la fenêtre est effectivement visible, sinon '0 = Faux'.
' ------------------------------------------------------------------------------
hide 20 : ' on cache le bouton
ret% = dll_call1("IsWindowVisible",handle(20))
if ret% > 0
  print "La fenêtre est visible"
else
  print "La fenêtre n'est pas visible"
end_if
' ------------------------------------------------------------------------------
show 20 : ' on montre le bouton
ret% = dll_call1("IsWindowVisible",handle(20))
if ret% > 0
  print "La fenêtre est visible"
else
  print "La fenêtre n'est pas visible"
end_if
rem ============================================================================

dll_off
rem ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Admin
Admin

Messages : 75
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum