How do I make menu flat
-
:((Hi folks, I got a simple question! How do I make .NET menu look flat like VS. I succeeded in reproducing all but the flatness, it seems that the menu control always follows up my OS (Win200). Here is the function I use to draw my menu items, what am I missing. Please help me out I need it to complete a release (on a no royalty product). Thanks No mather wahat I do my menu still look like 2000 with the .NET feel. ------------------------------------------------------------------------ Sub DrawItems(ByVal EvDrawItems As System.Windows.Forms.DrawItemEventArgs, _ ByVal Mi As MenuItem, _ ByVal m_Icon As Icon) Dim br As Brush Dim fDisposeBrush As Boolean Dim img As Image Dim br2 As New SolidBrush(Color.Silver) Dim iSelFac As Integer = 0 Dim imgblk As Image img = GetIconFromMapping(Mi) EvDrawItems.DrawBackground() EvDrawItems.Graphics.FillRectangle(br2, EvDrawItems.Bounds) EvDrawItems.Graphics.FillRectangle(m_SideBarBrush, EvDrawItems.Bounds.Left, EvDrawItems.Bounds.Top, 24, 26) If CBool(EvDrawItems.State And DrawItemState.Selected) Then iSelFac = 1 End If If Not img Is Nothing Then imgblk = img If CBool(EvDrawItems.State And DrawItemState.Selected) Then Dim GDI As New GDI_Filters.Filters GDI.GrayScale(imgblk) EvDrawItems.Graphics.DrawImage(img, (EvDrawItems.Bounds.Left _ + 6), _ (EvDrawItems.Bounds.Top + 6)) End If EvDrawItems.Graphics.DrawImage(img, (EvDrawItems.Bounds.Left + 6) - iSelFac, _ (EvDrawItems.Bounds.Top + 6) - iSelFac) If Mi.Checked Then If (m_CheckImage <> -1) Then EvDrawItems.Graphics.DrawImage(m_Icons.Images(m_CheckImage), (EvDrawItems.Bounds.Left + 6) - iSelFac, _ (EvDrawItems.Bounds.Top + 6) - iSelFac) Else EvDrawItems.Graphics.DrawImage(m_frmDummy.ImageList1.Images(0), (EvDrawItems.Bounds.Left + 6) - iSelFac, _ (EvDrawItems.Bounds.Top