943,954 Members | Top Members by Rank

Ad:
  • VB.NET Discussion Thread
  • Unsolved
  • Views: 1569
  • VB.NET RSS
Sep 23rd, 2008
0

pause autoscroll using mousehover

Expand Post »
Hi All,
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.
[/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
[/code]
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.
Thanks,
Ken
Reputation Points: 10
Solved Threads: 0
Light Poster
tyserman5674 is offline Offline
25 posts
since Sep 2008
Sep 23rd, 2008
0

Re: pause autoscroll using mousehover

Sorry, i forgot to add the last part of my code.
[/code]
If (intCounter1 <> intLoanTerm + 1) Then 'if loan term does not equal counter

'check auto scroll command
If ckboxAutoScroll.Checked = True Then

'clear output only when auto scroll is enabled
Me.lstOutput.Items.Clear() 'clear output list box

End If

End If

End If
[/code]
Reputation Points: 10
Solved Threads: 0
Light Poster
tyserman5674 is offline Offline
25 posts
since Sep 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.
Message:
Previous Thread in VB.NET Forum Timeline: Creating Classes in VB.NET
Next Thread in VB.NET Forum Timeline: Embedding Batch Files?





About Us | Contact Us | Advertise | Acceptable Use Policy
Forum Index | Build Custom RSS Feed


Follow us on Twitter


© 2011 DaniWeb® LLC