62 lines
1.9 KiB
VB.net
62 lines
1.9 KiB
VB.net
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 |