'  /*                  *\ 
' |#* ListView Elektro *#| 
'  \*                  */
'
' // By Elektro H@cker
'
'   Properties:
'   ...........
' · Disable_Flickering
' · Double_Buffer
'
'   Events:
'   .......
' · ItemAdded
' · ItemRemoved
'
'   Methods:
'   .......
' · AddItem
' · RemoveItem
 
Public Class ListView_Elektro : Inherits ListView
 
    Public Event ItemAdded()
    Public Event ItemRemoved()
 
    Private _Disable_Flickering As Boolean = True
 
    Public Sub New()
        Me.Name = "ListView_Elektro"
        Me.DoubleBuffered = True
        ' Me.GridLines = True
        ' Me.MultiSelect = True
        ' Me.FullRowSelect = True
        ' Me.View = View.Details
    End Sub
 
#Region " Properties "
 
    ''' <summary>
    ''' Enable/Disable any flickering effect on the ListView.
    ''' </summary>
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            If _Disable_Flickering Then
                Dim cp As CreateParams = MyBase.CreateParams
                cp.ExStyle = cp.ExStyle Or &H2000000
                Return cp
            Else
                Return MyBase.CreateParams
            End If
        End Get
    End Property
 
    ''' <summary>
    ''' Set the Double Buffer.
    ''' </summary>
    Public Property Double_Buffer() As Boolean
        Get
            Return Me.DoubleBuffered
        End Get
        Set(ByVal Value As Boolean)
            Me.DoubleBuffered = Value
        End Set
    End Property
 
    ''' <summary>
    ''' Enable/Disable the flickering effects on this ListView.
    ''' 
    ''' This property turns off any Flicker effect on the ListView
    ''' ...but also reduces the performance (speed) of the ListView about 30% slower.
    ''' This don't affect to the performance of the application itself, only to the performance of this control.
    ''' </summary>
    Public Property Disable_Flickering() As Boolean
        Get
            Return _Disable_Flickering
        End Get
        Set(ByVal Value As Boolean)
            Me._Disable_Flickering = Value
        End Set
    End Property
 
#End Region
 
#Region " Methods "
 
    ''' <summary>
    ''' Add an item to the ListView.
    ''' </summary>
    Public Function AddItem(ByVal Text As String) As ListViewItem
        RaiseEvent ItemAdded()
        Return MyBase.Items.Add(Text)
    End Function
 
    ''' <summary>
    ''' Remove an item from the ListView.
    ''' </summary>
    Public Sub RemoveItem(ByVal Item As ListViewItem)
        RaiseEvent ItemRemoved()
        MyBase.Items.Remove(Item)
    End Sub
 
#End Region
 
End Class

#Region " [ListView Elektro] Monitor Item added-removed "
 
    ' [ListView Elektro] Monitor Item added-removed
    '
    ' // By Elektro H@cker
 
        Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
           Dim Item As ListViewItem = ListView1.AddItem("Test") ' Add the item
           ListView1.RemoveItem(Item) ' Remove the item
       End Sub
 
       Private Sub ListView_ItemChanged() Handles ListView1.ItemAdded, ListView1.ItemRemoved
 
           ' I check if exists at least 1 item inside the ListView
           If ListView1.Items.Count <> 1 Then MsgBox("Listview have items.") Else MsgBox("Listview is empty.")
 
       End Sub
 
#End Region