timout functie

[bn2vs]

Is er in vb een soort van timout functie zoals in php en js?
Ik heb het nodig voor een ding dat ik enkele seconden wil vertragen, maar ik vind het nogal dom om er speciaal een timer enzo voor te gaan maken.

Alvast bedankt

 

[lollige]

Ik geloof dat die code Sleep was.

In dat geval krijg je

Sleep 1000

voor 1 seconde rust.(1 = 1 miliseconde)

 

[bn2vs]

Dat werkt
Ik moest wel eerst dit importe

Imports System.Threading.Thread

thnx :thumb:

 

[bn2vs]

Ik merkte juist dat als je die import de join() functie niet meer werkt...
Hoe komt dat?

 

[bn2vs]

Ik heb devolgende procedure geschreven als timout functie. Gewoon sleep() gebruiken maakt dat je terwijl die pauzeert nix meer kan doen.

    Public Sub freeze(ByVal miliSeconds As Integer)
        Const accuracy As Integer = 10
        For x As Integer = 0 To CInt(miliSeconds / accuracy)
            System.Threading.Thread.Sleep(accuracy)
            Application.DoEvents()
        Next x
    End Sub