G
Guest
Create two mdi child forms to a MDI form
use the activated event to modify the text of both children (i.e. change title)
start the application
guess what
the activated event of either form will execute if that form is activated first but the other forms a ctivated event will never fire
Stopping and restarting the app will allow the other forms activated event to fire proeventing the activated event of the other form from ever executing (until the application is restarted)
comment the form2.mdichild = me for both forms
the activated event for both forms will execute
Can anyone tell me how I can get the activated event of all mdichild forms to execute when that form is activated
MDI code
fm3.MdiParent = Me
fm3.Show()
child code (form3_activated for third form)
Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
Me.Text = "Form Two"
End Sub
Private Sub Form2_MdiChildActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.MdiChildActivate
Me.Text = "Second Form"
End Sub
use the activated event to modify the text of both children (i.e. change title)
start the application
guess what
the activated event of either form will execute if that form is activated first but the other forms a ctivated event will never fire
Stopping and restarting the app will allow the other forms activated event to fire proeventing the activated event of the other form from ever executing (until the application is restarted)
comment the form2.mdichild = me for both forms
the activated event for both forms will execute
Can anyone tell me how I can get the activated event of all mdichild forms to execute when that form is activated
MDI code
fm3.MdiParent = Me
fm3.Show()
child code (form3_activated for third form)
Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
Me.Text = "Form Two"
End Sub
Private Sub Form2_MdiChildActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.MdiChildActivate
Me.Text = "Second Form"
End Sub