SDL Jetzt erst recht!

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb

@@ -0,0 +1,64 @@
+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