تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
اداة الشريط المنزلق
#1
Thumbs Up 
السلام عليكم ورحمة الله

صورة الاداة



تحميل الاداة

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


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

كود :
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 بـ ****
الرد }}}
#2
جزاك الله خيرا
الرد }}}
تم الشكر بواسطة: ali.alfoly
#3
جزاك الله خيراً أخي (ali.alfoly), ما شاء الله تتقدم كثيراً و سريعاً في البرمجة Smile

بالمناسبة, لدي سؤال خارج الموضوع Smile ... كيف قمت بتصوير عمل الأداة على شكل صورة (Gif)؟

تحياتي
الرد }}}
تم الشكر بواسطة: ali.alfoly , abulayth
#4
اداة رائعة من شخص اروع ...Heart
الرد }}}
تم الشكر بواسطة: ali.alfoly
#5
-
(30-10-13, 09:13 AM)ابو سناء كتب : جزاك الله خيرا

وجزاك بالمثل اخى


(30-10-13, 03:02 PM)hoob computer كتب : جزاك الله خيراً أخي (ali.alfoly), ما شاء الله تتقدم كثيراً و سريعاً في البرمجة Smile

بالمناسبة, لدي سؤال خارج الموضوع Smile ... كيف قمت بتصوير عمل الأداة على شكل صورة (Gif)؟

تحياتي


وجزاك بالمثل اخى
صورة الشاشة ببرنامج Camtasia Studio 8
ثم عملت مونتاج عادى وعند الحفظ اخترت الصيغة Gif


(30-10-13, 03:30 PM)الشاكي لله كتب : اداة رائعة من شخص اروع ...Heart

جزاك الله خيرا اخى و حبيبى الشاكى لله على ردك الجميل

-
الرد }}}
تم الشكر بواسطة: hoob computer , abulayth
#6
جزاك الله خيراً أخي الكريم Smile


تحياتي
الرد }}}
تم الشكر بواسطة: ali.alfoly
#7
(30-10-13, 03:32 PM)hoob computer كتب : جزاك الله خيراً أخي الكريم Smile


تحياتي

وجزاك بالمثل اخى
تحت امرك
الرد }}}
تم الشكر بواسطة: hoob computer
#8
السلام عليكم و رحمة الله
بارك الله فيك على هذا العمل الرائع
ربي يجازيك إن شاء الله
الرد }}}
تم الشكر بواسطة: ali.alfoly
#9
(30-10-13, 04:00 PM)mohammed moh كتب : السلام عليكم و رحمة الله
بارك الله فيك على هذا العمل الرائع
ربي يجازيك إن شاء الله

وعليكم السلام ورحمة الله
وجزاك بالمثل اخى
الرد }}}
تم الشكر بواسطة:
#10
بارك الله فيك . رااااااااااااااااائع بكل كلمة

تحياتي
الرد }}}
تم الشكر بواسطة: ali.alfoly



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم