Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Menu con immagine in MdiForm e Mdichild

Un saluto a tutti.
Qualcuno conosce come inserire immagini in un menů di un form mdi e nei vari
mdiChild?
Ho provato varie soluzioni trovate in rete, ma tutte senza successo.
Ho scaricato anche il relativo conrollo e librerie da 
vbaccellerator.com
, ma
le immagini si inserirscono solo nel MdiForm e non nei Child.
Eppure il loro esempio funziona perfettamente, ma nel mio prog, il nulla!!
:(
Grazie, A prescindere
Valli

 wrote in message
news:l5%_5.2748$5k3....@twister2.tin.it...

Postare codice non funzionante, plz !
Ciao
Aldo


Sub Form_Load()
    FormMdi.MettiLeImmaginiNelMioMenu
EndSub
8-)))
CiaoVB


Questo nel MDIForm
' 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
 E QUESTO NEL CHILD
Public Sub InitMenu()
Dim lParent As Long
Dim i As Long
   ' This method is called by the MDI form when it
   ' detects a new menu.  This is your opportunity
   ' to tell the PopMenu to find the new menu items
   ' and to add the icons to it.
   With mfrmMain.ctlPopMenu
      ' Inform the pop menu control that
      ' the menu has changed:
      .SubClassMenu Me
      ' Set up the icons.
      .ItemIcon("mnuFile(0)") = 41
      .ItemIcon("mnuFile(1)") = 43
      .ItemIcon("mnuFile(2)") = 61
      .ItemIcon("mnuFile(6)") = 53
      .ItemIcon("mnuFile(7)") = 19
      .ItemIcon("mnuFile(9)") = 55
      .ItemIcon("mnuEdit(0)") = 70
      .ItemIcon("mnuEdit(3)") = 10
      .ItemIcon("mnuEdit(4)") = 9
      .ItemIcon("mnuEdit(5)") = 48
      .ItemIcon("mnuEdit(6)") = 13
      .ItemIcon("mnuEdit(9)") = 3
      .ItemIcon("mnuEdit(10)") = 17
      .ItemIcon("mnuHelp(0)") = 26
      ' Add a new sub menu for testing
      ' purposes:
      lParent = .MenuIndex("mnuTest(0)")
      For i = 1 To 10
         .AddItem "Test" & i, "NewMenu" & i, , , lParent, Rnd *
mfrmMain.ilsIcons.ListImages.Count
      Next i
   End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   ' If you create any new popup menus in this
   ' form, you must call this method to clear
   ' them up.  Otherwise there will be a memory
   ' leak (until the app is closed) and it is possible
   ' but unlikely you will ultimately run out of
   ' menu handles.
   mfrmMain.ctlPopMenu.UnsubclassMenu
End Sub
Questo codice funzia perfettamente nell'esempio di 
vbaccellerator.com
.
Riportato pari pari in un mio progetto (VB6 SP4)
visualizza le immagini solo nel MDIForm.
Ovviamente avevo caricato le librerie necessarie nei riferimenti e il
relativo ocx.
Se vuoi provarlo e non trovi il controllo su 
www.vbaccellerator.com
 avvisami
che te lo posto per privatamente per non intasare il NG.
Grazie ancora.
Ciao, Valli

 > news:l5%_5.2748$5k3....@twister2.tin.it...
...(very big cut)...
Grazie per il codice. Mi dici il nome del controllo e le eventuali
proprieta' impostate a design time ? Cosi' evito di rovistare il sito di
www.vbaccelerator.com
 e ne approfitto per esaminarlo, dato che finora il
subclassing me lo sono fatto sempre dirrettamente.
(n.b. ACCELERARE e non accellerare, come, peraltro, ho visto scritto anche
da giornalisti, deriva dal latino accelerare, derivante a sua volta da "ad"
"celer").
Ciao e grazie.
Aldo

 "celer").
( in cui "ad" non sta per "advertising" -- si sa mai :)))
stiamo piacevolmente progredendo verso
it.comp.latin.visual-basic ?

 wrote in message
news:91iqif$4ajef$1...@ID-51318.news.dfncis.de...

Gia' mi sembra di vederlo:
Publica Functio Praecipua() Instar Longus
    MeaForma.Ostendi 0
Finis Functionis