Discussion :

[Troopers]

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 :

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

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

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

[SpaceFrog]

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..

[Troopers]

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

[HCath]

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.


A+
HCath

[Troopers]

Je voulais justement eviter de tout redessiner...

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

[HCath]

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 :

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

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

A+
HCath