Public Documents() As Document
 
    ' Struktur: Datentyp für die geöffneten Zeugnisgruppen
    Public Structure Document
        ' HTMLDocument: Zugriff auf das Document Objekt Modell der 
        ' HTML-Vorlagendatei
        Dim DOM As mshtml.HTMLDocumentClass
        ' Objektarray: Nimmt alle Input-Objekte auf
        Dim Inputs() As Input
        ' Integer: Speichert den Index des Input-Elementes in der 
        ' Abfragereihenfolge
        Dim InputOrder() As Integer
        ' Datenobjekte: Nimmt alle für die Datenbankverbindung benötigten 
        ' Variablen auf
        Dim DataObjects As DataObject
        ' DocumentPanel: Das zur Zeugnisgruppe zugehörige Zeugnisauswahlfenster
        Dim Sheetpanel As Sheetpanel
        ' WebBrowser: Der zur Zeugnisgruppe zugehörige Webbrowser
        Dim WebBrowser As AxSHDocVw.AxWebBrowser
        ' Integer: Index der zugehörigen Tabpage
        Dim TabIndex As Integer
        ' Integer: Index in der Documents-Auflistung
        Dim Index As Integer
        ' Integer: Der Index des aktuellen Zeugnisses
        Dim SheetIndex As Integer
        ' Boolean: Speicheraufforderung beim Schließen?
        Dim MustSave As Boolean
        ' String: Speicherort der Zeugnisgruppe
        Dim SavePath As String
        ' String: Backuport der Zeugnisgruppe
        Dim BackupPath As String
        ' String: Zeugnisvorlagenordner der Zeugnisgruppe
        Dim TemplateDirectory As String
    End Structure
 
    ' Struktur: Nimmt alle Datenbankobjekte auf
    Public Structure DataObject
        ' Dataset: Das Dataset der Datenbank
        Dim DataSet As DataSet
        ' String: Der Connectionstring der Datenbankverbindung
        Dim Connectionstring As String
        ' OleDbConnection: Die Datenbankverbindung
        Dim Connection As OleDb.OleDbConnection
        ' OleDbDataAdapter: Der Adapter zwischen Verbindung und Dataset
        Dim DataAdapter As OleDb.OleDbDataAdapter
        ' OleDbCommandBuilder: Der Commandbuilder zu Generieren der 
        ' Datenbankbefehle
        Dim CommandBuilder As OleDb.OleDbCommandBuilder
        ' ADOX.Catalog: Die Datenbankdatei
        Dim Catalog As ADOX.Catalog
    End Structure
 
    ' Struktur: Nimmt alle HTML-Inputs auf
    Public Structure Input
        ' String: Der Name des Input-Elementes
        Dim Name As String
        ' HTMLTyp: Der Typ des Input-Elementes
        Dim Typ As HTMLTyp
        ' Integer: Die Position in der Abfragereihenfolge
        Dim Orderindex As Integer
        ' String: Der Standartwert des Input-Elementes
        Dim DefaultValue As String
    End Structure
 
    ' Enumeration: Mögliche Typen eines HTML-Inputs
    Enum HTMLTyp
        TextElement
        SelectElement
    End Enum

Meine Homepage: www.dartrax.de