142 lines
4.3 KiB
VB.net
142 lines
4.3 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 ME_DELETE(FILE_DOCID, FILE_ANHID)
|
|
|
|
|
|
'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 FILE_TYPE_Value As String = False
|
|
Public Property FILE_TYPE As String
|
|
Get
|
|
Return Me.FILE_TYPE_Value
|
|
End Get
|
|
|
|
Set(ByVal value As String)
|
|
If Not (value = FILE_TYPE) Then
|
|
Me.FILE_TYPE_Value = value
|
|
|
|
Select Case value
|
|
Case "PDF" : pic.BackgroundImage = My.Resources.pdf
|
|
Case "EXCEL" : pic.BackgroundImage = My.Resources.Excel_2013_logo_155x110
|
|
Case "WORD" : pic.BackgroundImage = My.Resources.word
|
|
Case "BILD" : pic.BackgroundImage = My.Resources.ImageIcon
|
|
Case "TEXT" : pic.BackgroundImage = My.Resources.android_note
|
|
Case Else : pic.BackgroundImage = My.Resources.docAllgemein
|
|
End Select
|
|
' NotifyPropertyChanged("FILE_TYPE")
|
|
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
|
|
If IO.File.Exists(Me.FILE_PATH) Then
|
|
Process.Start(Me.FILE_PATH) 'damit Orginial bearbeitet werden kann
|
|
End If
|
|
Exit Sub
|
|
|
|
'Dim p = New System.Diagnostics.Process()
|
|
'p.StartInfo.FileName = Me.FILE_PATH
|
|
'' p.StartInfo.Arguments = "/c echo Foo && echo Bar"
|
|
'p.StartInfo.RedirectStandardOutput = False
|
|
'p.StartInfo.UseShellExecute = False
|
|
'p.StartInfo.CreateNoWindow = True
|
|
'p.Start()
|
|
|
|
Exit Sub
|
|
|
|
Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
|
|
If ds IsNot Nothing Then
|
|
ds.OPEN_SINGLE()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
|
|
Dim bez = InputBox("Bitte geben Sie den neuen Dateinamen ein:")
|
|
If bez <> "" Then
|
|
Try
|
|
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
|
|
ANH.anh_Name = bez
|
|
ANH.SAVE()
|
|
FILE_NAME = bez
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
|
|
RaiseEvent ME_DELETE(FILE_DOCID, FILE_ANHID)
|
|
End Sub
|
|
|
|
Private Sub cntxt_Opening(sender As Object, e As CancelEventArgs) Handles cntxt.Opening
|
|
CLICK_Me()
|
|
End Sub
|
|
End Class
|