[سعود]

(08-06-23, 03:04 AM)maestro13 كتب : سلام عليكم 
عندي FlowlayoutPanil محتاج اعمل له Scroll عند طريق إثنين Buttons واحد يعمل scroll للأعلي والثاني للأسفل عند الضغط عليهما
ارجو المساعدة 
شكرا مقدما

PHP كود :

Public Class Form1
    Dim se As Integer = 0
    Dim dir As String
    Private Sub fp_Scroll(sender As Object, e As ScrollEventArgs) Handles fp.Scroll
        Me.Text = e.OldValue
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If dir = "down" Then
            se += 2
            fp.AutoScrollPosition = New Point(fp.Width, se)
        ElseIf dir = "up" Then
            se -= 2
            fp.AutoScrollPosition = New Point(fp.Width, se)
        End If
    End Sub
    Private Sub Button3_MouseDown(sender As Object, e As MouseEventArgs) Handles Button3.MouseDown
        If e.Button = MouseButtons.Left Then
            dir = "down"
            Timer1.Start()
        End If
    End Sub
    Private Sub Button3_MouseUp(sender As Object, e As MouseEventArgs) Handles Button3.MouseUp
        Timer1.Stop()
    End Sub
    Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
        If e.Button = MouseButtons.Left Then
            dir = "up"
            Timer1.Start()
        End If
    End Sub
    Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
        Timer1.Stop()
    End Sub
End Class 


---

تحديث!!!!
اول حدث التايمر اكتب:
If se < 0 Then se = 0