How to make pop-up window for you aplication - Printable Version

How to make pop-up window for you aplication - Printable Version

+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.ly/Forum-Visual-Basic-NET-Framework)
+--- Thread: How to make pop-up window for you aplication (/Thread-How-to-make-pop-up-window-for-you-aplication)

How to make pop-up window for you aplication - barukoru - 05-12-2013

[Image: fomfccb.jpg]

[Image: fomfccb.jpg]

Code:
Public Class Form1
    Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
    Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
    Dim nowy As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Static i As Integer = 10
  If i <= 210 Then
    Me.Location = New Point(intX - 220, nowy)
    nowy -= 10
    i += 10
    Me.Refresh()
  Else
    Timer1.Stop()
  End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Me.Height = 262
  Me.Width = 145
  Me.Location = New Point(intX - 220, intY - 30)
  nowy = intY - 102
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  MsgBox("Credit to BaruKoru", MsgBoxStyle.Information, "Credit")
  Process.Start("http://www.hackcommunity.com/User-barukoru")
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  Close()
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click

    End Sub
End Class

Timer1 Enabled = True

wirus scan
[Image: txkbshg.jpg]

[Image: txkbshg.jpg]

Source download: http://www.mediafire.com/?7s1b77xb5d3tmcw

RE: How to make pop-up window for you aplication - noize - 05-12-2013

Good code. Open source. I love you.

RE: How to make pop-up window for you aplication - Psycho_Coder - 05-12-2013

You have done a good work by releasing the source. On HC everything is opensource. Good work and keep it up. :ok:

RE: How to make pop-up window for you aplication - barukoru - 05-12-2013

You're Welcome

RE: How to make pop-up window for you aplication - ArkPhaze - 05-13-2013

This one's not that bad. Smile

Smile

Good use of the Static keyword in VB.net too. Not sure what I would do differently, other than make this a bit more manipulable by creating functions or a full class that could encapsulate this functionality. But, with parameters so that less of the values are hardcoded.

RE: How to make pop-up window for you aplication - ArkPhaze - 05-13-2013

This one's not that bad. Smile

Smile

Good use of the Static keyword in VB.net too. Not sure what I would do differently, other than make this a bit more manipulable by creating functions or a full class that could encapsulate this functionality. But, with parameters so that less of the values are hardcoded.

RE: How to make pop-up window for you aplication - mr.freakout - 05-16-2013

Nice one liked it bro Wink

Wink

RE: How to make pop-up window for you aplication - mr.freakout - 05-16-2013

Nice one liked it bro Wink

Wink