MDI Form IconMenu Demonstration (22K)
10 Jan 1999
First Posting
vbAccelerator - Contents of code file: mfrmMain.frm
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
Object = "{A22D979F-2684-11D2-8E21-10B404C10000}#1.4#0"; "cPopMenu.ocx"
Begin VB.MDIForm mfrmMain
BackColor = &H8000000C&
Caption = "Multi MDI Menu Tester"
ClientHeight = 3660
ClientLeft = 3135
ClientTop = 2535
ClientWidth = 7545
Icon = "mfrmMain.frx":0000
LinkTopic = "MDIForm1"
Begin cPopMenu.PopMenu ctlPopMenu
Left = 1680
Top = 660
_ExtentX = 1058
_ExtentY = 1058
HighlightCheckedItems= 0 'False
TickIconIndex = 0
End
Begin ComctlLib.ImageList ilsIcons
Left = 2340
Top = 660
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 76
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":0624
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":093E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":0C58
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":0F72
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":128C
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":15A6
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":18C0
Key = ""
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":1BDA
Key = ""
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":1EF4
Key = ""
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":220E
Key = ""
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":2528
Key = ""
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":2842
Key = ""
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":2B5C
Key = ""
EndProperty
BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":2E76
Key = ""
EndProperty
BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":3190
Key = ""
EndProperty
BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":34AA
Key = ""
EndProperty
BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":37C4
Key = ""
EndProperty
BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":3ADE
Key = ""
EndProperty
BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":3DF8
Key = ""
EndProperty
BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":4112
Key = ""
EndProperty
BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":442C
Key = ""
EndProperty
BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":4746
Key = ""
EndProperty
BeginProperty ListImage24 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":4A60
Key = ""
EndProperty
BeginProperty ListImage25 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":4D7A
Key = ""
EndProperty
BeginProperty ListImage26 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":5094
Key = ""
EndProperty
BeginProperty ListImage27 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":53AE
Key = ""
EndProperty
BeginProperty ListImage28 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":56C8
Key = ""
EndProperty
BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":59E2
Key = ""
EndProperty
BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":5CFC
Key = ""
EndProperty
BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":6016
Key = ""
EndProperty
BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":6330
Key = ""
EndProperty
BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":664A
Key = ""
EndProperty
BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":6964
Key = ""
EndProperty
BeginProperty ListImage35 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":6C7E
Key = ""
EndProperty
BeginProperty ListImage36 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":6F98
Key = ""
EndProperty
BeginProperty ListImage37 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":72B2
Key = ""
EndProperty
BeginProperty ListImage38 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":75CC
Key = ""
EndProperty
BeginProperty ListImage39 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":78E6
Key = ""
EndProperty
BeginProperty ListImage40 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":7C00
Key = ""
EndProperty
BeginProperty ListImage41 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":7F1A
Key = ""
EndProperty
BeginProperty ListImage42 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":8234
Key = ""
EndProperty
BeginProperty ListImage43 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":854E
Key = ""
EndProperty
BeginProperty ListImage44 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":8868
Key = ""
EndProperty
BeginProperty ListImage45 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":8B82
Key = ""
EndProperty
BeginProperty ListImage46 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":8E9C
Key = ""
EndProperty
BeginProperty ListImage47 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":91B6
Key = ""
EndProperty
BeginProperty ListImage48 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":94D0
Key = ""
EndProperty
BeginProperty ListImage49 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":97EA
Key = ""
EndProperty
BeginProperty ListImage50 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":9B04
Key = ""
EndProperty
BeginProperty ListImage51 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":9E1E
Key = ""
EndProperty
BeginProperty ListImage52 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":A138
Key = ""
EndProperty
BeginProperty ListImage53 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":A452
Key = ""
EndProperty
BeginProperty ListImage54 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":A76C
Key = ""
EndProperty
BeginProperty ListImage55 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":AA86
Key = ""
EndProperty
BeginProperty ListImage56 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":ADA0
Key = ""
EndProperty
BeginProperty ListImage57 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":B0BA
Key = ""
EndProperty
BeginProperty ListImage58 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":B3D4
Key = ""
EndProperty
BeginProperty ListImage59 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":B6EE
Key = ""
EndProperty
BeginProperty ListImage60 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":BA08
Key = ""
EndProperty
BeginProperty ListImage61 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":BD22
Key = ""
EndProperty
BeginProperty ListImage62 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":C03C
Key = ""
EndProperty
BeginProperty ListImage63 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":C356
Key = ""
EndProperty
BeginProperty ListImage64 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":C670
Key = ""
EndProperty
BeginProperty ListImage65 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":C98A
Key = ""
EndProperty
BeginProperty ListImage66 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":CCA4
Key = ""
EndProperty
BeginProperty ListImage67 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":CFBE
Key = ""
EndProperty
BeginProperty ListImage68 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":D2D8
Key = ""
EndProperty
BeginProperty ListImage69 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":D5F2
Key = ""
EndProperty
BeginProperty ListImage70 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":D90C
Key = ""
EndProperty
BeginProperty ListImage71 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":DC26
Key = ""
EndProperty
BeginProperty ListImage72 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":DF40
Key = ""
EndProperty
BeginProperty ListImage73 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":E25A
Key = ""
EndProperty
BeginProperty ListImage74 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":E574
Key = ""
EndProperty
BeginProperty ListImage75 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":E88E
Key = ""
EndProperty
BeginProperty ListImage76 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "mfrmMain.frx":EBA8
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuFileTOP
Caption = "&File"
Begin VB.Menu mnuFile
Caption = "&New"
Index = 0
End
Begin VB.Menu mnuFile
Caption = "-"
Index = 1
End
Begin VB.Menu mnuFile
Caption = "E&xit"
Index = 2
End
End
Begin VB.Menu mnuHelpTOP
Caption = "&Help"
Begin VB.Menu mnuHelp
Caption = "&Contents..."
Index = 0
End
Begin VB.Menu mnuHelp
Caption = "&Search for Help On..."
Index = 1
End
Begin VB.Menu mnuHelp
Caption = "-"
Index = 2
End
Begin VB.Menu mnuHelp
Caption = "&About"
Index = 3
End
End
End
Attribute VB_Name = "mfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' This demonstration app demonstrates how to use the
' cPopMenu control to support MDI projects where the
' child forms have their own menus.
Public Sub NewWindow()
Dim f As frmChildMenu
Set f = New frmChildMenu
f.Show
End Sub
Public Sub EndApp()
Dim frm As Form
' Unload all forms:
For Each frm In Forms
If (frm.Name = "frmChildMenu") Then
Unload frm
End If
Next frm
' Unload me:
Unload Me
End Sub
Private Sub ctlPopMenu_NewMDIMenu()
' Whenever you load a form with its own
' menu, this method will be called. Here
' you pass the call onto the form that has
' just been loaded so it can populate
' the icons:
If Not Me.ActiveForm Is Nothing Then
Me.ActiveForm.InitMenu
End If
End Sub
Private Sub MDIForm_Load()
' Set up the MDI forms' menu:
With ctlPopMenu
.SubClassMenu Me
.ImageList = ilsIcons
.ItemIcon("mnuFile(0)") = 41
.ItemIcon("mnuHelp(0)") = 26
End With
End Sub
Private Sub mnuFile_Click(Index As Integer)
Select Case Index
Case 0
NewWindow
Case 2
Unload Me
End Select
End Sub
