commit

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb

@@ -1,62 +0,0 @@
-Imports System.Windows.Forms
-
-Public Class frmPDFScanList
-    Public KdNr As Integer = -1
-    'Dim DATENSERVER As New cDATENSERVER
-    Public _DATENSERVER_ORDNER As String = ""
-    Public _TEXT_PDF As String = ""
-    ' Public ScanID As String = ""
-    ' Public pdf_Path As String = ""
-
-    Public Event FileAdded(ScanID As Integer, path As String, name As String)
-    Sub New()
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-
-    End Sub
-
-    Sub New(KdNr, _DATENSERVER_ORDNER, _TEXT_PDF)
-
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-        Me.KdNr = KdNr
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-
-    End Sub
-
-    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
-        Me.Close()
-    End Sub
-
-    Private Sub frmPDFScanList_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        Me.Location = Windows.Forms.Cursor.Position
-    End Sub
-
-    Private Sub frmPDFScanList_LostFocus(sender As Object, e As EventArgs) Handles Me.Deactivate, Me.LostFocus
-        ''Threading.Thread.Sleep(100)
-        'For Each c In Me.FlowLayoutPanel.Controls
-        '    If DirectCast(c, usrCntLPDFScanSimple).cntxt.Visible Then
-        '        Exit Sub
-        '    End If
-        'Next
-        'For Each c In Me.listlOld.Controls
-        '    If DirectCast(c, usrCntLPDFScanSimple).cntxt.Visible Then
-        '        Exit Sub
-        '    End If
-        'Next
-        Dim trd = New System.Threading.Thread(AddressOf Me.threadClose)
-        trd.IsBackground = True
-        trd.Start()
-
-
-    End Sub
-
-    Sub threadClose()
-        Threading.Thread.Sleep(100)
-        If Form.ActiveForm Is Nothing Then Exit Sub
-        If Me IsNot Form.ActiveForm Then Me.Close()
-    End Sub
-
-
-End Class