While should not, it work also in a Module.
' Gambas module file
Public Sub AddMenuFromOutsideForm(hMenu As Menu)
Dim hMenuItem As Object
hMenuItem = New Menu(hMenu) As "mnCharacters"
hMenuItem.Text = "this don't work"
hMenuItem.Tag = "This do not work"
hMenuItem = New Menu(hMenu) As "mnCharacters"
hMenuItem.Text = "this also don't work'"
hMenuItem.Tag = "Also this do not work"
End
Public Sub mnCharacters_Click()
Print Last.tag & " - " & Last.Text
End
2017-02-08 14:25 GMT+01:00 Gianluigi :
> Hi Karl,
>
> If you want to work with events, you should use a class.
> See attached example.
>
> Regards
>
> Gianluigi
>
> 2017-02-07 23:41 GMT+01:00 Karl Reinl :
>
>> Am Montag, den 06.02.2017, 15:36 +0100 schrieb Fabien Bodard:
>> > I think the good way is this one :-)
>> >
>> > Public Sub AddMenuFromOutsideForm(hMenu As Menu)
>> > Dim hMenuItem As Object
>> > Dim hParent As Object = Object.Parent(hMenu)
>> >
>> > hMenuItem = New Menu(hMenu)
>> > hMenuItem = New Menu(hMenu)
>> > Object.Attach(hMenuItem, hParent, "mnu_this_dont_work")
>> > hMenuItem.Text = "this don't work"
>> > hMenuItem = New Menu(hMenu)
>> > Object.Attach(hMenuItem, hParent, "mnu_this_dont_work")
>> > hMenuItem.Text = "this also don't work'"
>> >
>> > End
>> >
>> >
>> > First find the class that handle menus events with object.parent on
>> > the given menu container.
>> >
>> > then attach the new menu events to the same class instance with
>> object.attach.
>> >
>> > 2017-02-06 15:08 GMT+01:00 Charlie Reinl :
>> > > Salut,
>> > >
>> > > how can I use dynamic created Menus, when they are made outside the
>> > > Form.
>> > > I expanded an example from Gianluigi to show what I want.
>> > > The problem is, the Click event is not fired, if the menu is not
>> created
>> > > in the forms class.
>> > >
>>
>> Salut,
>>
>> Fabien, gave me a solution for my problem. But I do not understand why I
>> can attach Items to the menu, but not their events?
>> --
>> Amicalement
>> Charlie
>>
>>
>>
>> --
>> Check out the vibrant tech community on one of the world's most
>> engaging tech sites, SlashDot.org! http://sdm.link/slashdot
>> ___
>> Gambas-user mailing list
>> Gambas-user@lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>
>
--
Check out the vibrant tech community on one of the world's most
engaging tech sites, SlashDot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
