neu

Aviso/Anhänge/usrCntlSendungAnhangElement.vb

@@ -0,0 +1,74 @@
+Imports System.ComponentModel
+
+Public Class usrCntlSendungAnhangElement
+    ' Implements INotifyPropertyChanged
+
+
+
+    ' Property FILE_NAME = ""
+    Property FILE_PATH
+    Property FILE_TYPE
+
+    Property FILE_PAGES
+    Property FILE_DOCID
+    Property FILE_ANHID
+
+
+    Public Event ME_CLICK()
+
+
+    'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
+
+    'Private Sub NotifyPropertyChanged(ByVal info As String)
+    '    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
+    'End Sub
+
+    Private ACTIVE_Value As Boolean = False
+    Public Property ACTIVE As Boolean
+        Get
+            Return Me.ACTIVE_Value
+        End Get
+
+        Set(ByVal value As Boolean)
+            If Not (value = ACTIVE) Then
+                Me.ACTIVE_Value = value
+                ' NotifyPropertyChanged("ACTIVE")
+            End If
+
+            If value Then
+                Me.BackColor = Color.FromArgb(0, 54, 128)
+                Me.lbl.ForeColor = Color.White
+            Else
+                Me.BackColor = Color.White
+                Me.lbl.ForeColor = Color.Black
+            End If
+        End Set
+    End Property
+
+
+    Private FILE_NAME_Value As String = False
+    Public Property FILE_NAME As String
+        Get
+            Return Me.FILE_NAME_Value
+        End Get
+
+        Set(ByVal value As String)
+            If Not (value = FILE_NAME) Then
+                Me.FILE_NAME_Value = value
+                Me.lbl.Text = value
+                ' NotifyPropertyChanged("FILE_NAME")
+            End If
+        End Set
+    End Property
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
+        RaiseEvent ME_CLICK()
+    End Sub
+    Public Sub CLICK_Me()
+        RaiseEvent ME_CLICK()
+    End Sub
+
+    Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick
+        Process.Start(Me.FILE_PATH)
+    End Sub
+End Class