Soyez le premier à donner votre avis sur cette source.
Vue 3 231 fois - Téléchargée 336 fois
'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.