So ändern Sie die Schaltfläche Rahmen, Farben?

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

InformationsquelleAutor SystemD | 2017-06-29
  1. 3

    Die Art und Weise, dies zu tun ist nicht sehr offensichtlich, da die Standard - Button nicht für einen farbigen Rand.

    Zuerst müssen Sie die Button's FlatStyle Eigenschaft FlatStyle.Flat. Dann müssen Sie die Button's FlatAppearance.BorderColor Eigenschaft der Farbe Ihrer Wahl.

    Können Sie tun, diese beiden Dinge in der Visual Studio form designer, wenn Sie wollen, oder Sie können es in code wie diesem:

    Button1.Flatstyle = FlatStyle.Flat
Button1.FlatAppearance.BorderColor = Color.Yellow
    InformationsquelleAutor Blackwood
  2. 2

    Können Sie dies tun, ein paar verschiedene Möglichkeiten. Eine option (schnell und einfach) ist eine Unterklasse der System.Windows.Forms.Button Klasse und überschreiben dann die OnPaintMethode...

    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

    Weitere option ist das erstellen Ihrer eigenen button-Steuerelement, das dauert seine Zeit und Sie könnte davon profitieren, besser als Sie hätte mehr Kontrolle in dem, was Sie gerne tun würden. Wenn Sie Ihre Schaltfläche FlatStyle - Eigenschaft festgelegt ist auf "Flat" Sie könnte sich ändern, die FlatApperance - Eigenschaft im designer wie Rahmen-Größe und etc...

    InformationsquelleAutor Çöđěxěŕ
  3. 1
    Button1.BorderColor = Drawing.Color.Red
    InformationsquelleAutor Ang Xiong Lin
  4. -1

    Können Sie eine Unterklasse System.Windows.Formen.Button-Klasse, dann erstellen Sie Ihre eigenen durch überschreiben der OnPaint-protected-Methode so:

    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

    Allerdings , wenn Ihr button FlatStyle-Eigenschaft auf "Flat", können Sie ändern FlatApperance-Eigenschaft im designer wie Rahmen-Größe, border-color, etc.

    InformationsquelleAutor Jim Lim
Schreibe einen Kommentar