Un delire de techno

Commenter

Contenu du snippet

Il ecrit mon nom (je l'ai cacher dans la source :)) et mon prof de techno , et trace plein de lignes gribouiller er des cercles .
ils vous faut :
Une form :)
un picturebox nommé IMG
et c tout :)

Source / Exemple : 


Sub Main()
For X = 0 To 100
LIGNE = 100
Gauche = 100
Droite = Form1.Width - 100
Bas = Form1.Height - 100
img = Clipboard.GetData
D = Date$
B = "Mon nom ;)"
CurrentX = Droite - TextWidth(B)
CurrentY = LIGNE
Print B
B = "4 eme C"
CurrentX = Droite - TextWidth(B)
Print B
Line (0, Rnd * Droite)-(Rnd * Droite, Rnd * Bas)
Picture1.Top = Bas / 2
Picture1.Left = Droite / 2
CurrentY = Bas - 1000
B = " Année scolaire : " + D + "   Professeur M.pahin"
CurrentX = Droite - TextWidth(B) - 100
CurrentX = Picture1.Left
CurrentY = Picture1.Top
Circle (Picture1.Top, Picture1.Left), Rnd * 1000, Rnd * 640, Rnd * 5, Rnd * -5
Print B
Next
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
Cls
Main
End If
End Sub

Conclusion :


Presser TAB pour reloader

Du même auteur (jamesX001)