17 lines
518 B
Plaintext
17 lines
518 B
Plaintext
Imports System.IO
|
|
Imports System.Reflection
|
|
|
|
Module Globals
|
|
Public Spaltendaten As New DataTable
|
|
Public Datenbank As String = My.Settings.LPConnectionString & ";"
|
|
Public OffenePlaetze_Visible As Boolean = False
|
|
Public ReserviertePlaetze_Visible As Boolean = False
|
|
Public f As frmOffenePlaetzen
|
|
Public f1 As frm_ReserviertePlaetze
|
|
Public Function ApplicationPath() As String
|
|
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
|
End Function
|
|
|
|
End Module
|
|
|