begin process at 2010 02 09 18:06:17
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > DEGRADE DE COULEURE STYLE INSTALLATION

DEGRADE DE COULEURE STYLE INSTALLATION


 Information sur la source

Note :
4,33 / 10 - par 3 personnes
4,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :14/04/2004 Vu :3 532
Auteur : e_NeX

Ecrire un message privé
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

C'est tout con: ca fais un degrade de couleure comme dans les setup et tu peux choisir la couleure: bleu, rouche ou vert!!!

mettre dans un timer avec comme interval 1000

Source

  • public t as integer
  • Private Sub Form_Load()
  • t = 0
  • End Sub
  • Private Sub Timer1_Timer()
  • t = t+1
  • if t = 1 then
  • ds = Form1.DrawStyle
  • dw = Form1.DrawWidth
  • sm = Form1.ScaleMode
  • sh = Form1.ScaleHeight
  • Form1.DrawStyle = vbInsideSolid
  • Form1.DrawWidth = 5
  • Form1.ScaleMode = vbPixels
  • Form1.ScaleHeight = 256
  • For i = 0 To 254
  • Form1.Line (0, 1)-(Form1.Width, i + 1), RGB(255 - i, 0, 0), B
  • ' actuellement rouge. Pour vert:RGB(0, 255 - i, 0) et bleu:RGB(0, 0, 255 - i)
  • Next i
  • Form1.DrawStyle = ds
  • Form1.DrawWidth = dw
  • Form1.ScaleMode = sm
  • Form1.ScaleHeight = sh
  • Eimer1.interval = 0
  • End if
  • End Sub
public t as integer

Private Sub Form_Load()
t = 0
End Sub

Private Sub Timer1_Timer()
t = t+1
if t = 1 then
ds = Form1.DrawStyle
dw = Form1.DrawWidth
sm = Form1.ScaleMode
sh = Form1.ScaleHeight

Form1.DrawStyle = vbInsideSolid
Form1.DrawWidth = 5
Form1.ScaleMode = vbPixels
Form1.ScaleHeight = 256
For i = 0 To 254
Form1.Line (0, 1)-(Form1.Width, i + 1), RGB(255 - i, 0, 0), B
' actuellement rouge. Pour vert:RGB(0, 255 - i, 0) et bleu:RGB(0, 0, 255 - i)
Next i
Form1.DrawStyle = ds
Form1.DrawWidth = dw
Form1.ScaleMode = sm
Form1.ScaleHeight = sh
Eimer1.interval = 0
End if
End Sub

 Conclusion

Sais pas pourquoi mais quand tu met ce code dans le Load de la form, ca ne marche pas!!!! zarbi!


 Sources du même auteur

Source avec Zip Source avec une capture REBOOT
Toutes les sources de e_NeX

 Sources de la même categorie

AFFICHAGE SOUS EXCEL DE LA LISTE DES ' DES GROUPES par djebbipgm
AFFECTATION D'UNE ICÔNE À UN DOSSIER DANS L'EXPLORATEUR par djebbipgm
Source avec Zip CREATION DE GADGET EN VB6 par djebbipgm
Source avec Zip Source avec une capture CAPTEUR DE HANDLE, DE TITRE, DE CLASS, DE POSITION DE TAILLE... par Sechaud
Source avec Zip Source avec une capture COULEUR DANS UN RICHTEXTBOX SANS MODIFIER SELSTART OU SELLEN... par Renfield
Toutes les sources de la catégorie Trucs & Astuces

Commentaires et avis

Commentaire de stef2004 le 14/04/2004 10:46:53

chez moi VB me dit que ds, dw, sm.......i.... sont des variables indefinies

Commentaire de hqv0 le 14/04/2004 10:57:28

Bonjour e_NeX , J'aime tous les trucs visuels comme cela, c'est bien d'avoir donné ton travail, seulement tu t'es cassé les nenettes pour rien, car cet exemple (en bleu) fait parti des exemples des premieres pages du livre Visual basic 6 pour les debutants. En tout cas je te felicite de travailler sur la recherche d'agrementer  nos interfaces, bien trop de personnes  se contentent de faire des supers codes qui tuent mais delaissent le visuel de leur projet.

Ah oui sinon 'Eimer1.interval = 0'  c'est en realité 'Timer1.interval = 0'

J'espere revoir tes projets ici .

Commentaire de Stephane le 14/04/2004 15:18:17

e_nex > dans le load ca marche pas parce que la form n'a pas autoredraw en true.
Met true et essai

Commentaire de jp50 le 15/04/2004 00:32:03

Il faut aussi que tu mette Me.show au début de ton code.

Commentaire de azerty25 le 15/04/2004 06:53:59

Voici le code un peu corrigé à mettre dans une form

Option Explicit

Private Sub Form_Load()
Dim t As Single
Dim i As Single
Me.DrawStyle = vbInsideSolid
Me.DrawWidth = 5
Me.ScaleMode = vbPixels
Me.ScaleHeight = 256
Me.AutoRedraw = True
For i = 0 To 254
Me.Line (0, 1)-(Me.Width, i + 1), RGB(255 - i, 0, 0), B
' actuellement rouge. Pour vert:RGB(0, 255 - i, 0) et bleu:RGB(0, 0, 255 - i)
Next i
End Sub

Commentaire de azerty25 le 15/04/2004 06:57:58

Vous pouvez aussi supprimer les lignes Me.ScaleHeight = 256, Me.DrawStyle = vbInsideSolid et Me.DrawWidth = 5 (celle ci sert à déterminer la bordure avant le dessin, c'est donc facultatif)

Commentaire de DiaKt le 17/04/2004 11:51:52

Ton code est....... mal commenté, surchargé pour rien, plein d'erreurs, et tu explique mal ou placer le code car tout le code n'est pas a mettre dans un timer car il y a des declarations de variables etc.... donc je t'ai mis 3/10 car d'apres hqv0 il y a une chance que tu l'ai fait a l'aide d'un tuto donc woila ++ DiaKt   DiaKt@aol.com

Commentaire de assui le 08/03/2005 18:32:46

salut associé je me nomme assui kouakou emmanuel, étudiant en télécommunications. je suis très intéressé par l'ingéniosité des developeurs, malheuresement je suis un amateur en la matière. alors je souhaitérais profiter de ton expérience.

Commentaire de ChristophePel le 28/03/2005 12:28:23

Le timer, c'est pas terrible mais ça fonctionne si tu met ton code dans "Form_activate" (Sans le timer evidemment !!!!)

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,390 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)