[Gambas-user] Menu has no Click() event
Gianluigi
bagonergi at ...626...
Mon Oct 3 20:00:21 CEST 2016
In my Ubuntu the your code without *hMenu.Name = "hMenu"* do not work.
And this code is unnecessary:
Public Sub TrayIcon1_Click()
hMenu.Popup
End
Public Sub Timer1_Timer()
If Me.Visible == True Then
Me.Visible = False
Endif
End
2016-10-03 18:38 GMT+02:00 Demosthenes Koptsis <demosthenesk at ...626...>:
> Yes it works also in Ubuntu Mate.
>
> Final code:
> ----------------------
> ' Gambas class file
>
> Public hMenu As Menu
> Public hMenu2 As Menu
> Public hMenu3 As Menu
>
> Public Sub Form_Open()
>
> TrayIcon1.PopupMenu = "hMenu"
> TrayIcon1.Show
> TrayIcon1.Visible = True
>
> 'Create the popup menu
> hMenu = New Menu(Me, True) As "RootMenu"
>
> hMenu2 = New Menu(hMenu) As "Menu2"
> hMenu2.Text = "Mount ISO"
>
> hMenu3 = New Menu(hMenu) As "Menu3"
> hMenu3.Text = "Unmount ISO"
>
> End
>
> Public Sub TrayIcon1_Click()
>
> hMenu.Popup
>
> End
>
> Public Sub Timer1_Timer()
>
> If Me.Visible == True Then
> Me.Visible = False
> Endif
>
> End
>
> Public Sub Menu2_Click()
>
> Message.Info("hello Menu2")
>
> End
>
> Public Sub Menu3_Click()
>
> Message.Info("hello Menu3")
>
> End
> ----------------------------
>
> On 3/10/2016 19:18 μμ, Gianluigi wrote:
> > Hello Charlie,
> > It also works the message?
> >
> > 2016-10-03 15:55 GMT+02:00 Charlie <charlie at ...2793...>:
> >
> >> Your code works fine in Linux Mint 18 Cinnamon 64bit
> >> http://www.cogier.com/gambas/TestG.png
> >> <http://www.cogier.com/gambas/TestG.png>
> >>
> >>
> >>
> >> --
> >> View this message in context: http://gambas.8142.n7.nabble.
> >> com/Menu-has-no-Click-event-tp57442p57457.html
> >> Sent from the gambas-user mailing list archive at Nabble.com.
> >> ------------------------------------------------------------
> >> ------------------
> >> 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 at 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 at 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 at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
More information about the User
mailing list