Afyn
Messages postés608Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention22 décembre 2016
-
13 nov. 2003 à 16:24
CLENFER
Messages postés7Date d'inscriptionlundi 15 septembre 2003StatutMembreDernière intervention 9 août 2007
-
4 août 2005 à 20:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
CLENFER
Messages postés7Date d'inscriptionlundi 15 septembre 2003StatutMembreDernière intervention 9 août 2007 4 août 2005 à 20:48
Sur un proget avec forme mdi,avec plusieurs forme d'ouverte a partir de 3 y se passe quelque chose de bizarre genre les formes ne veulent plus fermer.A cause de l'ocx.
Fabio972
Messages postés62Date d'inscriptiondimanche 22 octobre 2000StatutMembreDernière intervention 4 août 2004 15 janv. 2004 à 13:42
Merci Renfield pour ce source.
Ca permet de voir rapidement l'effet, mais vaux mieux quand même mettre ce code dans le "Resize" si on agrandi la fenêtre.
Dis trifonnerie, tu peux mettre le code de Renfield dans la partie source et juste une petite capture car ce code peut servir.
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 16 déc. 2003 à 13:52
Va voir ma source nommée Horloge système 1.0 : il s'agit d'un découpage de feuille par rapport à un texte !
DarK Sidious
Sibelle07
Messages postés206Date d'inscriptiondimanche 14 septembre 2003StatutMembreDernière intervention25 mars 2005 16 déc. 2003 à 13:49
j'ai toujours eu envie de trouver des sources comme sa pour par exemple que le form ai une forme triangulaire ou ovale !
Si on sait ou trouver sa dite le moi pleaze !
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 13 nov. 2003 à 19:29
En tout cas, il existe d'autres sources sur ce site qui font la même chose avec le code en plus !
DarK Sidious
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 13 nov. 2003 à 18:38
Oué avec les source c mieu !! Et avec une screen aussi, le premier but des appli visuels c'est de les voir, alors j'estime qu'un apercu est toujours nécessaire dans ce cas.
Et merci a Bill Gates pour la source ;-)
Afyn
Messages postés608Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention22 décembre 2016 13 nov. 2003 à 17:32
Renfield -> Ben au moins comme ça c'est clair.
A+
Afyn
Navedac
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 nov. 2003 à 16:41
Private Declare Function CreateRoundRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function GetClientRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim R As RECT
GetClientRect Me.hWnd, R
Dim hRgn As Long
hRgn = CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30)
SetWindowRgn hWnd, hRgn, True
DeleteObject hRgn
End Sub
Afyn
Messages postés608Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention22 décembre 2016 13 nov. 2003 à 16:24
C'est bien d'arrondir les angles, mais c'est mieux de donner les sources !
4 août 2005 à 20:48
15 janv. 2004 à 13:42
Ca permet de voir rapidement l'effet, mais vaux mieux quand même mettre ce code dans le "Resize" si on agrandi la fenêtre.
Dis trifonnerie, tu peux mettre le code de Renfield dans la partie source et juste une petite capture car ce code peut servir.
16 déc. 2003 à 13:52
DarK Sidious
16 déc. 2003 à 13:49
Si on sait ou trouver sa dite le moi pleaze !
13 nov. 2003 à 19:29
DarK Sidious
13 nov. 2003 à 18:38
Et merci a Bill Gates pour la source ;-)
13 nov. 2003 à 17:32
A+
Afyn
Navedac
13 nov. 2003 à 16:41
Private Declare Function GetClientRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim R As RECT
GetClientRect Me.hWnd, R
Dim hRgn As Long
hRgn = CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30)
SetWindowRgn hWnd, hRgn, True
DeleteObject hRgn
End Sub
13 nov. 2003 à 16:24
A+
Afyn
Navedac