Discussion :

[Souleyre]

Bonjour,
Je voudrais dessiner sur une PictureBox des points dont les coordonnées possèdent 9 chiffres significatifs. Voulant éviter une transformation de coordonnées, je me suis essayé à la méthode Scale. Effectivement, cette méthode fonctionne parfaitement avec des instructions du genre Line mais, en revanche, ça ne marche plus du tout avec PolyLine ou Polygone.
Il me semble intuitivement que dans ce cas il faudrait passer par des instructions API telles que SetWorldTransform... J'ai cherché en vain sur ce site ainsi que sur le Web un tutorial qui me permettrait de manipuler cette syntaxe.
Si quelqu'un de familier à ce type de problème pouvait m'aider... merci beaucoup à lui (ou à elle)!
Souleyre

[OhMonBato]

Bonjour,

Qu'appelle tu 9 chiffres significatifs ? après la virgule ? des nombres en millions ?
Qu'est ce qui ne marche pas avec Polyline ou Polygon ? On est sensés deviner ?
Tu n'as pas du code à nous montrer ?

[ucfoutu]

Bonjour,

Ces fonctions utilisent les unités logiques.

Quel est ton problème ?
Montre ton code (un extrait en exemple), s'il te plait. Nous verrons alors mieux où tu commetrais une erreur.
Désolé, OhMonBao (croisés. Salut). Mais ma réponse reste car utile, elle aussi.

[Souleyre]

A la demande générale, je donne ci-dessous un petit bout d'exemple:

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
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
 
Private Sub Form_Load()
  Set affi = Picture1
  affi.Scale (1200000, 1300000)-(1300000, 1200000)
  'dessine un carré rouge:
  affi.Line (1265463.25, 1256754.94)-(1289832.65, 1288125.05), vbRed, BF
  ReDim lpPoints(2) As POINTAPI
  lpPoints(0).X = 1217654.26: lpPoints(0).Y = 1210458.31
  lpPoints(1).X = 1225489.65: lpPoints(1).Y = 1240005.48
  lpPoints(2).X = 1238715.69: lpPoints(2).Y = 1224806.32
  affi.ForeColor = vbBlack
  affi.FillColor = vbBlue
  'dessine un triangle bleu:
  Res& = Polygon(affi.hdc, lpPoints(0), 2&)
  affi.Refresh
end sub

Le carré rouge se dessine sans problème mais le triangle bleu n'est pas tracé.

[ucfoutu]

Avant d'aller plus loin (les calculs à faire en fonction de l'échelle) :
Il me semble que tu vas devoir comprendre la fonction PolyGon de l'Api de Windows....
Un triangle commence en 1 point et en comporte 3
Mis à part ton problème d'échelle (à régler plus tard), tu en as un majeur, ici, me parait-il, non ?