Arrondir angles
cs_aurel16
Messages postés
75
Date d'inscription
samedi 17 septembre 2005
Statut
Membre
Dernière intervention
29 octobre 2010
-
25 janv. 2009 à 21:38
cs_aurel16 Messages postés 75 Date d'inscription samedi 17 septembre 2005 Statut Membre Dernière intervention 29 octobre 2010 - 26 janv. 2009 à 14:54
cs_aurel16 Messages postés 75 Date d'inscription samedi 17 septembre 2005 Statut Membre Dernière intervention 29 octobre 2010 - 26 janv. 2009 à 14:54
2 réponses
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
25 janv. 2009 à 22:02
25 janv. 2009 à 22:02
Salut,
Avec l'article de Mitsu il y a peut etre moins de faire ca.
http://www.techheadbrothers.com/Articles.aspx/windows-forms-developpement-tabcontrol-onglets-page-4
Autre article
http://www.codeproject.com/KB/tabs/flattabcontrol.aspx
Avec l'article de Mitsu il y a peut etre moins de faire ca.
http://www.techheadbrothers.com/Articles.aspx/windows-forms-developpement-tabcontrol-onglets-page-4
Autre article
http://www.codeproject.com/KB/tabs/flattabcontrol.aspx
cs_aurel16
Messages postés
75
Date d'inscription
samedi 17 septembre 2005
Statut
Membre
Dernière intervention
29 octobre 2010
26 janv. 2009 à 14:54
26 janv. 2009 à 14:54
Bonjour,
Je te remercie [auteur/NHERVAGAULT/84425.aspx nhervagault], mais j'ai réussi grâce à cette méthode :
<System.Runtime.InteropServices.DllImportAttribute("gdi32.dll", SetLastError:=True)>
Private Function CreateRoundRectRgn(ByVal X1 As Int32, ByVal Y1 As Int32, ByVal X2 As Int32, ByVal Y2 As Int32, ByVal X3 As Int32, ByVal Y3 As Int32) As IntPtr
End Function
<System.Runtime.InteropServices.DllImportAttribute("gdi32.dll", SetLastError:=True)> Private Function DeleteObject(ByVal hObject As IntPtr) As Int32
End Function
<System.Runtime.InteropServices.DllImportAttribute("user32.dll", SetLastError:=True)> Private Function SetWindowRgn(ByVal hwnd As IntPtr, ByVal hRgn As IntPtr, ByVal bRedraw As Boolean) As Int32
End Function
Public Sub RoundCorners(ByRef tabcontrol As System.Windows.Forms.Form, Optional ByVal Angle As System.Byte = 15)
With tabcontrol
Dim lRet As IntPtr = CreateRoundRectRgn(0, 0, .Width, .Height, Angle, Angle)
SetWindowRgn(.Handle, lRet, True)
DeleteObject(lRet)
End With
End Sub
mais cela efface la bordure du tabcontrol, comment faire pour la refaire apparaitre ?
merci
Je te remercie [auteur/NHERVAGAULT/84425.aspx nhervagault], mais j'ai réussi grâce à cette méthode :
<System.Runtime.InteropServices.DllImportAttribute("gdi32.dll", SetLastError:=True)>
Private Function CreateRoundRectRgn(ByVal X1 As Int32, ByVal Y1 As Int32, ByVal X2 As Int32, ByVal Y2 As Int32, ByVal X3 As Int32, ByVal Y3 As Int32) As IntPtr
End Function
<System.Runtime.InteropServices.DllImportAttribute("gdi32.dll", SetLastError:=True)> Private Function DeleteObject(ByVal hObject As IntPtr) As Int32
End Function
<System.Runtime.InteropServices.DllImportAttribute("user32.dll", SetLastError:=True)> Private Function SetWindowRgn(ByVal hwnd As IntPtr, ByVal hRgn As IntPtr, ByVal bRedraw As Boolean) As Int32
End Function
Public Sub RoundCorners(ByRef tabcontrol As System.Windows.Forms.Form, Optional ByVal Angle As System.Byte = 15)
With tabcontrol
Dim lRet As IntPtr = CreateRoundRectRgn(0, 0, .Width, .Height, Angle, Angle)
SetWindowRgn(.Handle, lRet, True)
DeleteObject(lRet)
End With
End Sub
mais cela efface la bordure du tabcontrol, comment faire pour la refaire apparaitre ?
merci