[midianHax]

OMG, I've been looking all over for this! I've needed it for a few of my applications, beats using the old Notification Icon :P

Thanks a lot

[Zappzter]

Awesome! I wish it had full source though. Lol

[glaca99xd]

I didn't want to make a new thread for this, people might say i am leeching your work, I am contributing.
I have coded an advanced version of yours, without threadings, using a timer.

What's New.

• PopUp Window Template Included
  
• Pending List
  
• Fade in - Fade out Support
  
• Walk In - Walk out Support
  
• Show popup in every corner of your screen
  
• Visibility time can be changed.
  
• Source code fully commented
  

Documentation
How to add :

• Create a visual basic project
  
• Add an empty class file
  
• Put the code inside
  
• Build the solution
  

To Create a popup from the template look at the example:

Code

Sub ShowPopUp
Dim popUpManager As New AdvancedPopUpManager
  Dim WindowPopUp As New AdvancedPopUpManager.PopUpWindow(New PopUpWindowTemplate("Title-Test", "Write Something", True)) With {.secondsVisible = 4, .startLocation = AdvancedPopUpManager.PopUpWindow.StartLocationEnum.UpRight, .type = AdvancedPopUpManager.PopUpWindow.PopUpTypeEnum.FadeIn_FadeOut}
  popUpManager.ShowPopUp(WindowPopUp)

You can replace the template with every form of your preference.

Available Methods:

ShowPopUp ---> Shows a new popup window without adding to pending list.
AddNewPopUp ---> Adds a new popup window to the pending list
ShowNextPopUp ---> Use this to start showing the the popups in the pending list
ClearPendingPopUps ---> Deletes all panding popups

Notes
If there is a popup being showed and you add or show a new popup, the new popup is going to be showned only after the previous popup has ended.

If the user closes the popup form , the timer will continue to work and the pending list will continue to show the popups.

The Code:
http://pastebin.com/XLJuHfkj#

How to add it into my main application form?

[SubGenius]

How to add it into my main application form?

Download this project and you will understand how it works.
Here

Double click the class file to edit the template form.

if you want to use your own form look at this:

Code

Dim WindowPopUp As New AdvancedPopUpManager.PopUpWindow(New YourFormNameHere) With {.secondsVisible = 4, .startLocation = AdvancedPopUpManager.PopUpWindow.StartLocationEnum.DownLeft, .type = AdvancedPopUpManager.PopUpWindow.PopUpTypeEnum.FadeIn_FadeOut}
  popUpManager.ShowPopUp(WindowPopUp)

change the YourFormNameHere with the form you want to animate.

[GHD124]

Well, today I was playing around with forms and animations and I came up with this:

Preview:
Spoiler (Click to View)

It's a simple animation you can use with your rat or whatever you want.
The form design is up to you, I made this just to show how it works.

Source:

PHP Code


<?php 
Imports System.Threading
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  Dim t As New Thread(AddressOf MoveForm)
  t.Start()
    End Sub

    Delegate Sub MoveFormDel()
    Public Sub MoveForm()
  If InvokeRequired = True Then
    Invoke(New MoveFormDel(AddressOf MoveForm))
  Else
    Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
    Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height
    Do While y <> Screen.PrimaryScreen.WorkingArea.Height - Me.Height
    y -= 1
    Me.Location = New Point(x, y)
    Me.Refresh()
    Threading.Thread.Sleep(10)
    Loop
    Threading.Thread.Sleep(1000)
    Do While Me.Opacity <> 0
    Me.Opacity -= 0.01
    Threading.Thread.Sleep(20)
    Loop
  End If
    End Sub
End Class 


Have fun! 🤝

can i just get the code for the fade out ✌

[Nervo]

can i just get the code for the fade out ✌

Here you go:

PHP Code


<?php 
Do While Me.Opacity <> 0
    Me.Opacity -= 0.01
    Threading.Thread.Sleep(10)
  Loop 


[GHD124]

Here you go:

PHP Code


<?php 
Do While Me.Opacity <> 0
    Me.Opacity -= 0.01
    Threading.Thread.Sleep(10)
  Loop 


is there a way to make it so when it reaches the lowest possible opacity it will make that form close or open a new form? 🤝

[He B TeMy]

Put an If statement inside the Do While like:

Code

If Me.Opacity = 0 then
Me.close()
End If

[GHD124]

Put an If statement inside the Do While like:

Code

If Me.Opacity = 0 then
Me.close()
End If

Code

Do While Me.Opacity <> 0
        Me.Opacity -= 0.01
        Threading.Thread.Sleep(10)
    If Me.Opacity = 0 then
    Me.close()
    End If
  Loop

i think i got it, hope thats right. Thanks!

[He B TeMy]

Yes, that's right, as you could have tested it...

[SubGenius]

Quick Update
v1.0.5

What's new?

1. Fade speed can be optimized
   
2. Walk speed can be optimized
   
3. Show form on screen center (only FadeIn_FadeOut supported)
   
4. Raises event when PopUp window is closed
   

Code http://pastebin.com/XLJuHfkj

[TazzyOpz]

It freezes my form when its doing the animation of the Form and once it's done my Main form works again. lol :P Could you just run this in a background worker? I'm not at home right now so I can't try it.

[Nervo]

It freezes my form when its doing the animation of the Form and once it's done my Main form works again. lol :P Could you just run this in a background worker? I'm not at home right now so I can't try it.

I don't know how did you use this, but you can do this easily with a timer. You will probably know how to do this, but if you don't I'll help you.

[TazzyOpz]

I don't know how did you use this, but you can do this easily with a timer. You will probably know how to do this, but if you don't I'll help you.

I PM'd you with a .Gif of the problem 🤝

[He B TeMy]

I PM'd you with a .Gif of the problem 🤝

Off topic: Do you make .gif with photoshop? If yes, i need to get a non-portable version, mine sucks...