begin process at 2012 02 09 22:42:40
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

API-OLE

 > FORMULAIRE ARRONDI

FORMULAIRE ARRONDI


 Information sur la source

Note :
Aucune note
Catégorie :API-OLE Classé sous :formulaire, elliptique, arrondi, api Niveau :Débutant Date de création :05/10/2004 Date de mise à jour :18/07/2006 09:01:00 Vu :10 624
Auteur : FredArmoni

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Juste une utilisation de l'API Win32 pour créer un formulaire elliptique

Source

  • * arrondir le form
  • * ce bout de code doit apparaitre dans l'Init du formulaire
  • Local nhWnd, nWidth, nHeight, hRegion
  • * dans gdi32
  • Declare Integer CreateEllipticRgn In gdi32 ;
  • Integer X1 , Integer Y1 , Integer X2 , Integer Y2
  • Declare Integer DeleteObject In gdi32 Integer hObject
  • * dans user32
  • Declare Integer SetWindowRgn In user32 ;
  • Integer HWND, Integer hRgn , Integer bRedraw
  • nhWnd = This.HWnd
  • nWidth = This.Width && vous pouvez changer le rapport ici (en divisant par 2, 3 ...)
  • nHeight = This.Height && de même qu'ici
  • hRegion = CreateEllipticRgn(0, 0, nWidth, nHeight)
  • SetWindowRgn(nhWnd, hRegion, 1)
  • * on relache
  • DeleteObject(hRegion)
  • Clear DLLs "CreateEllipticRgn","SetWindowRgn" 
* arrondir le form
* ce bout de code doit apparaitre dans l'Init du formulaire

Local nhWnd, nWidth, nHeight, hRegion

* dans gdi32
Declare Integer CreateEllipticRgn In gdi32 ;
        Integer X1 , Integer Y1 , Integer X2 , Integer Y2
Declare Integer DeleteObject In gdi32 Integer hObject
* dans user32
Declare Integer SetWindowRgn In user32 ;
        Integer HWND, Integer hRgn , Integer bRedraw

nhWnd = This.HWnd
nWidth = This.Width && vous pouvez changer le rapport ici (en divisant par 2, 3 ...)
nHeight = This.Height && de même qu'ici
hRegion = CreateEllipticRgn(0, 0, nWidth, nHeight)
SetWindowRgn(nhWnd, hRegion, 1)
* on relache
DeleteObject(hRegion)
Clear DLLs "CreateEllipticRgn","SetWindowRgn"

 Conclusion

J'ai testé ce code sur mon exemple précédent (l'écran d'attente style matrix).
Effet ludique garanti.


 Historique

05 octobre 2004 16:34:54 :
prise en compte de la remarque de BruNews
06 octobre 2004 14:50:48 :
correction d'un typo dans le titre
18 juillet 2006 09:01:00 :
DeleteObject sur le hRegion comme suggéré :)

 Sources du même auteur

[VFP]CLASSE SYSTEMTIME
CRYPTE/DECRYPTE
Source avec Zip SPLASHSCREEN TYPE ALERTE D'OUTLOOK2003
[VFP] UTILISER UN WEB SERVICE
Source avec Zip CLASSE EDITEUR HTML
Toutes les sources de FredArmoni

 Sources de la même categorie

AUTOMATION DE WORD AVEC VFP par AbaqueInside
LISTER LES ADRESSES IP DE LA MACHINE par FrancisFaure
OUVRIR UN DOCUMENT WORD PAR AUTOMATION ET FAIRE UNE FUSION A... par leissler
[VFP]CLASSE SYSTEMTIME par FredArmoni
Source avec Zip SPLASHSCREEN TYPE ALERTE D'OUTLOOK2003 par FredArmoni
Toutes les sources de la catégorie API-OLE

 Sources en rapport avec celle ci

LISTER LES ADRESSES IP DE LA MACHINE par FrancisFaure
CREER UNE TABLE CONTENANT LA LITES COMPLÈTE DES OBJETS CONTE... par aumeric
C83ADDRESS() VERSION COURTE (8.3) DE L'ADRESSE D'UN FICHIER/... par AbaqueInside
ALLEZ, POUR S'AMUSER... UNE CLASSE FORMULAIRE D'ATTENTE STYL... par FredArmoni

Commentaires et avis

Commentaire de BruNews le 05/10/2004 16:01:43 administrateur CS

Salut,

on ne libere pas le memoire dans Foxpro, y a-t-il un garbagecollector en sortie de procedure ?
Normalement, a tout appel Createxxx() de la GDI devrait correspondre un DeleteObject() liberateur.

ciao...

Commentaire de FredArmoni le 05/10/2004 16:07:40 administrateur CS

normalement oui mais tout ça ce fait en quittant l'appli.
Ceci dit, il ne s'agit que d'un pointeur vers une fonction API.

Sinon, on peut faire un RELEASE DLL
La remarque est bonne, je la note et corrige...

Merci

Fred

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

API windows [ par captainstf ] Salut à tous!Je travaille actuelle sur l'api windows et je gallère pas mal :1- Je cherche à mettre une application au premier plan, j'utilise :showwin combobox dans un formulaire [ par brunaux ] Bonjour à tous !utilisant VFP 6.0 occasionnellement pour faire des écrans de saisie,je voudrais savoir comment l'on fait dans un combobox(donc avec un re-combobox dans formulaire [ par brunaux ] Bonjour !merci thierry et mike pour votre aide si précieuse,je vais pouvoir me débrouiller maintenant et arriver à faire quelque chose qui marche ! me formulaire ajustable [ par brunaux ] Bonjour !merci thierry pour la reponse pour ajuster automatiquement un formulaire suivant la taille de l'ecran de l'utilisateur !encore merci problème du serveur ole [ par h_adil ] j'ai inseré un objet excel dabs une formulaire mais lorsque je passe du mode création au moode formulaire j'ai un message qui apparait "&nbs Gestion d'objet [ par spoutnic_37 ] Salutation,     Mon probleme est le suivant : comment faire un ensemble de formulaire grace à visual foxpro 6, et gérer les Formulaire premier niveau et enfant . [ par spoutnic_37 ] aloha !!!   Je voudrais faire apparaitre des formulaires enfants dans un formulaire parent. Je parametre donc avec showWindow et mdifor formulaire-->Excel [ par Domatreal ] Salut J'ai creer un formulaire et j'aimerais savoir si on pouvait exporter le resultat (tel qu'il apparait) dans un fichier excel. Merci bie a faire et ne pas faire en VFP [ par brunaux ] Je suis utilisateur occasionnel et en lisant une contribution dans ATOUTFOX il y a un article qui s'intitule ' a faire et ne pas faire en VFP' j'aimer pb d'exe ! [ par spoutnic_37 ] aloha ,       j'ai un probleme avec mon executable. En fait j'ai un formulaire qui possede les bonnes tables dans l


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Renewable Energy is Within Reach 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,123 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)