peug
Messages postés232Date d'inscriptionmercredi 25 octobre 2000StatutMembreDernière intervention 5 octobre 2012 8 janv. 2008 à 07:35
Ce que je cherche Renfield l'invente
Silmon
Messages postés85Date d'inscriptionmardi 6 janvier 2004StatutMembreDernière intervention 7 mai 2007 16 janv. 2006 à 14:51
Renfield merci pour ton code
Ça va m'etre très utile.
Juste une question:
Sous windows XP, lorsque j'applique une region dans une form,
elle perd l'aspect XP.
Sais-tu pourquoi?
Existe-t-il un moyen "d'anuler une region" dans une form
pour retrouver l'aspect original?
Merci d'avance.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 24 oct. 2003 à 21:25
oui, en y repensant legeremment, c'est vrai que c'est logique, on cré a chaque fois une nouvelle region, en ca s'entasse en memoire.....
Il y a un bug a long termes et a utilisation multiples pour le resoudres il suffit de rajouter a la fonction : DeleteObject RGNOUT
ainsi :
Public Function RgnInRgn(ByVal RGN1 As Long, ByVal RGN2 As Long) As Boolean
'# RGNOUT doit pointer sur une region valide !!
Dim RGNOUT As Long: RGNOUT = CreateRectRgn(0, 0, 0, 0)
'# CombineRGN renvoie NULLREGION si la region est vide
'# Dans le cas présent, on tente d'effectuer une intersection des deux regions. (RGN_AND)
RgnInRgn = NULLREGION <> CombineRgn(RGNOUT, RGN1, RGN2, RGN_AND)
DeleteObject RGNOUT ' Important sinon ca peut planter, j'ai fais des test.
End Function
Sinon une régions se créra et prendra tout l'ecran en modifiant les fenêtre, cette version marche normalent
Inekman
Messages postés291Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention30 juin 2006 9 oct. 2003 à 19:32
Y'a t'il des sources sur le site explicant le fonctionnement des régions, notamment en montrant la création d'objet "de <> formes" ?
Merci.
cs_OphidiaN
Messages postés235Date d'inscriptionmercredi 4 avril 2001StatutMembreDernière intervention 9 novembre 2007 5 oct. 2003 à 16:46
a faire des objets de <> formes (fenetres, boutons...)
cs_RaZoR
Messages postés102Date d'inscriptionvendredi 22 février 2002StatutMembreDernière intervention22 décembre 2003 5 oct. 2003 à 16:31
ça sert à quoi une region ??
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 5 oct. 2003 à 14:27
8 janv. 2008 à 07:35
16 janv. 2006 à 14:51
Ça va m'etre très utile.
Juste une question:
Sous windows XP, lorsque j'applique une region dans une form,
elle perd l'aspect XP.
Sais-tu pourquoi?
Existe-t-il un moyen "d'anuler une region" dans une form
pour retrouver l'aspect original?
Merci d'avance.
24 oct. 2003 à 21:25
24 oct. 2003 à 21:06
ainsi :
Public Function RgnInRgn(ByVal RGN1 As Long, ByVal RGN2 As Long) As Boolean
'# RGNOUT doit pointer sur une region valide !!
Dim RGNOUT As Long: RGNOUT = CreateRectRgn(0, 0, 0, 0)
'# CombineRGN renvoie NULLREGION si la region est vide
'# Dans le cas présent, on tente d'effectuer une intersection des deux regions. (RGN_AND)
RgnInRgn = NULLREGION <> CombineRgn(RGNOUT, RGN1, RGN2, RGN_AND)
DeleteObject RGNOUT ' Important sinon ca peut planter, j'ai fais des test.
End Function
Sinon une régions se créra et prendra tout l'ecran en modifiant les fenêtre, cette version marche normalent
9 oct. 2003 à 19:32
Merci.
5 oct. 2003 à 16:46
5 oct. 2003 à 16:31
5 oct. 2003 à 14:27
9/10
DarK Sidious
5 oct. 2003 à 12:05