Hva er galt med denne koden? ProgressBar

[stelar7]

kunne noen fortelle meg hva som er galt med dette scriptet?

 

VB vill ikke tilate "ProgressBar1"

 

Public Class Form1
   Private Sub Buttonstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonstart.Click
       If Timer1.Enabled = False Then
           Do Until
               Timer1.Enabled = True
           Loop
       End If
   End Sub


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

       ProgressBar1.Minimum(0)
       ProgressBar1.Maximum(100)
       ProgressBar1.Step(1)
       ProgressBar1.PerformStep()

   End Sub

   Private Sub Buttonstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonstop.Click

       If Timer1.Enabled = True Then
           Do Until
               Timer1.Enabled = False
           Loop
       End If
   End Sub

End Class

[GeirGrusom]

Har du lagt inn en progressbar i formen som heter Progressbar1?

[stelar7]

ja

[GeirGrusom]

Maximum er en egenskap, ikke en funksjon.

 

Du skal sette ProgressBar1.Maximum = 100, ikke ProgressBar1.Maximum(100).

[Manfred]

[siden Hårek flyttet tråden gjelder ikke kommentaren min. Denne kan godt slettes ]

Endret 30. desember 2010 av Manfred

[Hårek]

Flyttet tråden til rett kategori, og forandret emnetittel

[kgau]

kunne noen fortelle meg hva som er galt med dette scriptet?

 

VB vill ikke tilate "ProgressBar1"

 

Public Class Form1
   Private Sub Buttonstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonstart.Click
       If Timer1.Enabled = False Then
           Do Until
               Timer1.Enabled = True
           Loop
       End If
   End Sub


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

       ProgressBar1.Minimum(0)
       ProgressBar1.Maximum(100)
       ProgressBar1.Step(1)
       ProgressBar1.PerformStep()

   End Sub

   Private Sub Buttonstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonstop.Click

       If Timer1.Enabled = True Then
           Do Until
               Timer1.Enabled = False
           Loop
       End If
   End Sub

End Class

 

Public Class Form1
   Private Sub Buttonstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonstart.Click
       If Timer1.Enabled = False Then
           Do Until
               Timer1.Enabled = True
               ProgressBar1.Minimum = 0
               ProgressBar1.Maximum = 100
           Loop
       End If
   End Sub


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

       ProgressBar1.Value += 1

   End Sub

   Private Sub Buttonstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonstop.Click

       If Timer1.Enabled = True Then
           Do Until
               Timer1.Enabled = False
           Loop
       End If
   End Sub

End Class

[stelar7]

old topic is old...

 

Skrevet 2. desember 2010 - 16:01