About Mdi Child n Parent Forms

Question

situation. i loaded a child form into a parent form This is in the Child Form Private Sub tmrCupid_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCupid.Tick If kRight = True Then picCupid.Left += 8 End If If kLeft = True Then picCupid.Left += 8 End If End Sub Private Sub frmStageOne_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Right Then kRight = True End If If e.KeyCode = Keys.Left Then kLeft = True End If End Sub Private Sub frmStageOne_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp If e.KeyCode = Keys.Right Then kRight = False End If If e.KeyCode = Keys.Left Then kLeft = False End If End Sub Problem: my picCupid in the child form doesnt seem to be able to move. can anyone help

Adam Erstelle · Answer

So the keyevents are being handled on the parent form and the child form is the one that is moving? If so try this (Code not tested at all but logic is correct) Child Form: private kLeft as boolean private kRight as boolean ..... Private Sub tmrCupid_Tick(ByVal sender As System.Object ByVal e As System.EventArgs) Handles tmrCupid.Tick 'the boolean variables are set by 2 functions below If kRight = True Then picCupid.Left += 8 End If If kLeft = True Then picCupid.Left += 8 End If End Sub public sub setLeft(byVal left as boolean) 'if true then set local var to move left otherwise stop moving form left kLeft = left End Sub public sub setRight(ByVal right as boolean) 'same as sub above but for right kRight = right End Sub ..... End of child form Parent Form Private yourform as yourFormClassName ..... Public Sub LaunchYourForm() yourform = new yourFormClassName yourform.display End Sub ...... Private Sub frmStageOne_KeyDown(ByVal sender As Object ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Right Then yourform.setRight(True) End If If e.KeyCode = Keys.Left Then yourform.setLeft(True) End If End Sub Private Sub frmStageOne_KeyUp(ByVal sender As Object ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp If e.KeyCode = Keys.Right Then yourform.setRight(False) End If If e.KeyCode = Keys.Left Then yourform.setLeft(False) End If End Sub

xiao_cong · Answer

it is false.. so how do i make it so that it will become true.. i think that the problem is that e.keycode is not directed to the child form.

Adam Erstelle · Answer

Try running the app in debug mode and step though the code. Check to ensure the tick is beign called and that the boolean values are being set when the keys are pressed.