[VB08] Fragen/Probleme

02/19/2010 23:52 Yakiyo#1

Hi,
arbeite gerade an einem Projekt, aber ich habe probleme.
undzwar:
Wenn die ProgressBar1.Value = 100 ist, soll der bis dahin unsichtbare button sichtbar werden.
All meine ideen haben nicht funktioniert.
Google hilft auch nicht wirklich.

2.Wenn ich auf einen Button klicke, soll sich die anwendnug schlie�en und eine neue �ffnen. wie geht das?

Hoffe ihr habt die l�sung :S

lg

02/20/2010 02:55 kknb#2

Code:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Enabled = True
        ProgressBar1.Maximum = 500
        For i = 1 To 300
            If ProgressBar1.Value = 299 Then Button1.Visible = True
            ProgressBar1.PerformStep()
        Next
    End Sub
End Class

Code:

        
Shell("C:\Bot.exe")
 Me.Close()

02/20/2010 09:22 Yakiyo#3

Ehm, funktioniert nicht.
1.Die progressbar l�uft einfach ohne zu starten durch und der button wird nicht sichtbar :S

ne idee?

02/20/2010 11:54 P-a-i-n#4

Code:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Visible = False
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 10
        Timer1.Interval = 1000
        Timer1.Start()

    End Sub

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

        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Button1.Visible = True
        Else
            ProgressBar1.Value = ProgressBar1.Value + 1
        End If
    End Sub

02/20/2010 11:58 Yakiyo#5

Perfekt, danke. =)