Wie ändere ich die Rahmenfarben von Button?

Question

Ich bin neu in Visual Basic und ich möchte die Rahmenfarbe einer Button ändern, aber ich sehe keine Option, das in der IDE (Visual Studio 2017) zu tun. Gibt es eine Möglichkeit, dies zu tun?

Answer 1

Der Weg, dies zu tun, ist nicht sehr offensichtlich, da der Standard Button keine farbige Grenze erlaubt.

Zuerst müssen Sie die ButtonFlatStyle Eigenschaft auf FlatStyle.Flat setzen. Dann müssen Sie die ButtonFlatAppearance.BorderColor Eigenschaft auf die Farbe Ihrer Wahl einstellen.

Sie können in der Visual Studio Form Designer diese beiden Dinge tun, wenn Sie wollen, oder Sie können es in Code wie folgt tun:

Button1.Flatstyle = FlatStyle.Flat 
Button1.FlatAppearance.BorderColor = Color.Yellow 

Answer 2

Sie können dies mit ein paar verschiedene Möglichkeiten ist. Eine Option (schnell und einfach) ist die System.Windows.Forms.Button Klasse, Unterklasse und dann überschreiben die OnPaint Methode ...

Zum Beispiel:

Protected Overrides Sub OnPaint(ByVal pevent As System.Windows.Forms.PaintEventArgs) 
     MyBase.OnPaint(pevent) 
     Dim rect As New Rectangle(0, 0, Me.Width, Me.Height) 
     Dim mPen As New Pen(Color.Red, 3) 
     pevent.Graphics.DrawRectangle(mPen, rect) 
    End Sub 

Eine weitere Möglichkeit ist eine eigene Schaltfläche Steuerelement zu erstellen, Das braucht Zeit und Sie könnten besser davon profitieren, da Sie mehr Kontrolle darüber hätten, was Sie gerne tun würden. Wenn Ihr FlatStyle die Schaltfläche Eigenschaft auf „Flat“ eingestellt ist, könnten Sie die FlatApperance Eigenschaft in Designer ändern, wie border-Größe usw. ...

Answer 3

Button1.BorderColor = Drawing.Color.Red 

Answer 4

können Sie System.Windows.Forms.Button Klasse Unterklasse erstellen Sie dann Ihre eigene durch OnPaint geschützte Methode wie das Überschreiben:

Protected Overrides Sub OnPaint _ 
(ByVal pevent As System.Windows.Forms.PaintEventArgs) 
    MyBase.OnPaint(pevent) 
    Dim rect As New Rectangle(0, 0, Me.Width, Me.Height) 
    Dim mypen As New Pen(Color.Green, 5) 
    pevent.Graphics.DrawRectangle(mypen, rect) 
End Sub 

wenn jedoch Ihre Schaltfläche Flatstyle-Eigenschaft auf „Flat“, Sie FlatApperance Immobilien in Designer wie Grenz-Größe, border-color usw.

ändern