Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: Έχω θέμα με ToolStripMenuItem

AlKiS — Thu, 16 Feb 2012 01:13:25 GMT

okay, πήρα το δικό σου, το άλλαξα λιγάκι:

            For Each item As Object In .MainMenuStrip.Items
                If TypeOf item Is ToolStripMenuItem Then
                    DirectCast(item, ToolStripMenuItem).ForeColor = SystemColors.ControlText
                End If
            Next

και παίζει μια χαρούλα

Ευχαριστώ πολύ :)

Απ: Έχω θέμα με ToolStripMenuItem

nikos123 — Wed, 15 Feb 2012 19:22:10 GMT

Πρέπει να πας στα Items του menustrip κοιτάζοντας να είναι ToolStripMenuItem.

Μετά για κάθε ToolStripMenuItem αναδρομικά στα DropDownItems (ελέγχοντας να είναι ToolStripMenuItem και αυτά).

Δοκίμασα αυτό σε C# (βάζοντας μέσα και ToolStripComboBox, ToolStripTextBox) και νομίζω είναι OK.

        private void button1_Click(object sender, EventArgs e)
        {
            foreach(var item in menuStrip1.Items)
                if(item is ToolStripMenuItem)
                {
                    ((ToolStripMenuItem)item).ForeColor = Color.Red;
                    SetTextColor(Color.Red, (ToolStripMenuItem)item);
                }
        }

        private void SetTextColor(Color c, ToolStripMenuItem toolStripmenuItem)
        {
            foreach(var item in toolStripmenuItem.DropDownItems)
                if(item is ToolStripMenuItem)
                {
                    ((ToolStripMenuItem)item).ForeColor = c;
                    SetTextColor(c, (ToolStripMenuItem)item);
                }
        }

Απ: Έχω θέμα με ToolStripMenuItem

AlKiS — Wed, 15 Feb 2012 18:13:36 GMT

Ευχαριστώ,

όμως θα με βοηθούσε πολύ να το κάνω με τον συγκεκριμένο τρόπο.

Μήπως ξέρεις τι μπορώ να βάλω το For Each για να ελέγχο TypeOf x Is ToolStripMenuItem >

Απ: Έχω θέμα με ToolStripMenuItem

nikos123 — Wed, 15 Feb 2012 08:48:30 GMT

Δεν χρειάζεται να κάνεις enumerate τα ToolStripMenuItem. Τα skins αλλάζουν πολύ εύκολα με το Renderer.

Φτιάξε κλάσεις για κάθε skin. Μπορείς να αλλάζεις πολλά άλλα εκτός από ForeColor

        public Form1()
        {
            InitializeComponent();
            menuStrip1.Renderer = new BlueTextRenderer();
        }

        private class RedTextRenderer : ToolStripProfessionalRenderer
        {
            protected override void OnRenderItemText(ToolStripItemTextRenderEventArgs e)
            {
                e.TextColor = Color.Red;
                base.OnRenderItemText(e);
            }
        }
        private class BlueTextRenderer : ToolStripProfessionalRenderer
        {
            protected override void OnRenderItemText(ToolStripItemTextRenderEventArgs e)
            {
                e.TextColor = Color.Blue;
                base.OnRenderItemText(e);
            }
        }

Έχω θέμα με τα "Controls"

AlKiS — Wed, 15 Feb 2012 00:39:29 GMT

Έχω γράψει τον εξής κώδικα:

    Public Sub doRemoveSkin(ByVal frm As frmMain)
        With frm
            .BackgroundImage = Nothing

            .mniFileMenu.ForeColor = SystemColors.ControlText
            .mniActionsMenu.ForeColor = SystemColors.ControlText
            .mniHelpMenu.ForeColor = SystemColors.ControlText
            .mniLinksMenu.ForeColor = SystemColors.ControlText
            .mniSettingsMenu.ForeColor = SystemColors.ControlText

            For Each MainCtrl As Control In .Controls
                If TypeOf MainCtrl Is Button Then
                    DirectCast(MainCtrl, Button).Image = Nothing
                    DirectCast(MainCtrl, Button).ForeColor = SystemColors.ControlText

                ElseIf TypeOf MainCtrl Is Label Then
                    DirectCast(MainCtrl, Label).ForeColor = SystemColors.ControlText

                ElseIf TypeOf MainCtrl Is GroupBox Then
                    DirectCast(MainCtrl, GroupBox).ForeColor = SystemColors.ControlText

                    For Each ctrl As Control In DirectCast(MainCtrl, GroupBox).Controls
                        If TypeOf ctrl Is Button Then
                            DirectCast(ctrl, Button).Image = Nothing
                            DirectCast(ctrl, Button).ForeColor = SystemColors.ControlText

                        ElseIf TypeOf ctrl Is Label Then
                            DirectCast(ctrl, Label).ForeColor = SystemColors.ControlText

                        End If
                    Next
                End If
            Next


        End With
    End Sub


End Module

Ο κώδικας αυτός επαναφέρει στα αρχικά δεδομένα οτιδήποτε μπορεί να έχω αλλάξει σε μια φόρμα σε οποιοδήποτε πρόγραμμα μου.

Θέλω να αλλάξω το ByVal frm As frmMain) σε "As Form" αλλά έχω πρόβλημα με το μενού.

Έχω ένα κύριο μενού, και μέσα κάποια μενού items. Είδα λοιπόν ότι αυτά είναι ToolStripMenuItem αλλά δεν είναι μέσα στα controls! και δεν μπορώ να γράψω κάτι του τίπου:

            For Each MainCtrl As Control In .Controls
                If TypeOf MainCtrl Is ToolStripMenuItem Then

                End If

Οπότε αναγκαστικά τα κάνω manually

            .mniFileMenu.ForeColor = SystemColors.ControlText
            .mniActionsMenu.ForeColor = SystemColors.ControlText
            .mniHelpMenu.ForeColor = SystemColors.ControlText
            .mniLinksMenu.ForeColor = SystemColors.ControlText
            .mniSettingsMenu.ForeColor = SystemColors.ControlText

και οπότε το frm μένει σε As frmMain.

Πως να κάνω να βλέπει όλα τα menu?

δοκίμασα μπας και υπήρχε το For Each mni as ToolStripMenuItems (έβαλα "s" στο τέλος, όπως στα controlS), αλλά δεν υπάρχει........