begin process at 2012 02 13 19:28:59
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > FAIRE CLIGNOTER UNE FORME

FAIRE CLIGNOTER UNE FORME


 Information sur la source

Note :
Aucune note
Catégorie :Divers Niveau :Débutant Date de création :14/05/2004 Vu :2 635
Auteur : retaks666

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

 Description

ben, copier le code dans un projet avec une forme contenant deux label et un timer.

Source

  • Private Sub Form_Load()
  • Form1.BackColor = vbBlack
  • Label1.BackColor = vbBlack
  • label2.BackColor = vbBlack
  • Label1.ForeColor = vbRed
  • label2.ForeColor = vbRed
  • Timer1.Enabled = True
  • end sub
  • Private Sub Timer1_Timer()
  • If Form1.BackColor = vbBlack Then
  • Form1.BackColor = vbRed
  • Label1.BackColor = vbRed
  • label2.BackColor = vbRed
  • Label1.ForeColor = vbBlack
  • label2.ForeColor = vbBlack
  • ElseIf Form1.BackColor = vbRed Then
  • Form1.BackColor = vbBlack
  • Label1.BackColor = vbBlack
  • label2.BackColor = vbBlack
  • Label1.ForeColor = vbRed
  • label2.ForeColor = vbRed
  • Else ' au cas ou ça marche pas
  • Form1.BackColor = vbBlack
  • Label1.BackColor = vbBlack
  • label2.BackColor = vbBlack
  • Label1.ForeColor = vbRed
  • label2.ForeColor = vbRed
  • End If
  • End Sub
Private Sub Form_Load()

Form1.BackColor = vbBlack
Label1.BackColor = vbBlack
label2.BackColor = vbBlack
Label1.ForeColor = vbRed
label2.ForeColor = vbRed
Timer1.Enabled = True

end sub

Private Sub Timer1_Timer()
If Form1.BackColor = vbBlack Then
Form1.BackColor = vbRed
Label1.BackColor = vbRed
label2.BackColor = vbRed
Label1.ForeColor = vbBlack
label2.ForeColor = vbBlack

ElseIf Form1.BackColor = vbRed Then
Form1.BackColor = vbBlack
Label1.BackColor = vbBlack
label2.BackColor = vbBlack
Label1.ForeColor = vbRed
label2.ForeColor = vbRed

Else ' au cas ou ça marche pas
Form1.BackColor = vbBlack
Label1.BackColor = vbBlack
label2.BackColor = vbBlack
Label1.ForeColor = vbRed
label2.ForeColor = vbRed
End If

End Sub

 Conclusion

on aurait pu utilser l'instruction switch, mais l'envie ne m'en a pas pris ...


 Sources du même auteur

Source avec Zip Source avec une capture BASE DE DONNÉES V2 SANS ACCESS,UTILISABLE SOUS EXEL, CRYPTAG...
Source avec Zip Source avec une capture BASE DE DONNÉES SANS ACCESS, CRYPTAGE DES DONNÉES, ENREGISTR...
CRYPTAGE/DÉCRYPTAGE DE TEXTE PAR ASCII
RENDS TRANSPARENTE PUIS OPAQUE FENETRE AFFICHÉE(DE WINDOWS),...
Source avec Zip Source avec une capture TRANSFERT DE FICHIER PAR WINSOCK, AVEC RESUME, PAUSE, VITESS...
Toutes les sources de retaks666

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de ADN733R le 14/05/2004 18:06:29

J'ai une impression de déjà vu...

Commentaire de retaks666 le 14/05/2004 19:17:23

j'ai pas dit que je voulait innover, mais je mets ça comme ça, parce que je l'ai fait pour moi, puis ça fait que quelque jours que je fais du VB...

Commentaire de sibi12 le 15/05/2004 11:56:33

peut ête plus propre et plus simple :
l'api FlashWindow de http://www.vbfrance.com/code.aspx?ID=8546

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Photo aérienne de Saintes Maries de la Mer
Photo Japan Kultur Zen Buddismus 

Visiter la photothèque
 
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,702 sec (4)

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)