Fonction pset

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 135 fois - Téléchargée 45 fois

Contenu du snippet

Petit Code simple permettant de mettre des points partout dans une feuille ...
Ce m'est presque rien mais peu être que cela va pouvoir aider quelqu'un..

Source / Exemple :


Private Sub Command1_Click()
1:
Form1.PSet (Int(Rnd * 10000), Int(Rnd * 10000)) ' x et y Vous pouvez fort bien les changer
DoEvents
GoTo 1
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
69
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
12 mai 2013

Plutôt

Dim x As Integer
Dim y As Integer

For x = 0 To 255
For y = 0 To 249
Picture1.PSet (x, y)
x = x + 1
y = y + 1
Next y
Next x

Set x = Nothing
Set y = Nothing

ça tracera un damier :)
Format picture1: 256x240 px
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004

Ca sert à quoi ?
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007

hoo un goto ! !
Paaaas biiieeenn

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.