Popup Event not Firing

  • Thread starter Thread starter Tom
  • Start date Start date
T

Tom

Hi

I have inherited a from the context menu to create my own contextmenu,
however the Popup event is not getting fired:

Private Sub ColorContext_Popup(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Popup



End Sub


This code works fine on context menus that are not inherited. Does
anyone know a way around this problem?

Thanks

Tom
 
* Tom said:
I have inherited a from the context menu to create my own contextmenu,
however the Popup event is not getting fired:

Private Sub ColorContext_Popup(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Popup



End Sub


This code works fine on context menus that are not inherited. Does
anyone know a way around this problem?
Click to expand...

Post the complete code.
 
Ok, complete code for my inherited class is:

Option Strict On

Imports Iris.AccountsProduction.Reporting.Tools

#Region "Properties"

Dim ColorStyles As VisualStyles.VisualStyle
Dim MoreColorsGraphics As Graphics

Dim mColor As Color
Public Property Color() As Color
Get
Return mColor
End Get
Set(ByVal Value As Color)
mColor = Value
RaiseEvent SelectionChanged(New ColorMenuItem(mColor), New
EventArgs)
End Set
End Property

#End Region

#Region "Constructors"

Public Sub New()
MyBase.New()

ColorStyles = New VisualStyles.VisualStyle

InitilizeColors()
InitilizeEventHandlers()

End Sub

#End Region

#Region "Events"

Public Event SelectionChanged As EventHandler

#End Region

#Region "Initilize"

Private Sub InitilizeColors()

Dim MoreColors As MenuItem

MenuItems.Add(New ColorMenuItem(Color.Black))
MenuItems.Add(New ColorMenuItem(Color.DarkRed))
MenuItems.Add(New ColorMenuItem(Color.Red))
MenuItems.Add(New ColorMenuItem(Color.Pink))
MenuItems.Add(New ColorMenuItem(Color.Pink))
MenuItems.Add(New MenuItem("0"))

MenuItems.Add(New ColorMenuItem(Color.Brown, True))
MenuItems.Add(New ColorMenuItem(Color.Orange))
MenuItems.Add(New ColorMenuItem(Color.Orange))
MenuItems.Add(New ColorMenuItem(Color.Gold))
MenuItems.Add(New ColorMenuItem(Color.Tan))
MenuItems.Add(New MenuItem("1"))

MenuItems.Add(New ColorMenuItem(Color.Olive, True))
MenuItems.Add(New ColorMenuItem(Color.Yellow))
MenuItems.Add(New ColorMenuItem(Color.Lime))
MenuItems.Add(New ColorMenuItem(Color.Yellow))
MenuItems.Add(New ColorMenuItem(Color.LightYellow))
MenuItems.Add(New MenuItem("2"))

MenuItems.Add(New ColorMenuItem(Color.DarkGreen, True))
MenuItems.Add(New ColorMenuItem(Color.Green))
MenuItems.Add(New ColorMenuItem(Color.SeaGreen))
MenuItems.Add(New ColorMenuItem(Color.Green))
MenuItems.Add(New ColorMenuItem(Color.LightGreen))
MenuItems.Add(New MenuItem("3"))

MenuItems.Add(New ColorMenuItem(Color.Teal, True))
MenuItems.Add(New ColorMenuItem(Color.Teal))
MenuItems.Add(New ColorMenuItem(Color.Aqua))
MenuItems.Add(New ColorMenuItem(Color.Turquoise))
MenuItems.Add(New ColorMenuItem(Color.Turquoise))
MenuItems.Add(New MenuItem("4"))

MenuItems.Add(New ColorMenuItem(Color.DarkBlue, True))
MenuItems.Add(New ColorMenuItem(Color.Blue))
MenuItems.Add(New ColorMenuItem(Color.LightBlue))
MenuItems.Add(New ColorMenuItem(Color.SkyBlue))
MenuItems.Add(New ColorMenuItem(Color.Blue))
MenuItems.Add(New MenuItem("5"))

MenuItems.Add(New ColorMenuItem(Color.Indigo, True))
MenuItems.Add(New ColorMenuItem(Color.Violet))
MenuItems.Add(New ColorMenuItem(Color.Plum))
MenuItems.Add(New ColorMenuItem(Color.Lavender))
MenuItems.Add(New MenuItem("6"))

MenuItems.Add(New ColorMenuItem(Color.Gray, True))
MenuItems.Add(New ColorMenuItem(Color.Gray))
MenuItems.Add(New ColorMenuItem(Color.Gray))
MenuItems.Add(New ColorMenuItem(Color.White))
MenuItems.Add(New MenuItem("7"))

End Sub

Private Sub InitilizeEventHandlers()

Dim ChildItem As MenuItem
For Each ChildItem In MenuItems
If ChildItem.GetType Is GetType(ColorMenuItem) Then
AddHandler CType(ChildItem,
ColorMenuItem).ItemChecked, AddressOf ItemChecked
AddHandler CType(ChildItem,
ColorMenuItem).ItemSelected, AddressOf ItemSelected
Else
ChildItem.OwnerDraw = True
AddHandler ChildItem.MeasureItem, AddressOf
MoreColors_MeasureItem
AddHandler ChildItem.DrawItem, AddressOf
MoreColors_DrawItem
End If
Next

End Sub

#End Region

#Region "Drawing"

Dim MoreColorsSelected As Boolean

Private Sub MoreColors_MeasureItem(ByVal sender As Object, ByVal e
As MeasureItemEventArgs)

e.ItemHeight = 25
e.ItemWidth = 3

End Sub

Private Sub MoreColors_DrawItem(ByVal sender As Object, ByVal e As
DrawItemEventArgs)

If MoreColorsSelected Then Exit Sub

MoreColorsGraphics = e.Graphics

Dim Button As MenuItem = CType(sender, MenuItem)
Dim r As Rectangle = e.Bounds
Dim p As Pen

r.Height -= 5
r.Width = 148

r.X -= CInt(Button.Text) * 19
r.Y += 5

e.Graphics.FillRectangle(New SolidBrush(ColorStyles.TabPage),
r)

r.Height -= 1
r.Width -= 1

If CBool(e.State And DrawItemState.Selected) Then
e.Graphics.FillRectangle(New
SolidBrush(ColorStyles.Highlight), r)
e.Graphics.DrawRectangle(New Pen(Color.Black), r)
MoreColorsSelected = True
Else
MoreColorsSelected = False
End If

Dim TextSize As SizeF = e.Graphics.MeasureString("More
Colours...", SystemInformation.MenuFont)
Dim TextPos As PointF

TextPos.X = (r.Width - TextSize.Width) / 2
TextPos.Y = r.Y + ((r.Height - TextSize.Height) / 2)

e.Graphics.DrawString("More Colours...",
SystemInformation.MenuFont, SystemBrushes.ControlText, TextPos)

End Sub

#End Region

#Region "Implementation"

Private Sub ItemChecked(ByVal sender As Object, ByVal e As
EventArgs)

Dim ChildItem As MenuItem
For Each ChildItem In MenuItems
If Not (ChildItem Is sender) Then ChildItem.Checked =
False
Next

RaiseEvent SelectionChanged(sender, e)

End Sub

Private Sub ItemSelected(ByVal sender As Object, ByVal e As
EventArgs)

If MoreColorsSelected = False Then Exit Sub
MoreColorsSelected = False

Dim d As New DrawItemEventArgs(MoreColorsGraphics,
SystemInformation.MenuFont, New Rectangle, 5,
DrawItemState.NoAccelerator)

MoreColors_DrawItem(MenuItems(5), d)

End Sub

#End Region

End Class
 
Back
Top