Jolis petit pixel multicolors

Soyez le premier à donner votre avis sur cette source.

Vue 3 146 fois - Téléchargée 319 fois

Description

ç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

Codes Sources

A voir également

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.