List (Of T) & HashSet (Of T) Provides Notifications When Items Added or Removed



Public Class ObservableList(Of T)
   Inherits List(Of T)

#Region " Constructor "

   Public Sub New()

   End Sub

#End Region

#Region " Property "

   Public ReadOnly Property InnerList As IEnumerable(Of T)
       Get
           Return MyBase.ToList.AsReadOnly
       End Get
   End Property

#End Region

#Region " Method "

   Public Overloads Sub Add(item As T)
       If Not Me.InnerList.Contains(item) Then
           MyBase.Add(item)
           Me.OnChanged(item, ObservableChangeAction.Add)
       End If
   End Sub

   Public Overloads Sub Remove(item As T)
       If Me.InnerList.Contains(item) Then
           MyBase.Remove(item)
           Me.OnChanged(item, ObservableChangeAction.Remove)
       End If
   End Sub

   Protected Sub OnChanged(item As T, action As ObservableChangeAction)
       RaiseEvent Changed(Me, New ObservableEventArgs(CType(item, Object), action))
   End Sub

#End Region

#Region " Event "

   Public Event Changed As EventHandler(Of ObservableEventArgs)

#End Region

End Class ' ObservableList(Of T(




Public Class ObservableHashSet(Of T)
   Inherits HashSet(Of T)

#Region " Constructor "

   Public Sub New()

   End Sub

#End Region

#Region " Property "

   Public ReadOnly Property InnerList As IEnumerable(Of T)
       Get
           Return MyBase.ToList.AsReadOnly
       End Get
   End Property

#End Region

#Region " Method "

   Public Overloads Sub Add(item As T)
       If MyBase.Add(item) Then
           Me.OnChanged(item, ObservableChangeAction.Add)
       End If
   End Sub

   Public Overloads Sub Remove(item As T)
       If MyBase.Remove(item) Then
           Me.OnChanged(item, ObservableChangeAction.Remove)
       End If
   End Sub

   Protected Sub OnChanged(item As T, action As ObservableChangeAction)
       RaiseEvent Changed(Me, New ObservableEventArgs(CType(item, Object), action))
   End Sub

#End Region

#Region " Event "

   Public Event Changed As EventHandler(Of ObservableEventArgs)

#End Region

End Class ' ObservableHashSet(Of T(




Public Class ObservableEventArgs
   Inherits EventArgs

   Public Sub New(item As Object, changeAction As ObservableChangeAction)
       Me.Item = item
       Me.ChangeAction = changeAction
   End Sub

   Public Property Item As Object
   Public Property ChangeAction As ObservableChangeAction

End Class ' ObservableEventArgs




Public Enum ObservableChangeAction
   Add
   Remove
End Enum



Comments

Post a Comment

Popular posts from this blog

Image Transition in VB.NET Windows Forms

Image
Introduction This article demonstrates how to implement a simple transition on images in VB.NET. Transitions are one of the most useful features used in slide shows, business presentations, videos, screensavers, and with transitions, coders can build simple and easy visual effects on their web pages/Windows Forms/videos with simple and very minimal code. Background You may find a lot of articles that demonstrate how to implement image transitions using Silverlight or Dynamic HTML, but it's rare to find articles that talk about image transitions either in C# or VB.NET Windows Forms ...... apparently, image transitions are very good business. In this article, I'll try to explain some of the most popular image transition methods and how they are done. Transitions and Visual Effects The list below shows the most popular image visual effects/transitions. You may follow the same transition names or rename the transitions to your convenience Barn : motion tha...
Read more

مقدمة الي تشفير الحروف الأبجدية العربية

مقدمة الحروف العربية مظلومة قليلا و غاليا اي مبرمج يعاني أحيانا في التعامل مع الحروف العربية تحديدا او قد يعاني أيضا حين  يريد التعامل مع اي حروف مكتوبة بلغة أخري غير اللغة الإنجليزية و في هذا الموضوح سأحاول أن أوضح كيفية تشفير الحروف العربية فقط الفكرة الحروف بشكل عام لها جداول وداخل هذه الجداول ستجد أن الحروف مرتبة برقم مسلسل و ايضا لها رقم  سداسي عشري  أو بمعني أدق كل حرف في جداول الحروف له مميزات يتم استخدامها للتفريق بينه و بين باق الحروف الأمثلة التالية توضح كيفية الحصول علي الرقم المسلسل الخاص بأي حرف مثال 1: الكود التالي يوضح مثال بسيط لكيفية الحصول علي الرقم المسلسل الخاص بحرف الياء التي تحتها نقطتان Dim c  As  Char  =  "ي" c Me . Text  =  Convert . ToInt32 ( c ) مثال 2: أيضا الكود التالي يوضح كيفية الحصول علي الرقم المسلسل الخاص بحرف الهمزة Dim c  As  Char  =  "ء" c Me . Text  =  Convert . ToInt32 ( c ) من الأمثلة أعلاه ستكتشف ان الرقم المسلسل بالحروف العربية يبدأ من ا...
Read more

مقدمة إلي إخفاء المعلومات - الجزء الثاني

في هذا الجزء من موضوع مقدمة إلي إخفاء المعلومات سنوضح و بطريقة مبسطة كيف يمكن تحويل تكست او مجموعة من الحروف الي مجموعة من الصور ثم نوضح الكيفية التي من الممكن بها استرداد هذه الحروف مرة أخري  من تلك الصور بشكل عام هدفي من طرح هذا الموضوع هو توضيح انه كيف ومن مجرد فكرة بسيطة  أن تخرج منها بأفكار أخري أهم و الفكرة سيتم كتابتها علي مراحل لتوضيح بعضا من الموضوعات التالية   حفظ المعلومات و حمايتها حماية السورس كود بناء الباركود و قرائته تحويل الملفات الي أنماط مختلفة بناء الفونت بناء الصور المتحركة حماية السيريال الخاص باي برنامج تحويل الحروف الي صور الخطوات التالية توضح كيفية تحويل مجموعة من الحروف الي مجموعة صور  تعريف الكلمة او الحروف Dim s  As  String  =  "omar amin"  تعريف مصفوفة الصور Dim bitmaps  As  Bitmap () = New  Bitmap ( s . Length  -  1 ) {} تحويل كل حرف موجود في التكست الي صورة و ذلك باستخدام الدوال التي كتبناها في الخلاصة أعلاه ثم نقوم بإ...
Read more