Generic Multi-Select MVVM ListBox Drag and Drop Helper with Custom Feedback for Silverlight 4.0

'/* Copyright (c) 2011, Graeme Grant (gragra33@hotmail.com)
' * All rights reserved.
' *
' * Redistribution and use in source and binary forms, with or without
' * modification, are permitted provided that the following conditions are met:
' *
' *   * Redistributions of source code must retain the above copyright
' *     notice, this list of conditions and the following disclaimer.
' * 
' *   * Redistributions in binary form must reproduce the above copyright
' *     notice, this list of conditions and the following disclaimer in the
' *     documentation and/or other materials provided with the distribution.
' * 
' * THIS SOFTWARE IS PROVIDED BY GRAEME GRANT ``AS IS'' AND ANY
' * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
' * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' * DISCLAIMED. IN NO EVENT SHALL GRAEME GRANT BE LIABLE FOR ANY
' * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
' * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
' * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
' * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
' * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
' * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
' */

Public Class SummaryTagModel : Inherits TagModel

#Region "Constructor"

    Sub New()
        MyBase.new()
    End Sub

#End Region

#Region "Properties"

    Public Const viewsTotalPropertyName As String = "viewsTotal"

    Private _viewsTotal As Integer
    Public Property viewsTotal() As Integer
        Get
            Return _viewsTotal
        End Get
        Set(ByVal value As Integer)
            If _viewsTotal = value Then
                Return
            End If
            _viewsTotal = value
            RaisePropertyChanged(viewsTotalPropertyName)
        End Set
    End Property

    Public Const num_likesTotalPropertyName As String = "num_likesTotal"

    Private _num_likesTotal As Integer
    Public Property num_likesTotal() As Integer
        Get
            Return _num_likesTotal
        End Get
        Set(ByVal value As Integer)
            If _num_likesTotal = value Then
                Return
            End If
            _num_likesTotal = value
            RaisePropertyChanged(num_likesTotalPropertyName)
        End Set
    End Property

#End Region

    Public Overloads Sub SetData(Data As SummaryTagModel)

        With Data
            viewsTotal = .viewsTotal
            num_likesTotal = .num_likesTotal
        End With
        MyBase.SetData(Data)

    End Sub

End Class