Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 050 fois - Téléchargée 33 fois
Option Explicit Dim i 'progress : x Dim X 'vitesse Dim tableau() As ColorConstants Const factmult = 4 'facteur de multiplication Private Sub Form_Load() Dim a As Integer, col As Double, val As Boolean Dim plus As Double ReDim tableau(4080 * factmult) 'redimensionne: 4080 facteur de 255 plus = 1 'initialisation de la variable For a = 1 To factmult plus = plus / 2 'divise le reste par 2 autant de fois qu'il le faut Next a For a = 1 To UBound(tableau) If val = False Then 'test si couleur montante ou descandente col = col + plus 'fait un step If col >= 255 Then: val = True 'quand arrive dans le noir demi-tour Else col = col - plus 'pas le bon nom de variable lol If col <= 1 Then: val = False 'quand arrive dans le blanc End If tableau(a) = RGB(255 - col, 255 - col, 255) 'crée tableau couleur Next a End Sub Private Sub Timer1_Timer() X = X + 50 '50 = vitesse End Sub Private Sub Timer2_Timer() For i = 1 To Pic.ScaleWidth Pic.Line (i, 1)-(i, Pic.ScaleHeight), tableau((i + X) Mod UBound(tableau)) 'crée la ligne de couleur en fonction trouvé dans le tableau 'en fonction de la soustraction (vitesse) Next i End Sub
bonne prog ;)
<<Merci également de veiller à ne pas trop écorcher la langue de molière en écrivant en abrégé (comme sur des SMS).>>
Faire un progressbar, c'est une bonne idée, sauf qu'il faudrai faire un choix. Afficher le morceau de l'image qui représente le % de la progression, ou stretcher l'image (solution que je pense mieux adaptée)
J'ai par contre pas compris le rapport avec DirectX, si tu peux m'éclairer ... ;)
A+
mais je pense qu'il doi bien exister un ocx qui le fé sa ou un directX ... non ?
bref cé po mon raillon a moi donc je laisse lé spécialitz le fair a ma place.. je pensé juste édé..
me suis trompé é alors lé zéreur n'arive po a ceux qui fon rien.
alé bonne prog a tous...
a+
fifayer> Tu crois vraiment pouvoir obtenir le meme effet avec une progress bar ? parce qu'il faudrait pouvoir la vider par le coté gauche un peu comme au demarrage d'XP.
3 synapses dans un champ (<- moi aussi j'aime dire des conneries)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.