PureBasic

Je vais même le poster en entier...
InitSprite()
InitMouse()
InitKeyboard()
Taille_Chiffon_X=16
Taille_Chiffon_Y=16
Dim tableau (256,192)

Ma_fenetre = OpenWindow(0, 200, 200, 320, 320,#PB_Window_SystemMenu,"Cleaner")
;OpenScreen(1024,768,16,"rien")
OpenWindowedScreen(Ma_fenetre,0,0,256,192, 0, 0, 0)
LoadSprite(3072, "Data\Chiffon.bmp", 0)
StartDrawing(ScreenOutput())
DrawText("Salut")
FlipBuffers()

Delay (1000)
StopDrawing()

Repeat
;EventID.l = WaitWindowEvent()
StartDrawing(ScreenOutput())
For j=0 To 47
For k=0 To 63
If tableau(k,j)=0
Box(4*k,4*j,4,4,RGB(0,255,0))
EndIf
Next k
Next j
Box(x,y,16,16,RGB(0,0,0))
If MouseButton(1)
For b=1 To Taille_Chiffon_Y
For a=1 To Taille_Chiffon_X
tableau((x+a)/4,(y+b)/4)=1
Next a
Next b
EndIf
ExamineMouse()
ExamineKeyboard()
x = MouseX()
y = MouseY()
FlipBuffers()
IsScreenActive()

StopDrawing()

Until MouseButton(2)
End

Puisque tu le dis

Pour CARTER

J'ai pas de conseil à te donner, mais quand tu crée un sujet, et qu'il y a une réponse, mets ta réponse à la suite de ta question, dans le même sujet!

Parce que ça va vite devenir ingérable si tu crée un nouveau fil à chaque réponse

Et mets tes codes entre les balises "Code" avec le bouton situé en haut de la fenêtre.

C'est plus pratique pour la lecture

Chris

CARTER

Je n'ai pas de conseil à te donner , mais fais comme Chris te dit

je pense qu'il a du glisser sur Nouveau au lieu de Repondre, et oui c'est sa d'avoir un modo avec les doit crasseux! (heu... je parle de Régis hein, pas de fred! pas envi de me prendre un charge )

Je n'ai pas de conseils à lui donner, mais ça serait bien qu'il fasse comme Comptois le suggère.

désolé mais je peux pas recoller les sujets, même avec de la super glue

tu n'a pas l'option "déplacer" ?