Fenetres aleatoire

Commenter

Contenu du snippet

voici un ptit prog de newbies ;p pour afficher des fenetres aleatoire infiniment, histoire de brouiller l'ecran de votre victime (ne fait aucun acte de suppression ou de modif)
contient 1 button et une form

Source / Exemple : 


Private Sub Command1_Click()
kill: 'annoce de la ligne de repetition
Dim left, top 'declaration des variables
Dim form As form ' encore une variable
Randomize 'histoire que ce soit vraiment aleatoire
left = 1 + Int(Rnd * 15000) 'conception de la formule de math
top = 1 + Int(Rnd * 12000) 'encore de la formule
Set form = New osiris 'copie de la form1 nommé osiris
form.Show 'apparition de la form
form.top = top 'designation de la position aleatoire( grace a la formule top)
form.left = left ' pareille
GoTo kill 'retour a la boucle

End Sub

Conclusion :


ceci est vraiment pour les debutants de chez debutants

A voir également

S'inscrire maintenant

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.

Du même auteur (tlsosiris)