[deverauxxi]

Good Day !

Is it possible to list down Form Menu name in ListView?
Example:

- Assuming that the word listed below are MDIForm Menus.
File (mnuFile)
..... Open (mnuOpen)
..... New (mnuNew)
..... Save (mnuSave)
Insert (mnuInsert)
..... Picture(mnuPicture)
..... Shapes (mnuShapes)


- Items in ListView:
mnuFile
mnuOpen
mnuNew
mnuSave
mnuInsert
mnuPicture
mnuShapes

Thanks !

[deverauxxi]

I already get it !
xD


BTW, heres my code ..

    Dim mc As Variant
    For Each mc In MDIForm1.Controls
        If TypeName(mc) = "Menu" Then
            If mc.Caption <> "-" Then
                With ListView1
                .ColumnHeaders.Clear
                                    .ColumnHeaders.Add(, , "Menu Caption").Width = 3000
                                    .ColumnHeaders.Add(, , "Menu Name").Width = 2000
                    With .listitems
                        With .Add(, , mc.Caption)
                                            .ListSubItems.Add , , mc.Name
                        End With
                    End With
                End With
            End If
        End If
    Next

This post has been edited by BobRodes: 10 July 2012 - 11:36 AM

[BobRodes]

Nicely done!

One little minor improvement. Variants are large variables, because they have to include information about what type of variable they are. It's a little more efficient to declare your mc variable as a Control type, so:
Dim mc as Control
You probably didn't know you could do that.

By the way, I edited your post to include code tags.

[deverauxxi]

Thank you BobRodes for replying to all my posts.
You always giving me a lot of information to improve my programming skills.

[BobRodes]

You are most welcome.