sort skærm

Evt:

Insæt en timer (timer1) på en form og sæt timeren til at være 'disabled'. Insæt derefter følgende kode:

Dim Tæller As Integer

Private Sub Form_Load()
Tæller = 30
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Tæller > 0 Then
    Tæller = Tæller - 1
    Form1.Caption = Tæller
Else
    MsgBox "30 sek. gået..."
    Timer1.Enabled = False
End If
End Sub

-Sion
www.VBweb.tk

FORTSAT SVAR - have ikke læst spørgsmålet grundigt nok - sorry :-)

For sort skærm ændre koden under 'Timer1','Else' til:
    Timer1.Interval = 15000
    Form1.BackColor = vbBlack
    Form1.WindowState = 2

For at formen fylder hele skærmen skal du sætte formens borderstyle til 'None'.

-Sion
www.VBweb.tk

Hvis vi lige ska' ha' den sorte skærm med, kan du måske bruge det her? :
(Du ska' ha' en label ved navn lblC og en Commandbutton ved navn Go)


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim I As Integer
Dim BC As Long

Private Sub Go_Click()
For I = 3 To 0 Step -1
    lblC.Caption = CStr(I)
    DoEvents
    Sleep 1000
    Debug.Print I
Next I

BC = Me.BackColor

Me.BackColor = 0
Me.BorderStyle = 0
Me.WindowState = 2
lblC.Visible = False
Go.Visible = False

For I = 0 To 10
    Sleep 1000
    DoEvents
Next I

Me.BackColor = BC
Me.WindowState = 0
Me.BorderStyle = 2

End Sub

jeg kan ikke se den tæller ned jeg har lavet en timer og sat koden ind i timers kode vindue

er det mig der har lavet nået gslt eller hvad