Hi,
I am looking to make a msn like toast popup for my program!
I have been working and searching for it all day now and cant find it!
I did find this one:
http://www.vbforums.com/showthread.php?t=320639
But thats wayyyy to complicated
I have been trying to edit it and strip it but theres just to much calling etc to really strip it to just one popup without all the options.
I went coding myself and now have this:
This DOES work pretty good but there's just one problem.Code:Const ABM_GETTASKBARPOS = &H5 Dim ok As Integer Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type APPBARDATA cbSize As Long hwnd As Long uCallbackMessage As Long uEdge As Long rc As RECT lParam As Long End Type Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long Private Sub Form_Load() Timer1.Enabled = True Timer2.Enabled = False Timer3.Enabled = False Dim ABD As APPBARDATA SHAppBarMessage ABM_GETTASKBARPOS, ABD Me.Move ScaleX((CInt(Trim(ABD.rc.Right)) - ScaleX(Me.Width, 1, 3)), 3, 1), ScaleX((CInt(Trim(ABD.rc.Top)) - ScaleX(Me.Height, 1, 3)), 3, 1) + Me.Height ok = Me.Top End Sub Private Sub Timer1_Timer() Dim ABD As APPBARDATA SHAppBarMessage ABM_GETTASKBARPOS, ABD Dim Aimlength As Integer If Me.Top > ok - 345 Then Me.Top = Me.Top - 10 End If If Me.Top < ok - 345 Then Timer1.Enabled = False Timer2.Enabled = True Timer3.Enabled = False End If End Sub Private Sub Timer2_Timer() Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = True End Sub Private Sub Timer3_Timer() Dim ABD As APPBARDATA SHAppBarMessage ABM_GETTASKBARPOS, ABD Dim Aimlength As Integer If Me.Top < ok Then Me.Top = Me.Top + 10 End If If Me.Top > ok Then Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False End If End Sub
It doesnt come ontop of all my other programs i have opened up
Like internet etc
When i went searching for a solution i found how to make a form stay ontop of all the others.
i implented it. Worked..
But all my forms of the program came on top! gah ><
So when i was browsing arround the internet and the notification came on top.
My main form came on top to.. this is not what i wanted to happen and i dont know how to fix it ;S
Can someone please help?
Thanks in advance![]()




Reply With Quote