Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 01:38:25

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

+ de logiciels à télécharger

1 464 966 membres
20 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 044 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRÉER UN FOND ÉTOILÉ

Information sur la source

Catégorie :Graphique Classé sous : etoile, fond Niveau : Initié Date de création : 17/03/2001 Vu : 4 019

Auteur : msvbvm60.dll

Ecrire un message privé

Note :

4,86 / 10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Source

Dim X(150), Y(150), S(150) As Integer
Private Sub Form_Activate()
Randomize
For i = 1 To 150
X(i) = Int(Me.Width * Rnd)
Y(i) = Int(Me.Height * Rnd)
S(i) = Int(Rnd * 16)
Next
End Sub
Private Sub Form_Load()
Me.BackColor = 0
End Sub
Private Sub Timer1_Timer()
For i = 1 To 150
Circle (X(i), Y(i)), S(i), vbWhite
Next
Timer1.Enabled = False
End Sub

Dim X(150), Y(150), S(150) As Integer
Private Sub Form_Activate()
Randomize
For i = 1 To 150
X(i) = Int(Me.Width * Rnd)
Y(i) = Int(Me.Height * Rnd)
S(i) = Int(Rnd * 16)
Next
End Sub

Private Sub Form_Load()
Me.BackColor = 0
End Sub

Private Sub Timer1_Timer()
For i = 1 To 150
Circle (X(i), Y(i)), S(i), vbWhite
Next
Timer1.Enabled = False
End Sub

Conclusion

ça crée un fond étoilé, comme dans l'espace.on peut changer le nombre d'étoiles

Sources de la même categorie

AFFICHEUR 7 SEGMENTS par elguevel

SCREENCOLORINVERTER par slayer418

CHART COURBE STATISTIQUE DAO par amita

GABSCREENSHOT : FAITES SIMPLEMENT ET RAPIDEMENT VOS CAPTURES... par GabSoftware

BITBLT ENTRE 2 PICTUREBOX EN VB NET par Galain

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

FOND DE FEUILLE ANIMÉ : DÉGRADÉ MOUVANT POUR ABOUT OU SPLASH... par hvb

EASY WALLPAPER par emine

DÉGRADÉ DE COULEUR POUR FOND DE FORMULAIRE par nicolasheurtevin

CONTROLES TRANSPARENTS par Renfield

CHANGER PAPIER PEINT (REPONSE FORUM) par neodante

Commentaires et avis

Commentaire de ng le 11/11/2003 12:16:26

Optimisation....

Private Sub Form_Activate()
Dim i As Integer
Me.BackColor = 0
Randomize
For i = 1 To 150
Circle (Int(ScaleWidth * Rnd), Int(ScaleHeight * Rnd)), Int(Rnd * 16), vbWhite
Next
End Sub

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

fond transparent superposé sur une image [ par lolo ] je voudrais rendre transparent le fond d'un DataCombo que j'ai mis sur une image, pourriez vous me donner la procédure.Merci Fond d'ecran [ par Exxos ] Comment changer le fond d'ecran.Merci image de fond d'une form [ par oniros ] Bonjour,J'affiche une feuille munie d'une image de fond (propriété Picture)Comment faire pour que cette image soit automatiquement à la taille de lafe Tache de fond [ par whrein ] Mon problême est de savoir si mon programme laisse la main pourla reprendre lors d'un evenement type " changement de l'heure " ( seconde suivante) Le changer la couleur de fond du bureau [ par painkiller ] boujour :o)je recherche une api (ou autre chose) capable de modifier la couleur de fond du bureau de de windowsmerci mettre de la couleur dans une textbox [ par Yoda ] Angers le 29/09/00Je voudrai savoir si on peut faire "avancer" la couleur dans le fond d'une textbox. Que la couleur du fond avance de gauche à droite Rafrachissement base de registre [ par eric ] Je fais un logiciel qui permet de modifier le fond d'écran automatiquement(je sais il en existe beaucoup)Tout est programmé (clés de registre modifiée image en mosaique ? [ par Brodeur ] Salut a tous ! Merci a ceux qui m'ont repondu precedement. Mon pb est le suivant: je voudrais mettre une image de fond dans ma feuille (form) mais le Enlever le BLANC d'une image [ par Gabriel ] J'ai une image qui a un fond blanc.comment l'afficher pour que le fond blanc devienne transparent?MERCI!gabri_3@hotmail.com jouer un midi en fond [ par naney ] comment on fais pour jouer un fichier midi en fond c'est pour un jeu je veu qui ce maite en lecture puis par un bouton je pe le couper est le remaitre