30-10-13, 08:05 AM
(آخر تعديل لهذه المشاركة : 31-10-13, 09:11 PM {2} بواسطة ali.alfoly.)
السلام عليكم ورحمة الله
صورة الاداة
تحميل الاداة
WindowsApplication10.zip (الحجم : 107.43 ك ب / التحميلات : 736)
ولمن يريد الكلاس
نسألكم الدعاء
-
ملحوظة لمن يريد فتحة باصدار فيجوال بيسك قديم
افتح ملف السيليوشن باى محرر نصوص وليكن مثلا Notepad
وعدل عليه
استبدل 12.00 بـ 10.00
واستبدل 2012 بـ 2008
واذا اردته يفتح على اصدار عدل عليه
استبدل 12.00 بـ **.**
واستبدل 2012 بـ ****
صورة الاداة
تحميل الاداة
WindowsApplication10.zip (الحجم : 107.43 ك ب / التحميلات : 736)
ولمن يريد الكلاس
كود :
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 بـ ****