Zeigt eine Liste sämtlicher offener MDI-Formulare an. Nach Auswahl wird für das selektierte Formular die Security-Objekt-Tabelle generier

[Visual Basic]
Private Sub ObjectListerToolStripMenuItem_Click( _ 
   ByVal sender As Object, _ 
   ByVal e As EventArgs _ 
) Handles  _ 
   ObjectListerToolStripMenuItem.Click

Parameter

sender

e

Quellcode

[Visual Basic]
    Private Sub ObjectListerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObjectListerToolStripMenuItem.Click 
        If InputBox("Passwort:") <> "341211" Then Exit Sub 
        Dim formselector As New frmFormSelector 
        formselector.ListForms.Items.Clear() 
        formselector.ListForms.Items.Add(Me.Name) 
        For Each x As Form In Me.MdiChildren 
            formselector.ListForms.Items.Add(x.Name) 
        Next 
        formselector.ShowDialog() 
        If formselector.DialogResult = Windows.Forms.DialogResult.OK Then 
            If formselector.ListForms.SelectedItem = Me.Name Then 
                sec.List_Form_Controls(Me) 
                sec.Print_Screen(Me) 
                Exit Sub 
            End If 
            For Each x As Form In Me.MdiChildren 
                If x.Name = formselector.ListForms.SelectedItem Then 
                    sec.List_Form_Controls(x) 
                    sec.Print_Screen(x) 
                End If 
            Next 
 
        End If 
    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 | MySecurity