ça sert à prendre des pixels au pif et les colorier.
Soyez indulgents je débute en VB.
Source / Exemple :
'placer une form1 avec une picturebox
'la form1 s'appelle "form1 et la picture box "ecran"
'ensuite mettez le code dans le module1
'et mettez la sub main() en objet de démarage
Dim window As Form 'variable de la fenêtre qui va être générée
Dim ecran As PictureBox 'variable de la Picturebox qui va être générée
Public Enum resolutions 'choisir la taille de l'écran
Res320x240 = 1
Res640x480 = 2
Res800x600 = 3
Res1024x786 = 4
End Enum
Public Function NewForm(ByRef frm As Form, ByVal res As resolutions)
Set NewForm = frm ' Nouvelle fenêtre
Select Case res
Case Res320x240
frm.Width = 320 * Screen.TwipsPerPixelX
frm.Height = 240 * Screen.TwipsPerPixelY
Case Res640x480
frm.Width = 640 * Screen.TwipsPerPixelX
frm.Height = 480 * Screen.TwipsPerPixelY
Case Res800x600
frm.Width = 800 * Screen.TwipsPerPixelX
frm.Height = 600 * Screen.TwipsPerPixelY
Case Res1024x768
frm.Width = 1024 * Screen.TwipsPerPixelX
frm.Height = 768 * Screen.TwipsPerPixelY
End Select
End Function
Public Function NewEcran(ByRef window As Object) As PictureBox
Set NewEcran = window.ecran 'nouvelle picturebox dans la nouvelle fenêtre
NewEcran.AutoRedraw = False 'on règle ces propriétées
NewEcran.BorderStyle = 0
NewEcran.ClipControls = False
NewEcran.ScaleMode = 3
NewEcran.BackColor = RGB(0, 0, 0)
NewEcran.Left = 2
NewEcran.Top = 2
NewEcran.Width = window.ScaleWidth - 4
NewEcran.Height = window.ScaleHeight - 4
End Function
Public Sub Main()
Dim X As Long
Dim Y As Long
Dim Count As Long
Dim Color As Long
Set window = NewForm(Form1, Res1024x768)
Set ecran = NewEcran(window) 'En gros ça refait une grande form1
window.Left = 0
window.Top = 0
window.Show
DoEvents
Randomize
ecran.DrawWidth = 1 'mettez un chiffre au dessus si vous voulez des plus gors points
For Count = 1 To 1000000 'si ça plante enlevez quelques 0
X = ecran.ScaleWidth * Rnd
Y = ecran.ScaleHeight * Rnd 'pour prendre un pixel au pif
Color = RGB(Rnd * 256, Rnd * 256, Rnd * 256) 'un couleur au pif
ecran.PSet (X, Y), Color 'et on colorie le pixel avec la couleur
Next Count
Set ecran = Nothing
Set window = Nothing 'si j'ai bien compris ça décharge les contrôles de la mémoire
End Sub
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.