Keskustelu: Ohjelmointikysymykset: VB6: Välkkyminen

Miten saa Visual Basicissa välkkymisen pois, kun
formille piirretään Line:lla viivoja ja ne pyyhitään taustan värillä.

Ei viivojen pitäisi vilkkua, jos niitä ei ole kovin paljon. Formin AutoRedraw-ominaisuuden asettaminen True:ksi saattaa auttaa välkyntään, mutta hidastaa samalla hieman piirtonopeutta.

Seuraava esimerkki piirtää eri värisiä ja kokoisia laatikoita ja pyyhkii aina edellisen laatikon ennen uuden piirtämistä.

Private Sub Form_Load()
    AutoRedraw = True
    Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
    Static vx1, vy1
    Static vx2, vy2
    If vx1 <> 0 Then
        Line (vx1, vy1)-(vx2, vy2), BackColor, BF
    End If
    vx1 = Int(Rnd * Width)
    vy1 = Int(Rnd * Height)
    vx2 = Int(Rnd * Width)
    vy2 = Int(Rnd * Height)
    Line (vx1, vy1)-(vx2, vy2), QBColor(Int(Rnd * 15)), BF
End Sub

Hih, kiitti Antti :)

lainaus:

Hih, kiitti Antti :)

?

Oli hyötyä katsos tuosta, ja saahan sitä kiittää :)