Keskustelu: Ohjelmointikysymykset: VB6: Ruudun tärähdys

Onkohan mahdollista tuottaa tämän tyylinen ruudun tärähdys Visual Basicilla ?http://www.flashkit.com/tutorials/Special_Effects/Shaking_-Mark_ Fen-7/index.php

Ja siten, ettei web-selainta tarvisi olla käytössä. Esim. kun visual basicilla tehdyssä ohjelmassa latautuu .swf animaatio niin ruutu tärähtää...

Muuttele vain formin paikkaa timerin avulla niin onnistuu ilman mitää flashia.

Tärähdyksen voi tehdä monellakin tavalla. Tässä on esimerkkinä Tarahdys-aliohjelma, joka aiheuttaa tietyn pityisen tärähdyksen tietyllä voimakkuudella. Tärähdyksen aikana ikkunan paikka leveyssuunnassa muuttuu koko ajan.

Private Sub Form_Click()
    ' tärähdys kestää puoli sekuntia, voimakkuus 40
    Tarahdys 0.5, 40
End Sub

Sub Tarahdys(kesto As Single, voimakkuus As Integer)
    Dim a As Single, x As Integer, i As Long
    a = Timer
    x = Me.Left
    While a + kesto > Timer
        Me.Left = x + Sin(i) * voimakkuus
        DoEvents
        i = i + 1
    Wend
    Me.Left = x
End Sub