Click here to Skip to main content
11,492,962 members (64,777 online)

Visual Basic

 
AnswerRe: trojans? Pin
Bernhard Hiller28-Jun-12 22:16
memberBernhard Hiller28-Jun-12 22:16 
GeneralRe: trojans? Pin
No-e29-Jun-12 6:19
memberNo-e29-Jun-12 6:19 
QuestionEvent on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad28-Jun-12 8:14
memberAmmar_Ahmad28-Jun-12 8:14 
AnswerRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten29-Jun-12 2:06
memberNick Otten29-Jun-12 2:06 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad29-Jun-12 2:44
memberAmmar_Ahmad29-Jun-12 2:44 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten29-Jun-12 2:54
memberNick Otten29-Jun-12 2:54 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad29-Jun-12 3:03
memberAmmar_Ahmad29-Jun-12 3:03 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten29-Jun-12 3:54
memberNick Otten29-Jun-12 3:54 
Oke started a little project to test a bit around and i think you might find this interesting. i used a form called form1. and placed a listbox on it i called txtscroll.

I suggest you make a same sort of window and paste the following code in to see how it works:

Public Class Form1
 
    Dim WithEvents scrollhandler As MyListener 'class that will watch windows to see if your scrolling
    Private scrolled As Boolean = False 'boolean you can use to flip if a message box was displayed or not...(so it wont loop the messagebox.show)

 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'some random loop i used to ditch some data in my listbox for testing
        Dim index As Int32 = 0
        Do While index < 100
            txtscroll.Items.Add(index.ToString())
            index += 1
        Loop
 
        'attach your scrollwatcher to your control. in my case i have a listbox called "txtscroll")
        scrollhandler = New MyListener(txtscroll)
 
    End Sub
 
    Private Sub scrollhandler_MyScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles scrollhandler.MyScroll
        'place your if/else statement here, its smart to use the scrolled boolean to flip true/false so the messagebox doesnt go on a loop
    End Sub
 
    Private Sub txtscroll_MouseWheelScroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtscroll.MouseWheel
        scrollhandler_MyScroll(e, e) 'needed to catch the scrollwheel event.
    End Sub
 

    Private Class MyListener
        Inherits NativeWindow
 
        Public Event MyScroll(ByVal sender As Object, ByVal e As EventArgs)
        Const WM_MOUSEACTIVATE = &H21
        Const WM_MOUSEMOVE = &H200
        Private control As Control
 
        Public Sub New(ByVal control As Control)
            AssignHandle(control.Handle) 'docks handler to given control
        End Sub
 
        Protected Overrides Sub WndProc(ByRef Messageevent As Message)
            Const WM_HSCROLL = &H114
            Const WM_VSCROLL = &H115
            If Messageevent.Msg = WM_HSCROLL Or Messageevent.Msg = WM_VSCROLL Then 'looks if the horisontal or verticle scrollbar is moving
                'one of the scrollbars is moving, throw event
                RaiseEvent MyScroll(control, New EventArgs)
            End If
            MyBase.WndProc(Messageevent)
        End Sub
 
        Protected Overrides Sub Finalize()
            'not used in example but drops the scroll watcher
            ReleaseHandle()
            MyBase.Finalize()
        End Sub
 
    End Class
 

End Class

GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad29-Jun-12 9:27
memberAmmar_Ahmad29-Jun-12 9:27 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel [modified] Pin
Nick Otten1-Jul-12 22:37
memberNick Otten1-Jul-12 22:37 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad2-Jul-12 14:29
memberAmmar_Ahmad2-Jul-12 14:29 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten2-Jul-12 21:36
memberNick Otten2-Jul-12 21:36 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad3-Jul-12 0:57
memberAmmar_Ahmad3-Jul-12 0:57 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten3-Jul-12 1:16
memberNick Otten3-Jul-12 1:16 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad3-Jul-12 14:36
memberAmmar_Ahmad3-Jul-12 14:36 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten4-Jul-12 2:01
memberNick Otten4-Jul-12 2:01 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad6-Jul-12 14:24
memberAmmar_Ahmad6-Jul-12 14:24 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten8-Jul-12 21:38
memberNick Otten8-Jul-12 21:38 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad10-Jul-12 3:32
memberAmmar_Ahmad10-Jul-12 3:32 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten10-Jul-12 4:13
memberNick Otten10-Jul-12 4:13 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Ammar_Ahmad10-Jul-12 16:15
memberAmmar_Ahmad10-Jul-12 16:15 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten10-Jul-12 21:41
memberNick Otten10-Jul-12 21:41 
AnswerRe: Event on Scrolling to the end in flowlayoutpanel Pin
Luc Pattyn29-Jun-12 3:56
mvpLuc Pattyn29-Jun-12 3:56 
JokeRe: Event on Scrolling to the end in flowlayoutpanel Pin
Nick Otten29-Jun-12 4:01
memberNick Otten29-Jun-12 4:01 
GeneralRe: Event on Scrolling to the end in flowlayoutpanel Pin
Luc Pattyn29-Jun-12 5:19
mvpLuc Pattyn29-Jun-12 5:19 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web03 | 2.8.150520.1 | Last Updated 28 May 2015
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid