[Visual Basic]
Private Sub StartWindows( _ 
   ByVal sender As Object, _ 
   ByVal e As EventArgs _ 
)

Parameter

sender

e

Quellcode

[Visual Basic]
    Private Sub StartWindows(ByVal sender As System.Object, ByVal e As System.EventArgs) 
        Dim mae As New TKB.VV.DB.clsMitarbeitereinstellung 
        Dim dat As New DataTable 
        mae.cpMainConnectionProvider = Globals.conn 
        mae.iMitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value 
        dat = mae.SelectAllWMitarbeiternrLogic 
        If dat.Rows.Count > 0 Then 
            mae.iMitarbeitereinstellungnr = New SqlInt32(CType(dat.Rows(0).Item(0), Int32)) 
            mae.SelectOne() 
            Application.DoEvents() 
            If mae.bVertragsuebersicht.Value = True Then 
                If Me.VertragsübersichtToolStripMenuItem.Enabled = True Then 
                    VertragsübersichtToolStripMenuItem_Click(sender, e) 
                    Application.DoEvents() 
                End If 
            End If 
            If mae.bApplikationsuebersicht.Value = True Then 
                If Me.ApplikationsübersichtToolStripMenuItem.Enabled = True Then 
                    '20091008 - neu die Applikationsverwaltung starten 
                    'Me.ApplikationsübersichtToolStripMenuItem_Click(sender, e) 
                    Me.ApplikationToolStripMenuItem_Click(sender, e) 
                    Application.DoEvents() 
                End If 
            End If 
            If mae.bAktivitaeten.Value = True Then 
                If Me.AktivitätenToolStripMenuItem.Enabled = True Then 
                    Me.AktivitätenToolStripMenuItem_Click(sender, e) 
                    Application.DoEvents() 
                End If 
            End If 
            If mae.bPendenzen.Value = True Then 
                If Me.PendenzenToolStripMenuItem.Enabled = True Then 
                    Me.PendenzenToolStripMenuItem_Click(sender, e) 
                    Application.DoEvents() 
                End If 
            End If 
        End If 
        mae.Dispose() 
        dat.Dispose() 
    End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

frmMain