اداة الشريط المنزلق - نسخة قابلة للطباعة

كود :
Public Class Slider_Bar



    '- الاداة نفسها

    Inherits Windows.Forms.Label



    '- تايمر لتحريك الاداة

    Private WithEvents Timr As New Windows.Forms.Timer



    '- متغير لحفظ عرض الشريط

    Dim lbl_Width As Integer

    '- متغير لحفظ مكان وجود الشريط

    Dim Lbl_Location As New System.Drawing.Point



    '- صب عام لبدء التحريك

    Public Sub [Start]()

        '- تخزين عرض الشريط

        lbl_Width = Me.Width

        '- تخزين مكان وجود الشريط

        Lbl_Location = Me.Location

        '- تحديد وقت التايمر

        Me.Timr.Interval = Me.Timer

        '- بدء تايمر التحريك

        Me.Timr.Start()

    End Sub



    '- صب عام لإيقاف التحريك

    Public Sub [Stop]()

        '- ايقاف تيمر التحريك

        Me.Timr.Stop()

        '- ارجاع العرض الاصلى

        Me.Width = lbl_Width

        '- وضعه فى مكانه الاصلى

        Me.Location = Lbl_Location

    End Sub



    '- خاصية سرعة التحريك

    Private _Speed As Integer = 10

    Public Property Timer As String

        Get

            Return _Speed

        End Get

        Set(ByVal value As String)

            _Speed = value

        End Set

    End Property





#Region "  تحريك الشريط  "



    Private L_R_line As Char = "R"



    Private Sub Timr_Tick(sender As Object, e As EventArgs) Handles Timr.Tick

        Try

            If L_R_line = "L" Then

                If Me.Width < lbl_Width Then

                    Me.Width += 4

                Else

                    L_R_line = "R"

                End If

            Else

                If Me.Width < 2 Then

                    Me.Location = Lbl_Location

                    L_R_line = "L"

                Else

                    Me.Width -= 4

                    Me.Location = New System.Drawing.Point(Me.Location.X + 4, Me.Location.Y)

                End If

            End If

        Catch ex As Exception

            '- لو هتعمل رسالة خطاء

        End Try

    End Sub



#End Region





End Class