WinForm aux bords arrondis et déplaçable

Signaler
Messages postés
29
Date d'inscription
samedi 21 avril 2018
Statut
Membre
Dernière intervention
23 décembre 2018
-
cs_Le Pivert
Messages postés
6617
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 mars 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/102685-winform-aux-bords-arrondis-et-deplacable

cs_Le Pivert
Messages postés
6617
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 mars 2020
99
Bonjour,

Quelques petites précisions pour que cela fonctionne:
Mettre

Option Strict On
Imports System.Drawing.Drawing2D


Ensuite il faut que le Form ait la propriété FormBorderStyle à None et mettre un évenement pour le fermer comme ceci:

 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End Sub
    Private Sub Form1_MouseDoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
        Me.Close()
    End Sub


et si vous ne voulez pas voir les contours changer cela

 Dim monRectangle As New Rectangle(12, 4, Me.Width - 24, Me.Height - 4)


par ceci

 Dim monRectangle As New Rectangle(0, 0, Me.Width, Me.Height)


Sinon c'est sympa

@+ Le Pivert
GregYoung
Messages postés
29
Date d'inscription
samedi 21 avril 2018
Statut
Membre
Dernière intervention
23 décembre 2018

Oui j'avais essayé, mais pas trouvé la balise qui permettait de convertir le contenu.. Désolé.
> Description ajoutée
vb95
Messages postés
2098
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
25 mars 2020
89
Merci jordane45
Ai lu trop vite désolé
Mes yeux me trahissent !
vb95
Messages postés
2098
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
25 mars 2020
89
Merci bien pour ta réactivité !