Bonjour a tou(te)s !
Je dois réaliser une application ou des icônes seront déplacées sur un plan (rectangle graphique). J'aurais besoin de créer des instances de chacun de ces icônes et de définir des propriétés pour chacune, tout en enregistrant leur positions a l'écran/plan.
Enfin, je débute un peu sur VS 2008 (vb.net), alors je cherche des conseils sur les méthodes utilisables?!

une partie du code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
40
41
42
43
44
45
46
47
48
49
50
   Public Sub New(ByVal BTid As Integer, ByVal BTtype As TypeEnum, ByVal BTlocx As Integer, ByVal BTlocy As Integer)
      'creation selon le type
      Select Case BTtype
         Case 1      ' = truc
             ....
         Case 2
            ....
         Case 3      ' = Poste
            'dessin du fond de BTerm
            FondBTerm = New Bitmap(Me.Width, Me.Height)
            Dim gFondBTerm As Graphics = Graphics.FromImage(FondBTerm)
            'definition du BTerm = PC
            Me.Status_ = StatusEnum.AccesLibre
            Me.LocX = BTlocx
            Me.LocY = BTlocy
            PaintTermPoste(gFondBTerm)
 
         Case Else
            ....
      End Select
   End Sub
 
   Private Sub PaintTermPoste(ByRef g As Graphics)
      'definition
      Dim CouleurEcran As Color
      Dim CouleurBordure As Color = Color.White
      Dim Rect As Rectangle
      Dim TermStatus As LBTerm.StatusEnum = Me.Status
      Dim X As Integer = X0 + Me.LocX
      Dim Y As Integer = Y0 + Me.LocY
      'On va regarder le status du terminal
      Select Case TermStatus
         ....
         Case Else : CouleurEcran = Color.Red
      End Select
      'on décale le dessin pour avoir un contour en cas de surbrillance
      X += 2
      Y += 2
      'dessin ecran
      Rect = New Rectangle(X, Y, 36, 28)
      g.FillRectangle(New SolidBrush(Color.White), Rect)
      Rect = New Rectangle(X + 2, Y + 2, 32, 24)
      g.FillRectangle(New SolidBrush(CouleurEcran), Rect)
      'dessin clavier
      Rect = New Rectangle(X + 2, Y + 32, 31, 4)
      g.DrawRectangle(New Pen(Color.White), Rect)
      'dessin texte
      Rect = New Rectangle(X, Y + 40, 40, 14)
      g.DrawString(Me.BDesc, New Font(FontFamily.GenericSansSerif, 8), Brushes.White, Rect)
  End Sub
voila sauf, qu'il ne dessine rien... je suis un peu dans le flou.