[Résolu] Arrondir les fomes vb.net

[ninjajaune]

Bonjour à tous,

 

je sais qu'il existe des fonctions ou api qui permettrait d'arrondir ou découper les formes. Mais je ne parviens plus à mettre la main dessus.

 

Ce que je voudrais faire c'est de pouvoir découper ou arrondir mes usercontrol pour les rendres plus agréable à regarder.

 

D'avance merci.

 

Bien à vous.

[Lupin]

Bonjour,

 

J'ai trouvé ceci en naviguant, peut-être ceci peut-il vous être utile

dans votre démarche.

 

http://plasserre.developpez.com/cours/vb-net/?page=ui-winforms1#VIII-C-9

 

Bonne continuité.

 

Lupin

Modifié le 18 janvier 2011 par Lupin

[ninjajaune]

Merci pour votre réponse.

 

J'ai trouvé ceci pour ceux qui s'intéresse:

 

Public Class ucgain

Declare Function CreateRoundRectRgn Lib "gdi32" (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 val As Integer

Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub ucgain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim rndrectangle

Dim frmApplique

Try

rndrectangle = CreateRoundRectRgn(1, 1, 390, 27, 15, 15)

frmApplique = SetWindowRgn(Me.Handle, rndrectangle, True)

Catch ex As Exception

MessageBox.Show(ex.ToString)

End Try

End Sub

 

J'ai réussi à faire ce que je voulais.

Bien à vous.

[Dylav]

Le problème semble avoir trouvé sa solution.

Ainsi, afin de signaler clairement à ceux qui ont un problème similaire qu'ils ont peut-être une solution toute trouvée (s'ils pensent à utiliser la fonction Recherche en indiquant le mot-clé "résolu" auparavant), et afin de signaler aux autres contributeurs qu'il est inutile de continuer à se creuser la tête sur le problème (à moins d'avoir des suppléments d'informations à apporter pour mieux comprendre ce qui posait problème), un modérateur a préfixé le titre du topic avec la mention [résolu].

Merci, à l'avenir, de bien vouloir prendre à votre charge cette mise à jour quand vous estimez que votre problème a été résolu de manière satisfaisante (et parallèlement, si le problème a disparu "mystérieusement", inutile d'induire les gens en erreur ) Pour cela, votre premier message

[Lupin]

Merci pour votre réponse.

 

J'ai trouvé ceci pour ceux qui s'intéresse:

 

Public Class ucgain

Declare Function CreateRoundRectRgn Lib "gdi32" (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 val As Integer

Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub ucgain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim rndrectangle

Dim frmApplique

Try

rndrectangle = CreateRoundRectRgn(1, 1, 390, 27, 15, 15)

frmApplique = SetWindowRgn(Me.Handle, rndrectangle, True)

Catch ex As Exception

MessageBox.Show(ex.ToString)

End Try

End Sub

 

J'ai réussi à faire ce que je voulais.

Bien à vous.

 

re:

Je connaissais cette approche, toutefois je ne l'ai pas souligné puisqu'elle

utilise la(es) librairies de Windows plutôt que le FrameWork .NET

 

Content que cela vous agrée

 

Lupin