DLL hulp timer en progressbar

[Mathero11]

Hallo,

Ik had alles alvast in het engels getypt hopelijk begrijp je het.
Timer1.interval en progressbar1.value herkent hij niet.
Als iemand een code heeft om een dll file te herkennen, graag !

Imports System.Windows.Forms
Public Class GeneratorLoader
    Dim label1 As Label
    Dim Progressbar1 As ProgressBar
    Dim Timer1 As Timer
    Dim form1 As Form
    Dim Splash As Form 'This must be splashscreen1.vb (I dont know)

    Public Sub LoadMC(ByVal label1 As Label, ByVal progressbar1 As ProgressBar, ByVal timer1 As Timer, ByVal form1 As Form)
        'timer1.interval doesn't work
        Timer1.Interval = "100"
        label1.Text = "Load up"
        progressbar1.Increment(1)
        If progressbar1.Value = "10" Then 'it dont see when the value is 10 or 30 or any.
            label1.Text = "Check for Generator.dll" 'it is just a fake. wihout generator.dll the program crashes
        End If
        If progressbar1.Value = "30" Then
            label1.Text = "Done."
        End If
        progressbar1.Increment(1)
        If progressbar1.Value = "30" Then
            Timer1.Interval = "10"
        End If
        If progressbar1.Value = "100" Then

            form1.Show()
            Timer1.Stop()
            Splash.Close() '<-- Error


        End If
    End Sub
End Class

En van de splashscreen1.vb timer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        DLL.LoadMC(label1:=Label1, timer1:=Timer1, form1:=Form1, progressbar1:=ProgressBar1)


    End Sub

 

[tim687]

Voor de timer, is het een hoofdletter probleem, voor de progressbar moet je de aanhalingstekens weghalen, je probeert nu de value 100 als een text te koppelen in plaats van als getal.

 

[Mathero11]

ik heb hem al, was zo dom te vergeten dat het een timer was.

het moest

      if progressbar1.value = "0" then
  Timer1.Interval = "100"
        label1.Text = "Load up"
        progressbar1.Increment(1)
end if

en voor de splashscreen moest

splash:= splashscreen1

of

splash:= me