[creator333]

Hello!
I need help
I want to create a program with a progress text in VB, something like that ->https://www.youtube.com/watch?v=07tvYOXJJOw
It's possible?
Thanks for help

[Ryano121]

Yeah sure it's possible, it's just a textbox being updated to show a new message on the end when something has been done.

progressTextBox.Text = progressTextBox.Text & "\nSome new progress information"

You may also think about some kind of multithreading if you are doing a lot of intensive work so it doesn't cause the window to block and freeze.

[creator333]

I just want to put in program button 'Start'
When I click it, progresstext should be updating
So how must look the code?

[Ryano121]

Shove the start button on your form, get the clicked event handler up, do some work and update the textbox as I showed before.

If you are struggling with that then I suggest stopping and learning the basics before trying to make something you do not have the knowledge for.

Good luck

[creator333]

Sory, I don't see that you replied

[creator333]

What's wrong here?

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ProgressBar1.Increment(1)

        If ProgressBar1.Value = ProgressBar1.Maximum Then

            Timer1.Stop()

            Dim key As Integer

            key = (Rnd() * 2 + 1)

            Select Case key

                Case 1
                    MsgBox("KEY: 89473906543680")
                Case 2
                    MsgBox("Your Keygen's Expired, CLICK OK TO UPDATE")

            End Select


        End If

When the progressbar is maximum the msgbox doesn't open please help, ot's important

[CharlieMay]

Suggestion, use the random class instead of rnd.

Also, put a watch or set a breakpoint and look at the value of Key before the Select Case. I'm sure it will become quite obvious once you look at what key holds.