Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Help
- Private Sub btnStep1_Click(sender As Object, e As EventArgs) Handles btnStep1.Click 'When Button "Step1" is clicked then do...
- picBoxStep.ImageLocation = "pic1.png" 'Sets the PictureBox to a image which contains the visual for step 1
- PicBoxStepText.ImageLocation = "picword1.jpg" 'Sets another PictureBox to an image which contains the words for step 1
- PicBoxStepText.Visible = True 'When ButtonStep 1 is clicked, show the Text of what step one is.
- picBoxStep.Visible = True 'When buttonStep 1 is clicked, show the image of what step one is
- lblWelcome.Visible = False 'Hide the opening text to make way for the images.
- lblOverview1.Visible = False 'Hide the opening text to make way for the images.
- lblOverview2.Visible = False 'Hide the opening text to make way for the images.
- btnStep2.Enabled = True 'Allow the user to go to the next step
- End Sub
- Private Sub btnStep2_Click(sender As Object, e As EventArgs) Handles btnStep2.Click 'When Button "Step2" is clicked then do...
- picBoxStep.ImageLocation = "pic2.png" 'Sets the PictureBox to a image which contains the visual for step 2
- PicBoxStepText.ImageLocation = "picword2.jpg" 'Sets the PictureBox to a image which contains the words for step 2
- PicBoxStepText.Visible = True 'When buttonStep 2 is clicked, show the text of what step two is
- picBoxStep.Visible = True 'When buttonStep 2 is clicked, show the image of what step two is
- btnStep3.Enabled = True 'Allow the user to go to the next step
- End Sub
- Private Sub btnStep3_Click(sender As Object, e As EventArgs) Handles btnStep3.Click 'When Button "Step2" is clicked then do...
- picBoxStep.ImageLocation = "pic3.png" 'Sets the PictureBox to a image which contains the visual for step 3
- PicBoxStepText.ImageLocation = "picword3.jpg" 'Sets the PictureBox to a image which contains the words for step 3
- PicBoxStepText.Visible = True 'When buttonStep 3 is clicked, show the text of what step three is
- picBoxStep.Visible = True 'When buttonStep 3 is clicked, show the image of what step three is
- btnHome.Enabled = True 'Allow the user to return to the HomePage
- End Sub
- Private Sub btnHome_Click(sender As Object, e As EventArgs) Handles btnHome.Click 'When the User Clicks the Button "Home" do this..
- MemoryGame.Home() 'Calls the home subroutine from the form "Memorygame", which opens that form
- Me.Hide() 'closes the current form (Help page)
- lblWelcome.Visible = True 'Makes the text visable again so the user can come back and view the help again
- lblOverview1.Visible = True 'Makes the text visable again so the user can come back and view the help again
- lblOverview2.Visible = True 'Makes the text visable again so the user can come back and view the help again
- picBoxStep.ImageLocation = "pic1.png" 'Sets the PictureBox back to the first step
- PicBoxStepText.ImageLocation = "picword1.jpg" 'Sets anther PictureBox back to the first step
- PicBoxStepText.Visible = False 'Hides the PictureBox containing the Words of the first step
- picBoxStep.Visible = False 'Hides the picturebox containing the image of the first step
- btnStep2.Enabled = False 'Disables the second step button
- btnStep3.Enabled = False 'Disables the third step button
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement