troubleshooting Question

MouseHover over ANY picturebox

Avatar of reece withers
reece withers asked on
Visual Basic.NET
1 Comment1 Solution94 ViewsLast Modified:
Hi, I've just finished my game except for this part.

I need to mousehover over any balloon picturebox in my forms to then pop them and animate, but i can do that part myself

I don't know how to make a hover event / function with the way i've approached this



Imports System.Drawing
Imports System.Windows.Forms
Public Class stage1
    Dim holdbox() As PictureBox

    Dim score As Integer = 0

    Private Sub stage1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Public Sub tmrSpawn_Tick(sender As Object, e As EventArgs) Handles tmrSpawn.Tick
        Dim holdbox(3) As PictureBox
        For i = 1 To 3
            holdbox(i) = New PictureBox
            holdbox(i).Name = "balloon" + Str(i)
            holdbox(i).Image = Image.FromFile("C:\Users\Reece\Desktop\School Work Year 12\VB Projects\PopGame.vb\balloon.png")
            holdbox(i).BackColor = Color.Transparent
            holdbox(i).Location = New Point(((400 - 1 + 1) * Rnd() + 1), 0)
            holdbox(i).Size = New Size(70, 30)
            holdbox(i).Visible = True
            holdbox(i).SizeMode = PictureBoxSizeMode.StretchImage
    End Sub

    Private Sub tmrBegin_Tick(sender As Object, e As EventArgs) Handles tmrBegin.Tick
        tmrSpawn.Enabled = True
    End Sub

    Public Sub tmrMove_Tick(sender As Object, e As EventArgs) Handles tmrMove.Tick
        Dim ToLoc As Point
        For Each pic As Control In Me.Controls
            If TypeOf pic Is PictureBox Then
                ToLoc.X = pic.Location.X
                ToLoc.Y = pic.Location.Y + 10
                pic.Location = ToLoc
            End If
    End Sub

End Class
Mike Tomlinson
High School Computer Science, Computer Applications, Digital Design, and Mathematics Teacher

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Top Expert 2009

The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.

Join our community to see this answer!
Unlock 1 Answer and 1 Comment.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros