Breadcrumbs

[Dummy1912]

Hello,

It has been a while we made some tutorials again
THIS TUTORIAL DON'T COMES FROM THE INTERNET IT WAS BEEN MADE BY A GOOD FRIEND OF MINE THAT HELPED ME TO MAKE MY APPS.

so today we are gonna teach you how to make a popupbox on the right bottom of your screen.

this will also multiply the view on top of each popupbox.

it will be look like this: after the app has been made



what you need:

2 forms
Module
2x buttons
2x labels

PopUpBox 'Form1':

do not use Formboderstyle
be sure you set this to none

or it will be a ugly view when it pops up and go down.

form size: 305x135 or smaller
showintaskbar = false

add the label make it as big you like
no message will be needed to add.
add button with a text x
to exit it
size button: 13x13

BoxModule :

Code: Select all

Module BoxModule

    'this we need to make the popup to work
    Public PopupBox As New List(Of Form1)

    'This will make it all posible to popup the box multi times like for example
    'box3
    'box2
    'box1
    'it will be like this at the right bottom of your screen
    Public Sub ShowPopup(ByVal message As String)
        Try
            Dim frm As New Form1(message) With {.Left = -1000, .Top = -1000, .Visible = True}
            Dim parentNotify As Form1 = If(PopupBox.Count > 0, PopupBox.Last, Nothing)
            Dim regularHeight As Integer = frm.Height

            'you can change this value to make how long the popupbox to show
            Dim sleep As Integer = 1000
            PopupBox.Add(frm)
            frm.Height = 0

            'this will make it to popup at the bottom right corner
            frm.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - frm.Width, _
                                    Screen.PrimaryScreen.WorkingArea.Height - frm.Height)
            Dim timer_ As New Windows.Forms.Timer With {.Interval = 1, .Enabled = True}
            AddHandler timer_.Tick,
                Sub()
                    Dim notifyIndex As Integer = PopupBox.IndexOf(frm)
                    If frm.Enabled And frm.Height < regularHeight And sleep > 0 Then
                        frm.Height += Math.Ceiling((regularHeight - frm.Height) / 10)
                    ElseIf frm.Enabled And sleep > 0 Then
                        sleep -= 1
                    ElseIf frm.Enabled And frm.Height > 2 Then
                        frm.Height -= Math.Ceiling(frm.Height / 10)
                    Else
                        frm.Close()
                        PopupBox.Remove(frm)
                        timer_.Enabled = False
                    End If
                    If notifyIndex > 0 Then
                        frm.Top = PopupBox(notifyIndex - 1).Top - frm.Height + 1
                    Else
                        frm.Top = Screen.PrimaryScreen.WorkingArea.Height - frm.Height
                    End If
                End Sub
            AddHandler frm.FormClosing,
                Sub(sender As Object, e As FormClosingEventArgs)
                    If frm.Height > 2 Then
                        e.Cancel = True
                        sleep = 0
                    Else
                        timer_.Enabled = False
                    End If
                End Sub
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

End Module

Form2:
This will only be needed to test the popupbox
add button and label on it

dubble click the button and add:

Code: Select all

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ShowPopup("Welcome to the first Tutorial of PopUpBox" & vbNewLine & "at the bottom right at your screen.")
    End Sub

have fun
for the one who's don't like to copy and paste
they can download it here for 50cc :lol:
i see its your lucky day is has become cheap lmao;

[Scottie1972]

This is alot like the "Toast" popup.
still nice tutorial.

[Dummy1912]

toast, sound tasty
well yea that app does it to but don't think it has the same results as this one

[AnoPem]

Nice tutorial been looking for something like this cooll; !

[Dummy1912]

thanks #AnoPem
we are glad this will help you.