Enabling bzw. Disabling der Menu-Einträge aufgrund der angezeigten Rows im Truedbgrind

[Visual Basic]
Private Function Disable_Enable_Menu( _ 
   ByRef menu As ContextMenuStrip, _ 
   ByRef c1data As C1TrueDBGrid _ 
) As Object

Parameter

menu

Zu bearbeitendes Menu

c1data

Betroffenes Grid

Hinweise

Nach dem Setzen der Submenus wird sec.form_Security durchlaufen, damit allfällig standardmössig aktivierte Menueinträge aufgrund der Security-Einstellung wieder deaktiviert werden

Quellcode

[Visual Basic]
    Private Function Disable_Enable_Menu(ByRef menu As ContextMenuStrip, ByRef c1data As C1TrueDBGrid) 
        If Me.FormReadonly Then 
            For Each obj As Object In menu.Items 
                Dim objtype As System.Type = obj.GetType 
                If LCase(objtype.Name) = "toolstripmenuitem" Then 
                    Dim mnu As ToolStripMenuItem = obj 
                    If (mnu.Text.IndexOf("Anzeigen") > 0 Or mnu.Text.IndexOf("anzeigen") > 0 Or mnu.Text.IndexOf("Details") > 0) And c1data.Splits(0).Rows.Count > 0 Then 
                        mnu.Enabled = True 
                    Else 
                        mnu.Enabled = False 
                    End If 
                End If 
            Next 
            sec.Set_Form_Security(Me) 
            Exit Function 
        End If 
 
        If c1data.Splits(0).Rows.Count = 0 Then 
            For Each obj As Object In menu.Items 
                Dim objtype As System.Type = obj.GetType 
                If LCase(objtype.Name) = "toolstripmenuitem" Then 
                    Dim mnu As ToolStripMenuItem = obj 
                    If mnu.Text.IndexOf("Neu") > 0 Then 
                        mnu.Enabled = True 
                    Else 
                        mnu.Enabled = False 
                    End If 
                End If 
            Next 
        Else 
            For Each obj As Object In menu.Items 
                Dim objtype As System.Type = obj.GetType 
                If LCase(objtype.Name) = "toolstripmenuitem" Then 
                    Dim mnu As ToolStripMenuItem = obj 
                    mnu.Enabled = True 
                End If 
            Next 
        End If 
        sec.Set_Form_Security(Me) 
 
    End Function

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

frmApplikationskontakt