VB change color border menustrip

Question

Я добавляю menustrip в свое приложение, и я хочу изменить цвет рамки на menustrip. Я нашел некоторый код, но вы можете видеть на картинке, у меня снова есть граница.

Изображение:

Мой код:

Public Class ColorTable 
    Inherits ProfessionalColorTable 

    Dim Color1 = Color.FromArgb(30, 38, 44) 
    Dim Color2 = Color.FromArgb(75, 81, 88) 

    Public Overrides ReadOnly Property MenuBorder() As Color 
     Get 
      Return Color1 
     End Get 
    End Property 

    Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color 
     Get 
      Return Color2 
     End Get 
    End Property 

    Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color 
     Get 
      Return Color2 
     End Get 
    End Property 

    Public Overrides ReadOnly Property MenuItemSelected() As Color 
     Get 
      Return Color2 
     End Get 
    End Property 

    Public Overrides ReadOnly Property MenuItemBorder() As Color 
     Get 
      Return Color1 
     End Get 
    End Property 

    Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color 
     Get 
      Return Color2 
     End Get 
    End Property 

    Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color 
     Get 
      Return Color2 
     End Get 
    End Property 

End Class 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Menus.Renderer = New ToolStripProfessionalRenderer(New ColorTable()) 
End Sub 

Answer 1

Вы собираетесь хотите переопределить следующие свойства:

Public Overrides ReadOnly Property SeparatorDark() As Color 
    Get 
     Return Color1 
    End Get 
End Property 

Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color 
    Get 
     Return Color1 
    End Get 
End Property 

Это будет охватывать фон и любые разделители, которые вы добавляете.

Answer 2

У меня есть добавить

 Public Overrides ReadOnly Property ImageMarginGradientBegin() As System.Drawing.Color 
     Get 
      Return Color1 
     End Get 
    End Property 
    Public Overrides ReadOnly Property ImageMarginGradientEnd() As System.Drawing.Color 
     Get 
      Return Color1 
     End Get 
    End Property 
    Public Overrides ReadOnly Property ImageMarginGradientMiddle() As System.Drawing.Color 
     Get 
      Return Color1 
     End Get 
    End Property 

И теперь все в порядке :)