Voila j'ai un module de classe sous VB6 qui réprésente un pion d'un jeu de dames :
(code simplifié)
Code :
- ...
- Private PionObj As Image 'objet graphique désignant le pion
- ----------------------------------------------------------------
- Public Sub init(...)
- Set PionObj = Form1.Controls.Add("VB.image", "PionObj" )
- PionObj.Visible = True
- PionObj.DragMode = 1
- End Sub
|
par la suite impossible de glisser/deplacer l'objet (qui s'affiche bien), quelqu'un voit pourquoi ?
Message édité par Dr Raf le 20-06-2005 à 19:39:19
