Keskustelu: Ohjelmointikysymykset: VB6: Ajastin ilman formia

Miten vois tehä silleen, että VB-ohjelmaan jossa on pelkkä 1 moduuli eikä yhtään formia, saa jotenki timerin? (emmä osaa muotoilla tota lausetta)

Jotenkin kikkailemalla, mutta helpompi tapa on:

Sub Main() 'motuulin pääohjelma

    Interval = 1 'intervalli sekunneissa
    Do 'ikune löypääh
        DoEvents 'tilttiesto
        If s + Interval < Timer Then
            s = Timer
            'tähän se mitä tehään "timerissä"
        End If
        'tähän sitte jotain muuta
    Loop

End Sub

edit: tonkin https://www.ohjelmointiputka.net/koodivinkit/24087-vb6-callback-funktio voisi saada toimimaan jos tunkisi me.hwnd:n tilalle jonkun apifunkkarin joka hakee sen hanskan.

WinAPIssa on SetTimer-funktio, jonka toiminta vastaa VB:n Timer-kontrollia. Esimerkki funktion käytöstä on koodivinkeissä, ja jos ohjelmassasi ei siis ole formeja, laita Me.hWnd:n tilalle vbNull funktiokutsussa.

Antti Laaksonen kirjoitti:

WinAPIssa on SetTimer-funktio, jonka toiminta vastaa VB:n Timer-kontrollia. Esimerkki funktion käytöstä on koodivinkeissä, ja jos ohjelmassasi ei siis ole formeja, laita Me.hWnd:n tilalle vbNull funktiokutsussa.

Toimi ihan hyvin kun ajoin ohjelman VB:ssä mut kun käänsin sen niin ei toiminu.

Tuliko jokin virheilmoitus, vai eikö muuten vai toiminut?

Eikö ohjelmassa saa olla formia ollenkaan. Tai siis jos laittaisit visible = false

hunajavohveli kirjoitti:

Tuliko jokin virheilmoitus, vai eikö muuten vai toiminut?

Ei tuu virheilmotuksia, ohjelma vaan ei tee mitään.

rndprogy kirjoitti:

Eikö ohjelmassa saa olla formia ollenkaan. Tai siis jos laittaisit visible = false

Mietin totakin mut toi on vähän tollanen purkkaviritys toi näkymätön formi.