Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Novembre 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendrier Calendrier


Fonctions de la user32.dll

Aller en bas

Fonctions de la user32.dll

Message par Papydall-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
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 68
Localisation : MOKNINE (Tunisie)

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

Revenir en haut Aller en bas

Revenir en haut


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