Discussion :

[stracoma]

Bonsoir.
Je vous sollicite ce soir car j'ai du mal à utiliser cette maudite poo.


En cliquant sur le bouton, le panel rouge doit se déplacer vers la droite dune distance = sa largeur.
avec la programmation procédurale c'est très facile. Mais comme je veux apprendre la poo, j'ai fais ce code, mais mon panel ne bouge pas. je ne sais pas comment s'y prendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Coureur
    Public position As Point
    Public taille As Size
    Public Sub New(ByVal p As Point, ByVal s As Size)
        Me.position = p
        Me.taille = s
    End Sub
    Public Sub avance()
        Me.position.X = Me.position.X + Me.taille.Width
    End Sub
 
End Class

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
    Dim coureur1 As Coureur
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        coureur1 = New Coureur(Me.Panel1.Location, Me.Panel1.Size)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        coureur1 = New Coureur(Me.Panel1.Location, Me.Panel1.Size)
        coureur1.position.X = Me.Panel1.Location.X
        coureur1.taille.Width = Me.Panel1.Width
        coureur1.avance()
    End Sub
End Class

Merci à vous