Custom control - on_click

[nicsin]

Hi all,

I have created in code a visible control and i am trying to apply an on_click event to it with no success my code is

Public Sub createItem(ByVal itmName As String, ByVal itmImagePath As String, ByVal itmParent As XPExplorerBar.Expando)
        Dim itmTemp As New XPExplorerBar.TaskItem
        itmTemp.Name = itmName
        itmTemp.Text = itmName
        Dim tmpImage As System.Drawing.Image = System.Drawing.Image.FromFile(itmImagePath)
        itmTemp.Image = tmpImage
        itmParent.Items.Add(itmTemp)
End Sub

Private Sub itmTemp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles itmTemp.Click
'do something
end sub

and the error i am getting is



Handles clause requires a WithEvents variable defined in the containing type or one of its base types

Handles itmTemp.Click



Any thoughts cause i am completely stuck!

Thnx

 

[ThatRickGuy]

You need to declare itmTemp at the class level:

Class MyClass

  Private WithEvents itmTemp as XPExplorerBar.TaskItem

  private sub New()
    itmTemp = new XPExplorerBar.TaskItem
  end sub

  Private Sub itmTemp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles itmTemp.Click
    'do something
  end sub 

end class

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[Borvik]

Or you can use the AddHandler method:

Public Sub createItem(ByVal itmName As String, ByVal itmImagePath As String, ByVal itmParent As XPExplorerBar.Expando)
        Dim itmTemp As New XPExplorerBar.TaskItem
        itmTemp.Name = itmName
        itmTemp.Text = itmName
        Dim tmpImage As System.Drawing.Image = System.Drawing.Image.FromFile(itmImagePath)
        itmTemp.Image = tmpImage
        AddHandler itmTemp.Click, AddressOf itmTemp_Click
        itmParent.Items.Add(itmTemp)
End Sub

Private Sub itmTemp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'do something
end sub