Script voor flikkerend beeldscherm

Status
Niet open voor verdere reacties.

danny123

Gebruiker
Lid geworden
15 okt 2007
Berichten
71
Hallo allemaal :thumb:

Ik ben op zoekt naar een script dat er voor zorgt dat je scherm gaat flikkeren.

Wie weet deze ?

ik heb een exe als bijlage toegevoegt die ik nog ergens in een hoekje van
mijn harde schijf had staan, weet niet meer hoe ik er ooit aan ben gekomen.

en nee... ik gebruik het niet om mijn halve msn lijst gek te maken:eek:

Alvast bedankt:thumb:
 

Bijlagen

In vb.net:

Code:
Public Class Form1

    Dim K As Integer = 1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.WindowState = FormWindowState.Maximized
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Select Case K
            Case 1
                Me.BackColor = Color.Black
                K = 2
            Case 2
                Me.BackColor = Color.White
                K = 1
        End Select
    End Sub
End Class

Alleen nog een timer in je form erbij plaatsen hij doet het.
Hoe lager de interval van de timer hoe sneller het gaat!

Alleen vraag ik me wel af wat je ermee moet?!
 
Bedankt voor je reactie,
maar ik heb Visual basic 6.0:confused:
dus dit gaat niet werken...

Maar wel bedankt:thumb:
 
Ja, ok. Wist ik ook niet...
Misschien de volgende keer even zeggen?:thumb:
 
Het is simpel, je maakt een timer en kijkt of de background wit is. Als dat zo is, dan verander je het in zwart, is het niet wit, dan verander je het in wit.
 
Het is simpel, je maakt een timer en kijkt of de background wit is. Als dat zo is, dan verander je het in zwart, is het niet wit, dan verander je het in wit.

Bedankt voor je reactie:thumb:

Heb je misschien de codes voor mij ?

Mvg, Danny
 
Dit doe je in de Timer_Tick:
Code:
If Me.BackColor = Color.Black Then
   Me.BackColor = Color.White
Else
   Me.BackColor = Color.Black
End If
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan