954,535 Members — Technology Publication meets Social Media
Username:
Password:
Lost login information?
Have something to say? Contribute New Article Reply to this Article

MouseEnter doesn't work and Window stops running when Picturebox is moving - VB.NET

Hi Everyone! :)

Hope someone can help me in this problem. :?:

Things I have:
Button1
Picturebox1 (Name: Block)
Timer1 (Interval: 100)
Label1, which has the MouseEnter event. The MouseEnter event is MoveToStart().
Panel1, which includes Picturebox1, Label1.
(The codes are at the bottom)

My Problem:
When Form1 debugs (runs), I click on Button1, which enables and starts Timer1. Picturebox1 (Block) starts moving right and then left and then right and then goes on. I have put a MouseEnter event on the Picturebox so when Picturebox1 is moving, and the mouse enters Picturebox1, a message box should appear. BUT, when Picturebox1 starts moving, Form1 stucks, message box doesn't appear, MouseEvent doesn't work, not on the Picturebox neither on Label1 and I have to stop the form from running. Label1 and Block (Picturebox1's name) are having the same MouseEnter event code which is MoveToStart(). MoveToStart()'s code is at the bottom.

My code:

Public Class Form1

Dim BlockX As Integer = 1


TIMER1:

If Block.Location = New Point(4, 237) Then
            Do Until Block.Location = New Point(499, 237)
                Me.Block.Left = Me.Block.Left + BlockX
                If Block.Location = New Point(499, 237) Then
                    Do Until Block.Location = New Point(4, 237)
                        Me.Block.Left = Me.Block.Left - BlockX
                    Loop
                End If
            Loop
        End If


I have put MoveToStart() in a label. And the label's MoveToStart() is Picturebox1's MouseEnter event.

MoveToStart():

MsgBox("You touched the line! Try again.", MsgBoxStyle.Information, "Line Touched!")
        Dim startingPoint As Point
        startingPoint.Offset(20, 28)
        Cursor.Position = PointToScreen(startingPoint)
        Panel1.Enabled = False
        Button1.Enabled = True


Button1:

timer1.enabled = True
        Timer1.Start()
        Button1.Enabled = False
        Panel1.Enabled = True


I know this is very complicated and if you want any further information please reply, butANY help will be highly appreciated, thanks for your time.

Mr Programmers
Newbie Poster
11 posts since Feb 2011
Reputation Points: 10
Solved Threads: 0
 

This article has been dead for over three months

Post: Markdown Syntax: Formatting Help
You
View similar articles that have also been tagged: