Hi Dani,
I sure will share my code as soon as I figure it out.
Thanks again
Hi,
This is what I have so far, still not working the way I wanted it to be.
In MDIForm1:
Public Sub Form_Load()
Call CreateMainMenu()
End Sub
Public Sub createMainMenu()
'Remove the current menubar
Me.MenuBar.Parent.removeAll()
Dim myFileMenu As VBMenuGroup
myFileMenu = Me.MenuBar.createMenuGroup(Null, "File", "File")
Me.MenuBar.createMenu myFileMenu, "FileNew", "New"
Me.MenuBar.createMenu myFileMenu, "FileOpen", "Open"
Me.MenuBar.createMenu myFileMenu, "FileClose", "Close"
Me.MenuBar.createMenu myFileMenu, "FileExit", "Exit"
End Sub
Public Sub addChildMenu()
'Remove the current menubar
Me.MenuBar.Parent.removeAll()
Dim myFileMenu As VBMenuGroup
myFileMenu = Me.MenuBar.createMenuGroup(Null, "File", "File")
Me.MenuBar.createMenu myFileMenu, "FileNew", "New"
Me.MenuBar.createMenu myFileMenu, "FileOpen", "Open"
Me.MenuBar.createMenu myFileMenu, "FileClose", "Close"
Me.MenuBar.createMenu myFileMenu, "FileExit", "Exit"
Dim myEidtMenu As VBMenuGroup
myEidtMenu = Me.MenuBar.createMenuGroup(Null, "Edit", "Edit")
Me.MenuBar.createMenu myEidtMenu, "EditCopy", "Copy"
Me.MenuBar.createMenu myEidtMenu, "EditPaste", "Paste"
Me.MenuBar.createMenu myEidtMenu, "EditDelete", "Delete"
End Sub
Public Sub Form_MenuClick(MenuItem As VB#IMenuItem)
Select Case MenuItem.ControlID
Case "FileExit"
'Exit Application
Me.Close()
Call End
Case "FileOpen"
Call addChildMenu()
Dim f As New MDIChild1
f.Caption = "New MDIChild"
f.Show()
Case "FileNew"
Case "FileOpen"
' Case "FileClose"
' f.Close()
' Call createMainMenu()
' Call DoEvents()
End Select
End Sub
In MDIChild1:
Public Sub Form_MenuClick(MenuItem As VB#IMenuItem)
Select Case MenuItem.ControlID
Case "FileClose"
Call MDIForm1.createMainMenu()
Me.Close()
End Select
End Sub
But MDIChild1's Form_MenuClick event never fired. any suggestion?
Thanks