75 lines
2.0 KiB
VB.net
75 lines
2.0 KiB
VB.net
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
|