BARRE PICTUREBOX

Commentaire de Renfield le 16/07/2004 07:50:21 administrateur CS

très gentil a toi hhhp2004, mais quelques peu disproportionné.....

I et J sont déclarés en variables globales, c'est inutile.

les variables vertvbcyan et bleuvbcyan pourraient être des constantes.

    vertvbcyan = (vbCyan And &HFF00FF00) / 256
    vertvbcyan = (vbCyan And &HFF00FF00) / 256
    Bleuvbcyan = (vbCyan And &HFFFF0000) / (65536)
    Bleuvbcyan = (vbCyan And &HFFFF0000) / (65536)

pourquoi mettre ces lignes en double ?



RGB(0, vertvbcyan + I * 0, Bleuvbcyan + I * 0)

est-ce que ca ne ferait pas simplement :

RGB(0, vertvbcyan , Bleuvbcyan )

d'ailleurs, c'est amusant, puisque tu récupères.... VbCyan !!!

enfin, tu aurais pu utiliser un Timer ! car ralentir la boucle avec un :
            For J = 1 To 60000 'le temps
            Next

va donner des résultats inégaux selon le poste utilisé, et et de toute facon bien trop rapide !


voila une version quelques peu corrigée :

Option Explicit

Private Sub Commencer_Click()
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    '# i conservera sa valeur à chaque itération de la procedure
    Static i As Integer
    
    barre.Line (i, 0)-(i, barre.ScaleHeight), vbCyan
            
    i = i + 1
        
    If i = barre.ScaleWidth Then
        i = 0
        barre.Cls
    End If
End Sub

Commentaire de daetips le 16/07/2004 13:55:59

C'est bon j'ais changé le code source