Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

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

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

»  Exemple de menu
Lun 26 Juin - 22:36 par Admin

Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   

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 : 66
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