Konsole in Traybar verschieben

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Hallo,

    du kannst System.Windows.Forms Importieren(Verweise setzen)

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports System.Drawing
    4. Module Module1
    6. Private noti As New NotifyIcon
    8. Sub Main()
    9. noti.Icon = New Icon("C:\1.ico")
    10. noti.Visible = True
    11. Console.WriteLine("Mit Notifyicon")
    12. Console.WriteLine("Press Enter to Exit")
    13. Console.Read()
    14. noti.Visible = False
    15. End Sub
    17. End Module


    mfG

    Derfuhr

    Warnung 1 Der in Imports "System.Windows.Forms" angegebene Namespace oder Typ enthält keine öffentlichen Member oder kann nicht gefunden werden. Stellen Sie sicher, dass der Namespace oder der Typ definiert ist und mindestens einen öffentlichen Member enthält und dass der importierte Elementname keine weiteren Aliase enthält.


    Warnung 2 Der in Imports "System.Drawing" angegebene Namespace oder Typ enthält keine öffentlichen Member oder kann nicht gefunden werden. Stellen Sie sicher, dass der Namespace oder der Typ definiert ist und mindestens einen öffentlichen Member enthält und dass der importierte Elementname keine weiteren Aliase enthält.


    Fehler 3 Der Typ "NotifyIcon" ist nicht definiert.


    Fehler 4 Der Typ "Icon" ist nicht definiert.


    :/ Funktioniert leider nicht

    -.- Ich sollte vielleicht auch Importieren, tut mir leid
    Bitte keine VB-Fragen üb... Ach scheiß drauf, mich fragt ja eh keiner.

    Hi
    du musst natürlich auch die beiden Verweise hinzufügen, also auch System.Drawing.
    Außerdem musst du vmtl. noch Application.Run in einem separaten Thread laufen lassen, um auf die Eingabe zu reagieren. Dazu wäre außerdem ein Kontext sinnvoll, in dem das läuft (Application.Run hat eine Überladung dafür). ApplicationContext.ExitThread beendet dann die Nachrichtenschleife für den aktuellen Thread.

    Gruß
    ~blaze~

    VB.NET-Quellcode

    1. Dim cms as New ContextMenuStrip
    2. noti.ContextMenuStrip = cms
    3. 'bzw. ein Beispiel:
    4. '----------------------------------------------------------------------
    5. Dim noti As New NotifyIcon
    6. Dim cms As New ContextMenuStrip
    7. Dim i1 As New ToolStripMenuItem
    8. i1.Text = "Test"
    10. cms.Items.Add(i1)
    12. noti.ContextMenuStrip = cms
    13. noti.Icon = My.Resources.icon
    15. noti.Visible = True
    16. '----------------------------------------------------------------------
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Kannst du ja so auch.
    Via Code bzw. AddHandlers.

    Googel mal danach.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dafür gibt's doch auch Konstruktorüberladungen oder die Add-Überladung auf der Collection, die du mit der DropDownItems-Eigenschaft erhältst. Ansonsten eben AddHandler <Event>, <Handler>. Event ist halt das Ereignis, dem dann der Handler hinzugefügt werden soll. Normalerweise erhältst du den Delegaten Handler per AddressOf oder als Lambdaausdruck per Sub oder - in diesem Fall nicht - Function.

    Gruß
    ~blaze~