You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
1.9 KiB
69 lines
1.9 KiB
Imports System.IO
|
|
Imports System.Reflection
|
|
Module Globals
|
|
''' <summary>
|
|
''' Applikationsversion
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public Version As String = "3.1"
|
|
Public Versionsdatum As String = "22.01.2022"
|
|
|
|
''' <summary>
|
|
''' Applikationsdaten
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public Applikationsdaten As DataTable
|
|
Public AppldataRow As Integer
|
|
|
|
'Public TTContextMenuStrip As New ContextMenuStrip
|
|
|
|
|
|
''' <summary>
|
|
''' Angemelderter Mitarbeiter
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public clsmitarbeiter As New TKB.VV.DB.clsMitarbeiter
|
|
''' <summary>
|
|
''' Applikationsparameter
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public clsapplication As New TKB.VV.DB.clsApplication
|
|
''' <summary>
|
|
''' DB-Verbindungsklasse
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public sConnectionString As String
|
|
Public conn As New TKB.VV.DB.clsConnectionProvider
|
|
Public ConnectionFileName As String = ""
|
|
Public dbconn As New TKB.VV.DB.DB_Connection
|
|
|
|
Public SecurityDaten As New DataSet
|
|
Public Spaltendaten As New DataTable
|
|
Public ToolTipDaten As New DataSet
|
|
Public Set_ToolTips As Boolean = False
|
|
|
|
|
|
''' <summary>
|
|
''' Aktueller Applikationspfad
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function ApplicationPath() As String
|
|
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
|
End Function
|
|
|
|
Public WithEvents MyEventHanlder As New MyGenericEventHandler
|
|
|
|
Public WithEvents Generic_Event_Handler As New Generic_Event_Handler
|
|
|
|
Public Function OpenLink(ByVal Hyperlink As String)
|
|
Try
|
|
Dim webAddress As String = Hyperlink
|
|
Process.Start(webAddress)
|
|
Catch ex As Exception
|
|
MsgBox("Beim Link-Aufruf ist ein Fehler aufgetreten: " + ex.Message)
|
|
End Try
|
|
|
|
End Function
|
|
End Module
|