Fonction pset

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 459 fois - Téléchargée 48 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
DxShadow
Messages postés
69
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
12 mai 2013

24 févr. 2010 à 00:07
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
logisim
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004

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

30 déc. 2001 à 11:18
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.