Spam messagebox with timer in VB.net

Question

3.00/5 (2 votes)

See more:

Ok, I have this code below, when a form will appear, a message box spam will be in processed.

Private Sub form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
timer.Start()

Private Sub timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrnote.Tick
        MsgBox("I got you!", vbCritical, "LOL")

However, I want that only 10 messagebox to appear then after that it will be topped, and another form will appear. How to do this? It's a prank software, I'm doing.

Posted 7-Apr-11 10:43am

555336

Updated 7-Apr-11 10:46am

HimanshuJoshi

v2

Add a Solution

Comments

HimanshuJoshi 7-Apr-11 16:46pm

Added pre tags around code.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2011-04-07T11:06:00

Solution 1

Use static variable:

VB

Private Sub timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrnote.Tick
Static iCount as Integer
    if iCount <10 then MsgBox("I got you!", vbCritical, "LOL")
    iCount = iCOunt +1

or global variable:

VB

Dim iCount As Integer = 0
Private Sub timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrnote.Tick
    if iCount >10 then MsgBox("I got you!", vbCritical, "LOL")
    iCOunt = iCount+1

Posted 7-Apr-11 11:06am

Maciej Los

Comments

555336 7-Apr-11 17:26pm

but when it stops, i want to make another form to appear, how to do that?

Albin Abel 8-Apr-11 11:45am

My 5

i_share7 17-Sep-16 17:06pm

Instead of :
iCount = iCount + 1

It's easier to do:

iCount += 1

Just to help things to keep tidy! :)

Nish Nishant · Accepted Answer · 2011-04-07T13:21:00

Solution 2

[Adding to the previous answer you got from losmac]

First of all you don't need a static or global variable here, you can make your count variable a member field in the form derived class.

And on the 11th call, stop the timer, and show your new form (all this can be done in the timer tick handler).

Posted 7-Apr-11 13:21pm

Nish Nishant

Comments

Albin Abel 8-Apr-11 11:46am

agreed. No need of static here. My 5