• Way to add a property to a class that can be used to fire method

    ShikhaTan Member
    Option Strict On
    
    Public Class Form1
    
        Private myBox as Box
        Private Sub Button1_MouseEnter(sender As Object, e As EventArgs) 'Handles Button1.MouseEnter
            myBox.mouseentermethod(sender, e)
        End Sub
    
        Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
            Label1.Text=String.Empty
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            AddHandler Button1.MouseEnter, AddressOf Button1_MouseEnter
            myBox = New Box()
            myBox.Name = "test"
            myBox.mouseentermethod = AddressOf CustomMouseEnter
        End Sub
        private Sub CustomMouseEnter(sender As Object, e As EventArgs) 
            Label1.Text = myBox.Name
        End Sub
    
    End Class
    
    Public Class Box
        delegate sub MyMouseEnter(sender As Object, e As EventArgs)
    
        Public Name As String
        Public Size As Double
        Public mouseentermethod As MyMouseEnter
        
    End Class
    
Viewing 0 reply threads
  • You must be logged in to reply to this topic.
en_USEnglish