[VB6][Graphisme] Zoom

B'jour

J'essaie de faire un zoom sur un picturebox dans lequel je dessine des lignes et des polygones

pour l'instant j'ai essayé: :?

Code:

---

1 2 3 4 5

Private Sub CmdZoom_Click() DrawSpace.ScaleHeight = DrawSpace.ScaleHeight -100 DrawSpace.ScaleWidth = DrawSpace.ScaleHeight -100 DrawSpace.Refresh End Sub

---

ou DrawSpace est mon picturebox

le problème c'est qu'il ne me redessine pas mes lignes et polygones :cry:

auriez vous un idée? :?: et es ce que ma solution est adéquate pour faire un zoom? :?:

Suggestion à la volée :
Tu n'aurais pas une histoire de top , peut être les redessines-t-il mais en dehors de la zone visible ?
essayes de mettre ton picture box à l'intérieur d'un autre picturebox et ainsi gerer la position du conetenu dans le contenant..

j'y avais pensé 8) mais non
mes dessins sont bien dans la zone de mon zoom car en les redessinants manuellement aux meme coordonnées ils sont visibles

Salut,

Je crois que la solution est de tout redessiner avec des points à géométrie variable, du genre :

DrawSpace.Line (X1*Ech,Y1*Ech)-(X2*Ech,Y2*Ech), MaBelleCouleur

Où X1, X2, Y1, Y2 et Ech sont des Single. Ech représente ton facteur de Zoom.

:wink:
A+
HCath

Je voulais justement eviter de tout redessiner...

mais bon si on peut pas faire autrement.... :evil:

A mon avis, redessiner est la meilleure solution...

Mais si tu veux l'éviter, tu peux utiliser l'API StretchBlt qui te feras une copie de ton dessin dont tu pourras modifier l'échelle à volonté.

Code:

---

Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

---

:wink:
A+
HCath