I have a program trying to use mousehover to pause the autoscroll. It is a widows form called:
lstOutput System.Windows.Forms.1 Below is how it is in my code.
Public Sub lstOutput_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstOutput.MouseHover 'Public EventMouseHover As EventHandler lblPauseScroll.Text = "Output Paused" 'display output paused 'Highlight the DataGridView Me.lstOutput.BackColor = Color.LightGray 'Change point to hand Me.Cursor = Cursors.Hand End Sub Public Sub lstOutput_MouseExit(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstOutput.MouseLeave lblPauseScroll.Text = "" 'clearing the output paused label 'Highlight the DataGridView Me.lstOutput.BackColor = Color.White End Sub If (intPauseLoop >= 15) Then 'execute following code if greter than or equal 15 intPauseLoop = 1 'reset pause loop variable 'setup auto scroll check box for auto display choice If ckboxAutoScroll.Checked = True Then If lblPauseScroll.Text = "" Then 'setup timer for auto display Dim timeOut As DateTime = Now.AddMilliseconds(dblAutoScroll) ' This loop is used to prevent application from freezing by ' continuing to process the application messages and continues ' until timeOut value is reached. Do Application.DoEvents() Loop Until Now > timeOut 'message box for amortization display 'user input required to proceed Else MessageBox.Show("Press OK To Continue..", "Mortgage Amortization Table", MessageBoxButtons.OK, MessageBoxIcon.Question) Me.lstOutput.Items.Clear() End If End If
For some reason I have to click on the form to get it to pause the first time and then after that it does pause when I place the mouse over the form. It is that first time that it won't pause. The Public Subs I hand typed the codes in, is there some way that I should have added the mousehover to the form itself or are there other reasons that it won't work the first time?
Any help would be appreceated.
Edited 4 Years Ago by mike_2000_17: Fixed formatting