[Vb.NET]Faire bouger un rectangle en GDI+

Version imprimable

Bonjour,
Je n'arrive pas a faire bouger un rectangle dans un graphic en GDI.
Je m'explique, j'ai un code du genre :
Code:

1 2 3 4 5 Dim g As Graphics Dim newBitmap As Bitmap = New Bitmap(200, 200) g = Graphics.FromImage(newBitmap) g.FillRectangle(Brushes.Blue, New Rectangle(x, y, 30, 10)) 'dessin du rectangle PictureBox1.Image = newBitmap
Le truc c'est que le rectangle s'affiche, mais je n'ai aucune idée de comment le faire se déplacer en suivant la souris.

Si quelqu'un pourrait me donner quelques pistes.

Merci et bonne journée !

07/05/2006, 14h00
NicolasG

Pour suivre la souris, il faut redessiner ce rectangle dans un événement Paint en fonction des coordonnées de la souris.

Il faut invalider (Invalidate()) le contrôle (ou la form) concerné sur l'événement MouseMove.

Merci de ta réponse mais jai encore un petit probleme ^^
Tout d'abord voila mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Form1
    Private bitmap As Bitmap
    Dim intBallPositionX, intBallPositionY As Integer
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         Dim grfx As Graphics = CreateGraphics()
 
        grfx.DrawImage(bitmap, CInt(intBallPositionX / 2), CInt(intBallPositionY / 2), 10, 10)
 
        grfx.Dispose()
 
        ' On incrémente la position de la balle
        intBallPositionX += 10
        intBallPositionY += 10
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim grfx As Graphics = CreateGraphics()
 
        ' On remet la balle au milieu de la form
        intBallPositionX = CInt(ClientSize.Width / 2)
        intBallPositionY = CInt(ClientSize.Height / 2)
 
        ' On cree un nouveau bitmap
        bitmap = New Bitmap(10, 10)
 
        ' On recree la balle
        grfx = Graphics.FromImage(bitmap)
        With grfx
            .Clear(BackColor)
            .FillEllipse(Brushes.Red, New Rectangle(1, 1, 10, 10))
            .Dispose()
        End With
 
        'on lance le timer
        Timer1.Enabled = True
    End Sub
End Class

En fait le problème est que la balle se déplace bien mais toutes les positions précédentes de la balle restent affichées. Comment faire pour ne plus les voir ?

MErci

07/05/2006, 20h12
NicolasG

Il n'y a pas besoin de créer un bitmap.
L'écran est déjà un bitmap !
L'événement Paint fournit un objet Graphics dans ses paramètres.
C'est celui là qu'il faut utiliser pour redessiner toute la scène à chaque appel (pas seulement la balle).

Le timer doit modifier la position mais ne s'occupe pas du dessin : il invalide simplement la form, ce qui déclenche l'appel de Paint.

Remarque : ne pas rechercher l'optimisation de l'affichage à ce stade. On redessine toute l'image dans Paint().
07/05/2006, 20h17
bicou13

En fait le but est de faire un casse briques. J'ai voulu faire en GDI plutot que d'utiliser une multitudes de picturebox mais si je redessine a chaque fois toute la scene est ce que ca ne va pas prendre un temps fou ?
Il n'y aurait pas un moyen de gérer séparément les briques, le pad et la balle ?

Merci :)
07/05/2006, 20h28
NicolasG

Oui on peut toujours optimiser.

Mais, commences par faire un logiciel qui marche.
Ensuite, si c'est nécessaire, on discutera de l'optimisation.

D'abord la fonction, ensuite la performance.
Et les machines sont bien plus rapides que tu ne le penses...
09/05/2006, 14h48
bicou13

Merci encore :)
J' encore une question ;)
Mon problème est le suivant : Il y a un problème de clignotement du dessin en gdi. A chaque tick du timer, on appercoi un clignotement de tous les éléments du dessin... :( Y aurait il un moyen que tout ca s'arrête ?
Merci
24/07/2007, 11h25
bguihal

je remonte ce post j'ai le meme probleme de clignotement, comment redessiner que ce que l'on a besoin et pas tout ?
24/07/2007, 13h29
Pol63

deja par rapport à ce que je viens de lire, les picturebox ou autre utilise gdi aussi ...

gdi n'utilise pas d'accélération matérielle apparement, ce qui le rend extremement lent
il est deja limite pour afficher 50 boutons sur un pc à 3GHz alors vouloir faire un casse brique en gdi c'est ptete pas c'qu'y a d'mieux
et directX9 est pas énormément compliqué à mettre en oeuvre pour faire de la 2D, voir XNA peut etre aussi

enfin il est surement possible d'améliorer quand meme en restant sur gdi
une des possibilité est de créer un control spécial sur lequel tu retires toutes les fonctionnalités d'origine de rafraichissement et que ca soit toi qui gère tout
sinon tu peux aussi tenter me.doublebuffered = true dans le new de ta feuille
sinon jette un oeil vers les system.Drawing.bufferedgraphics