TrayIcon...

Alle Fragen zur Programmierung, die nicht in die speziellen Themen passen
Antworten
silas_t
Foriker
Beiträge: 3
Registriert: Do 8. Feb 2007, 17:32
Kontaktdaten:

TrayIcon...

Beitrag von silas_t » Do 8. Feb 2007, 17:35

Hallo Leute,

ich bin neu in Gambas! Ich komme von Visual Basic und will nun in Gambas weitermachen°°

Könnt Ihr mir kurz aufzeigen, wie ich ein TrayIcon programmieren kann???

Also mit Menü!

Danke im Voraus

Silas_T

nibbana
Foriker
Beiträge: 143
Registriert: Fr 16. Dez 2005, 21:32
Kontaktdaten:

Beitrag von nibbana » Do 8. Feb 2007, 20:41

Du schreibst eine Funktion zum Aufbau eines Popup-Menus. Diese wird dann beim Klick mit der rechten Maustaste aufgerufen.

Code: Alles auswählen

' Popup-Menu erzeugen
PUBLIC SUB TrayIcon1_Menu()

  DIM menus, item AS Menu

  ' Neues Menu anlegen
  menus = NEW Menu(ME)
  menus.Visible = FALSE

  ' Neuer Eintrag im Menu, "TrayIcon1PopupMenu_Test1" ist der Funtionsname
  ' der aufgerufen werden soll.
  item = NEW Menu(menus) AS "TrayIcon1PopupMenu_Test1"
  item.Text = ("Test 1") ' Text für Menupunkt
  item.Picture = Stock["zoom-in"] ' Icon für Menupunkt

  ' usw.
  item = NEW Menu(menus) AS "TrayIcon1PopupMenu_Test2"
  item.Text = ("Test 2")
  item.Picture = Stock["zoom-out"]

  ' Menu anzeigen
  menus.Popup()
END
Und dann noch die passenden Funktionen für die Menueinträge.

Code: Alles auswählen

' Und hier definierst du die Funktion, hängst aber noch ein "_Click"
' an den Namen an
PUBLIC SUB TrayIcon1PopupMenu_Test1_Click()

  Message.Info("1. Menupunkt aufgerufen")

END

PUBLIC SUB TrayIcon1PopupMenu_Test2_Click()

  Message.Info("2. Menupunkt aufgerufen")

END
mfg. nibbana
"Ich denke, also bin ich." (Descartes)

"Ich denke nicht, also was?" (Zen Meister Seung Sahn)

silas_t
Foriker
Beiträge: 3
Registriert: Do 8. Feb 2007, 17:32
Kontaktdaten:

Danke...

Beitrag von silas_t » So 18. Feb 2007, 13:57

Vielen Dank



Silas_T
Danke im Voraus

Silas_T


Suse Linux 10.0

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste