VB.Net 2010 Tutorial PopUpBox

Heres your chance to share your own tutorials with the community. Just post them on here. If your lucky they may even be posted on the main site.
5 posts Page 1 of 1
Contributors
User avatar
Dummy1912
VIP - Donator
VIP - Donator
Posts: 1969
Joined: Sat Aug 21, 2010 2:17 pm

VB.Net 2010 Tutorial PopUpBox
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

Image

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;
You do not have the required permissions to view the files attached to this post.
visit us on:


http://www.softpedia.com/get/System/Lau ... -Run.shtml
Check it out ! http://www.softpedia.com/publisher/I-A- ... 90017.html
Check it out ! http://www.softpedia.com/get/Desktop-En ... lock.shtml
User avatar
Scottie1972
Codenstuff Elite
Codenstuff Elite
Posts: 953
Joined: Thu Jan 14, 2010 5:48 am

This is alot like the "Toast" popup.
still nice tutorial.
Image
User avatar
Dummy1912
VIP - Donator
VIP - Donator
Posts: 1969
Joined: Sat Aug 21, 2010 2:17 pm

Re: VB.Net 2010 Tutorial PopUpBox
Dummy1912
toast, sound tasty
well yea that app does it to but don't think it has the same results as this one :)
visit us on:


http://www.softpedia.com/get/System/Lau ... -Run.shtml
Check it out ! http://www.softpedia.com/publisher/I-A- ... 90017.html
Check it out ! http://www.softpedia.com/get/Desktop-En ... lock.shtml
User avatar
AnoPem
VIP - Donator
VIP - Donator
Posts: 441
Joined: Sat Jul 24, 2010 10:55 pm

Re: VB.Net 2010 Tutorial PopUpBox
AnoPem
Nice tutorial been looking for something like this cooll; ! :D
https://t.me/pump_upp
User avatar
Dummy1912
VIP - Donator
VIP - Donator
Posts: 1969
Joined: Sat Aug 21, 2010 2:17 pm

Re: VB.Net 2010 Tutorial PopUpBox
Dummy1912
thanks #AnoPem :)
we are glad this will help you.
visit us on:


http://www.softpedia.com/get/System/Lau ... -Run.shtml
Check it out ! http://www.softpedia.com/publisher/I-A- ... 90017.html
Check it out ! http://www.softpedia.com/get/Desktop-En ... lock.shtml
5 posts Page 1 of 1
Return to “Tutorials”