When I wrote ActiveX control in VB6, container properties was accessible in InitProperties or ReadProperties events of UserControl as:
PrivateSub UserControl_InitProperties() Set m_objMyObject = UserControl.Ambient.SomeObj |
Thanks!
1,
Public Class Form1 Private WithEvents Mything As Thing Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Mything = New Thing End Sub Public Sub Blah() Handles Mything.SomeEvent End Sub End Class Public Class Thing Public Event SomeEvent()End Class |
Method 2, is to add / remove event handlers.
Public Class Form1 Private WithEvents Mything As Thing Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Mything = New Thing AddHandler Mything.SomeEvent, AddressOf Blah RemoveHandler Mything.SomeEvent, AddressOf Blah End Sub Public Sub Blah() End Sub End Class Public Class Thing Public Event SomeEvent()End Class |
Public Class MyControl Inherits System.Windows.Forms.UserControl Private WithEvents m_objConnObject as ContainerApp.ConnObject Private Sub m_objConnObject_OnSomeEvent(...) Handles m_objConnObject.SomeEvent End Sub ' other m_objConnObject's events handlers |
Btw, do You have examples of using AmbientProperties in VB.NET ActiveX controls? It could be very helpful for me i hope.
Thanks!
