Créer un fond étoilé

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 811 fois - Téléchargée 66 fois

Contenu du snippet


Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
31
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
28 juin 2005

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
Eh cool les gars... Suis peut-être à la bourre pr vos comment' mais bon, à bien juger vos 2 codes ils sont pô laids & assez jolis. Ce ki veut dire ke vs en avez qd même des idées.. Alors, inutile de vs battre à coups de pelotes de laines!... 8)
chacun apporte sa contribut° & chacun apporte ses conseils & critikes, cé simple non?... Remarke mémère, t'as raison, ton code, j'ai fé la même chose sauf pr le nbre ke jé mis en moins (mé bon on s'en fout!) donc, il est + simple, léger é court par rapport à msvbvm.... Mé sans doute il apprenait, donc, normal k'il exploite pô encore tte la puissance de VB, mé ça viendra pr lui, & je l'espère!... So, peace & cool... 8))
Sisi je fais du vb entre deux séances de tricot regarde :

Private Sub Form_Activate()
Me.BackColor = 0
Me.WindowState = 2
Randomize Timer
For i = 1 To Int(Rnd * 1000)
GreyShade = Int(Rnd * 255)
Circle (Int(Rnd * Me.Width), Int(Rnd * Me.Height)), Int(Rnd * 10), RGB(GreyShade, GreyShade, GreyShade)
Next
End Sub
Les memeres font pas de vb, alors ferme ta gueule, c'est très beau
Mais c'est laid!

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.