1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Barre de couleur à effet windows (démarrage)

Barre de couleur à effet windows (démarrage)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 995 fois - Téléchargée 33 fois

Commenter

Contenu du snippet

je chercher pour un code à faire le meme que windows, j'y suis parvenu après mainte péripéthie... je n'ai qu'un problème connu, cà consomme du cpu :s... si vous avez une idée pour l'améliorer cà serait simpa.
Sinon vous mettez une image nommé 'pic' ; deux timer avec leur interval à 10

Source / Exemple : 


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

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
78
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
25 juin 2007
jolie , mais lent si la PictureBox (nommé pic ) est longue. 7/10 pour t'etre cassé la tete
bonne prog ;)
Signaler
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
Si tu pourrai parler un français un peu plus compréhensible, ça serait bien ;)
<<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 ... ;)
Signaler
Messages postés
73
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
14 décembre 2010
oui pke en fait il faut qu'il y ait toujours la meme dimention de l'image bougeante et avec le progressbar cé kasi impossible, auttan faire un otre objet... c vré jy avé po pensé...

A+
Signaler
Messages postés
73
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
14 décembre 2010
a oui je voi ce que tu veu dire... jy avé po pensé


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+
Signaler
Messages postés
262
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
24 août 2005
Eheh je suis tout fier d'avoir pu saisir la pensée de Renfield et d'avoir su l'exposer brievement, le reste de ma journée en est illuminé :-)
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)
Afficher les 20 commentaires
S'inscrire maintenant

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.

Du même auteur (tmcuh)