Discussion :

[Cyberbob21t]

Bonjour tout le monde,


Voila mon problème. J'ai une picturebox ayant comme couleur de fond ControlDark. Jusque la tout va bien. Je pose un bouton sur cette Picture box, et bien sur, il faut que le bouton soit en mode 3D. Et le problème viens que ca fait pas mal de bords baveux, ce qui ne correspond pas à l'attente

Ma question : y'a t'il un moyen de corriger ce problème d'affichage. J'ai essaye quelques astuces sur le fond transparent, mais sans résultat.

Merci d'avance.

PS : J'ai mis un petit screenshot pour vous aider à comprendre.

[Pol63]

en mode execution a tu toujours le probleme ?
sinon tu recréé un control bouton ...

[Aspic]

Bah c'est bien ton bouton... si tu veux virer la petite bordure de 1px alors créer un bouton hérité !

[Cyberbob21t]

Oui c'est ca je veux virer cette bordure... J'ai essayé , mais tu le fais comment .. tu surcharges quelle méthode ?

[Aspic]

Oui c'est ca je veux virer cette bordure... J'ai essayé , mais tu le fais comment .. tu surcharges quelle méthode ?

Dans ce domaine Sperot51 t'aidera surement plus que moi Sinon tu hérites ton controle de composant "button", et puis c'est peut etre la méthode "OnPaint" qui faut surcharger...

[olsimare]

Bonjour.

Tu peux jouer sur .region du button dans la sub onresize. Avec ça, tu définis la région du control que tu souhaites.
Le probléme c'est qu'en faisant ça, tu "tronques" la region initiale du control et que généralement, pour bien faire, il faut également le dessiner à la main dans le onpaint.

Un exemple de jeu sur le .region :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Public Class monButtonBebete
    Inherits Button
    Protected Overrides Sub OnResize(ByVal eventargs As EventArgs)
        MyBase.OnResize(eventargs)
        Me.Region = New Region(getClientPath(3))
    End Sub
 
    Private Function getClientPath(ByVal intSpaceFromBorder As Integer) As System.Drawing.Drawing2D.GraphicsPath
 
        Dim pPath As New System.Drawing.Drawing2D.GraphicsPath()
 
        Dim rPath As Rectangle = Me.ClientRectangle
        With rPath
            .X = intSpaceFromBorder
            .Y = intSpaceFromBorder
            .Width = Me.Bounds.Width - intSpaceFromBorder * 2
            .Height = Me.Bounds.Height - intSpaceFromBorder * 2
        End With
 
        pPath.StartFigure()
        pPath.AddEllipse(rPath)
        pPath.CloseFigure()
 
        Return pPath
 
    End Function
 
End Class

Cdt.