تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة مؤثرات جمالية للكونترول
#1
الكود بالمرفقات عبارة عن مثال لكيفية إضافة مؤثرات جمالية للكونترول
الفكرة تنحصر في استخدام تايمر و من خلال هذا التايمر يتم تغيير لون ForeColor الخاص بالكونترول لتحصل علي شئ مثل الفلاش

الكود مكتوب بحيث يمكن استخدامه مع اي كونترول

الاستخدام
تقوم بتشغيل التايمر في أي حدث خاص بالكونترول
ثم تقوم بإيقاف التايمر في حدث أخر خاص بالكونترول

الكود مع كيفية الاستخدام موجود بالمرفقات
الكود بنسخة الفيجوال استوديو 2015


أتمني ان يكون الكود مفيدا للبعض منكم
تقبلوا تحياتي


الملفات المرفقة
.rar   Test_ControlEffect.rar (الحجم : 67.77 ك ب / التحميلات : 160)
Retired
الرد
#2
نفس الفكرة في المرفقات أعلاه تم كتابتها علي شكل Label فقط
حتي يتثني لمن يملكون نسخ أقل حداثة من نسخة الفيجوال استوديو 2015 أن يستفيدوا أيضا من الموضوع

الكونترول يعتمد علي تايمر داخلي يعمل مع حركة دخول الماوس الي الكونترول و يتوقف مع حركة خروج الماوس من الكونترول

PHP كود :
Imports System.Drawing.Drawing2D
Imports System
.Timers

Public Class FlashLabel
    Inherits Control

    Private _clock 
As New Clock(2001)
 
   Private _effectForeColor As Color Color.Transparent
    Private _showBorder 
As Boolean True

    Public Sub 
New()
 
       MyBase.DoubleBuffered True
    End Sub

    Public Property ShowBorder 
As Boolean
        Get
            Return Me
._showBorder
        End Get
        Set
(value As Boolean)
 
           Me._showBorder value
            Me
.Refresh()
 
       End Set
    End Property

    Public Property EffectForeColor 
As Color
        Get
            Return Me
._effectForeColor
        End Get
        Set
(value As Color)
 
           Me._effectForeColor value
        End Set
    End Property

    Protected Overrides Sub OnPaint
(As PaintEventArgs)
 
       MyBase.OnPaint(e)

 
       If MyBase.Width 0 AndAlso MyBase.Height 0 Then
            If Me
._showBorder Then
                Dim bmp 
As Bitmap = New Bitmap(MyBase.WidthMyBase.Height)
 
               Using gr As Graphics Graphics.FromImage(bmp)
 
                   Dim rect As Rectangle = New Rectangle(00bmp.Widthbmp.Height)
 
                   Dim gb As New LinearGradientBrush(rectColor.FromArgb(88MyBase.BackColor), Color.FromArgb(44MyBase.BackColor), LinearGradientMode.Vertical)
 
                   gr.FillRectangle(gbrect)
 
                   Dim borderColor As Color = If((CDec(MyBase.BackColor.GetBrightness()) < 0.5), ControlPaint.Light(MyBase.BackColor), ControlPaint.Dark(MyBase.BackColor))
 
                   gr.DrawRectangle(New Pen(borderColor), New Rectangle(00bmp.Width 1bmp.Height 1))
 
               End Using
                e
.Graphics.DrawImage(bmp00)
 
               If bmp IsNot Nothing Then
                    bmp
.Dispose()
 
                   bmp Nothing
                End 
If
 
           End If

 
           If Not MyBase.Text Is Nothing Then
                Dim g 
As Graphics e.Graphics
                Dim txtSize 
As SizeF g.MeasureString(MyBase.TextMyBase.Font)
 
               Dim y As Integer = (MyBase.Height CInt(txtSize.Height)) / 2
                Dim x 
As Integer = (MyBase.Width CInt(txtSize.Width)) / 2
                Dim sb 
As New SolidBrush(MyBase.ForeColor)
 
               g.DrawString(MyBase.TextMyBase.Fontsbxy)

 
           End If
 
       End If
 
   End Sub

    Private Sub DisposeEffect
()
 
       If _clock IsNot Nothing Then
            _clock
.Dispose()
 
           _clock Nothing
        End 
If
 
   End Sub

    Protected Overrides Sub Dispose
(disposing As Boolean)
 
       MyBase.Dispose(disposing)
 
       If disposing Then
            DisposeEffect
()
 
       End If
 
   End Sub

    Protected Overrides Sub OnMouseEnter
(As EventArgs)
 
       MyBase.OnMouseEnter(e)
 
       _clock.Allocate(MeMe.ForeColorMe.EffectForeColor)
 
   End Sub

    Protected Overrides Sub OnMouseLeave
(As EventArgs)
 
       MyBase.OnMouseLeave(e)
 
       _clock.Release(Me)
 
   End Sub

    Private 
Class Clock
        Implements IDisposable

        Protected _effects 
As List(Of ForeColorAnimation)
 
       Protected _clock As Timer
        Protected _speed 
As Integer
        Protected _interval 
As Double 40
        Protected _allowEffect 
As Boolean

        Public Sub 
New()
 
           Me.New(1)
 
       End Sub

        Public Sub 
New(capacity As Integer)
 
           Me.New(200capacity)
 
       End Sub

        
''' <summary>
        ''' 
create new clock class
 
       ''' </summary>
        ''' 
<param name="speed">animation speed</param>
 
       ''' <param name="capacity">number of controls to Animate</param>
        Public Sub New(speed As Double, capacity As Integer)
            _clock = New Timer()
            _clock.Interval = speed
            _speed = 1
            AddHandler _clock.Elapsed, AddressOf Tick
            _effects = New List(Of ForeColorAnimation)(capacity)
        End Sub

        Private Sub Start()
            _clock.Start()
        End Sub

        Private Sub [Stop]()
            _clock.Stop()
        End Sub

        Private Sub Tick(sender As Object, e As ElapsedEventArgs)
            ProcessEffect()
        End Sub

        Private Sub ProcessEffect()
            _allowEffect = Not _allowEffect
            If _allowEffect Then
                For Each e As ForeColorAnimation In _effects
                    e.Control.ForeColor = e.EffectColor
                Next
            Else
                For Each e As ForeColorAnimation In _effects
                    e.Control.ForeColor = e.ForeColor
                Next
            End If
        End Sub

        Public Sub Dispose()
            If _clock IsNot Nothing Then
                _clock.Dispose()
                _clock = Nothing
            End If
        End Sub

        Private Sub IDisposable_Dispose() Implements IDisposable.Dispose
            Me.Dispose()
        End Sub

        Public Sub Allocate(ctrl As Control, oldForeColor As Color, newForeColor As Color)
            For Each e As ForeColorAnimation In _effects
                If e.Control Is ctrl Then
                    Return
                End If
            Next
            _effects.Add(New ForeColorAnimation() With {.Control = ctrl, .ForeColor = oldForeColor, .EffectColor = newForeColor})
            _allowEffect = True
            Start()
            ctrl.ForeColor = newForeColor
        End Sub

        Public Sub Release(ctrl As Control)
            For Each e As ForeColorAnimation In _effects
                If e.Control Is ctrl Then
                    ctrl.ForeColor = e.ForeColor
                    _effects.Remove(e)
                    If _effects.Count = 0 Then
                        [Stop]()
                    End If
                    Exit For
                End If
            Next
        End Sub

    End Class

    Private Structure ForeColorAnimation
        Public Control As Control
        Public ForeColor As Color
        Public EffectColor As Color
    End Structure

End Class 

الإستخدام

أضف الكلاس لمشروعك
قم بعمل Build للكونترول و بعدها ستجده موجودا في Toolbox الخاصة بالفيجوال استوديو
أضف الكونترول الي الفورم
قم بتغيير التكست الخاص بالكونترول الي اي تكست تريده
عند التشغيل
لاحظ ما سيحدث للكونترول مع حركة دخول الماوس الي الكونترول وأيضا مع حركة خروج الماوس من الكونترول
Retired
الرد
تم الشكر بواسطة: Amir_Alzubidy , sendbad100 , سعود الشامان
#3
السلام عليكم

جزاك الله الف خير
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , silverlight
#4
جميل جداً , الف شكر لك يالغالي


المثال مكتوب بالفيجوال بيسك 2010


الملفات المرفقة
.rar   إضافة مؤثرات جمالية للكونترول.rar (الحجم : 122.6 ك ب / التحميلات : 78)
الرد
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 13 9,951 11-11-18, 02:04 PM
آخر رد: elgokr
Star [درس فيديو] إضافة أداه اليوزر نيم و الباسورد في الفيجوال بيسك YousefOkasha 0 545 19-01-18, 02:24 PM
آخر رد: YousefOkasha
Star [كود] كود إضافة رسالة عند الضغط علي زر Button YousefOkasha 0 587 19-01-18, 02:03 PM
آخر رد: YousefOkasha
Star [كود] كود إضافة رسالة عند الضغط علي زر Button YousefOkasha 0 326 19-01-18, 02:02 PM
آخر رد: YousefOkasha
  كود إضافة صورة في قاعدة بيانات أكسيس saffor 5 4,389 20-11-15, 10:02 PM
آخر رد: HASAN6.0

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


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