Een 'Flyout' goed neerzetten

[Daantje3]

Hallo allemaal,

Ik ben een programma aan het maken in VB 2010 en in heb een beetje hulp nodig met het uitlijnen van een 'Flyout'. (Zie de foto)

Helaas moet hij normaal uitgelijnd worden, maar als ik hem goed instel en de NotifyIcon ergens anders zet in de taakbalk staat hij weer op de verkeerde positie.
Heeft iemand een stukje code die ik kan gebruiken bij deze code?

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x As Integer
        Dim y As Integer
        x = Screen.PrimaryScreen.WorkingArea.Width - 270
        y = Screen.PrimaryScreen.WorkingArea.Height - 241
        Me.Location = New Point(x, y)
    End Sub

Alvast 2 foto's voor de duidelijkheid:

PS: Als je goed kijkt zie je dat ik Windows 8 heb. Dat is ook zo.

 

[gast0187]

Dit lijken mij exact 2 dezelfde foto's.

Zijn dit wel de juiste foto's?

Zo ja, Duid de verschillen dan maar aan want ze zijn niet zichtbaar.(ook voor mogelijke verdere bezoekers van dit probleem)

Mvg gast0187

 

[Daantje3]

op de 2e foto is te zien dat het venstertje meer naar --> gegaan is.

 

[gast0187]

Ik zou nog eens proberen met de x coordinaten te spelen.

 

[MartinJM]

Ik neem aan dat het programma opent bij een muisklik. Nou is het mogelijk om te kijken waar de muis zich bevindt. Misschien dat dat een oplossing kan zijn?

MartinJM

 

[Daantje3]

Ik neem aan dat het programma opent bij een muisklik. Nou is het mogelijk om te kijken waar de muis zich bevindt. Misschien dat dat een oplossing kan zijn?

MartinJM

Ja! Dat is precies wat ik wil!

 

[Daantje3]

Kun je me een stukje code geven? Want ik kom er echt niet uit.

 

[gast0187]

Met behulp van Irfanview,paint mischien?

Coderen weet ik niet hoe dat moet Maar.....

mischien weet een ander persoon hier wel raad mee hé

 

[Daantje3]

Met behulp van Irfanview,paint mischien?

Coderen weet ik niet hoe dat moet Maar.....

mischien weet een ander persoon hier wel raad mee hé

kan jij dit --> http://www.helpmij.nl/forum/showthr...es-goud-dragen-bij-een-nr-x-aantal-hindernis)

Anders kan je in afwachting op een antwoord mij ondertussen helpen, als je wil.

Kan ik helaas niet... Ik had iets op het web gevonden met

Mouse.x

ofzo iets bij

x = Screen.PrimaryScreen.WorkingArea.Width -

Misschien weet iemand iets met

Mouse.x

?

 

[gast0187]

Een aantal links die je mischien kunnen helpen (ik weet het niet, ik gok er maar op los!) :

http://www.daniweb.com/software-development/vbnet/threads/11533/how-can-i-get-mouse-position
http://www.freevbcode.com/ShowCode.asp?ID=2890

Mvg gast0187

 

[Daantje3]

Bedankt! Ik heb net in 1 van de links het stukje code gevonden. Het was MousePosition.X .

 

[Daantje3]

Nu heb ik weer het probleem dat ik mijn muis op de plek waar het icoontje komt moet houden bij het opstarten van het programma. Iemand hier een oplossing voor?

        Dim x As Integer
        Dim y As Integer
        x = MousePosition.X - 95
        y = Screen.PrimaryScreen.WorkingArea.Height - 241
        Me.Location = New Point(x, y)

 

[Daantje3]

Ik heb het opgelost, door een nieuwe form te maken met een NotifyIcon en die van Form1 weggehaald. Daardoor laadt hij steeds de code van de muispositie!

 

[Daantje3]

Oke, nog 1 vraagje, hoe kan ik ervoor zorgen dat ik niet dubbel hoef te klikken om Form1 te verbergen? (Dat is het ding dat boven de taakbalk komt)

 

[The Mighty Atom]

Gebruik het Click event, niet het DoubbleClick event.

 

[Daantje3]

Gebruik het Click event, niet het DoubbleClick event.

Dit is de code die ik gebruik:

Public Class TrayIcon

    Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        Form1.Show()
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Form1.Hide()
    End Sub
End Class

 

[Daantje3]

Dit is de code die ik gebruik:

Public Class TrayIcon

    Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        Form1.Show()
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Form1.Hide()
    End Sub
End Class

Zo, dat is weer gefixed!