[ali.alfoly]

السلام عليكم ورحمة الله

صورة الاداة



تحميل الاداة

  WindowsApplication10.zip (الحجم : 107.43 ك ب / التحميلات : 772)


ولمن يريد الكلاس

كود :

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

نسألكم الدعاء

-


ملحوظة لمن يريد فتحة باصدار فيجوال بيسك قديم

افتح ملف السيليوشن باى محرر نصوص وليكن مثلا Notepad
وعدل عليه
استبدل 12.00 بـ 10.00
واستبدل 2012 بـ 2008

واذا اردته يفتح على اصدار عدل عليه
استبدل 12.00 بـ **.**
واستبدل 2012 بـ ****