Gdi+, Trait mis en forme [Résolu]

[thermo]

Bonjour

J'utilise la méthode Drawline de GDI+ avec Access 2007 pour tracer une ligne droite
oGdi.DrawLine gX, gY, gX1, gY1, gFileColor, 1, True
True donne une ligne continue et false des pointillés.
J'ai vraiment besoin d'avoir un 3e format, à savoir une ligne formée avec tiret point.
Quelqu'un peut-il me dire si c'est possible et éventuellement m'orienter vers la solution.

Merci d'avance

[Arkham46]

Bjr,

Pas prévu dans la version actuelle...

Essaye ceci :

Remplace dans la déclaration de DrawLine, ImageListDrawLine, et PrivDrawLine :

Code :

pDash as Boolean

par

Code :

pDash as Long

Puis dans PrivDrawLine, remplace :

Code :

1
2
    ' Pointilles
    If pDash Then GdipSetPenDashStyle lPen, 1

par

Code :

1
2
    ' Pointilles
    If pDash > 0 Then GdipSetPenDashStyle lpen, pDash

Les valeurs possible de pDash sont celles-ci :
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Pour un tiret simple c'est 1, pour un tiret-point c'est donc 3

[marsouin_89]

Ah Thierry,

Tu resteras toujours la référence pour l'utilisation de la GDIplus.

Cordialement

Christophe

[thermo]

Bonjour

Merci d'avoir répondu aussi rapidement, mais je n'ai pas la ligne
If pDash Then GdipSetPenDashStyle lPen, 1
dans privDrawline et donc, ça ne marche pas.
J'utilise le module clGdi32 de DessineExemples-gdi32.
Peut-être que ce n'ai pas la bonne version?

A plus j'espere et merci encore

[Arkham46]

Envoyé par thermo

J'utilise le module clGdi32

alors ce n'est pas gdi+, c'est gdi tout court (ou gdi32)

même manip pour les déclarations "pDash as Long"

mais remplacer :

Code :

Or IIf(pDash, 1, 0)

par

Code :

Or pDash

les valeurs possibles sont je crois les mêmes :

Code Valeurs de pDash :

1
2
3
4
5
 
           1           '  -------
           2           '  .......
           3           '  _._._._
           4           '  _.._.._

[thermo]

Merci thierry t'es top

Mon éditeur de dessin qui me permet de créer mes schémas pour mon programme de foot est enfin opérationnel. Il ne manque plus que de la mise en forme, mais j'ai tous les éléments qu'il me faut.
Une dernière question, y -a-t' il un paramètre qui me permettrait d'avoir des tirets plus long ? Mais je ne voudrais pas abuser

Encore merci

[Arkham46]

Envoyé par thermo

Une dernière question, y -a-t' il un paramètre qui me permettrait d'avoir des tirets plus long ? Mais je ne voudrais pas abuser

pas prévu non plus

une modif rapide :

1 : re-modifier les déclarations de fonctions :

Code :

1
2
3
4
5
Public Function DrawLine(ByVal pX1 As Long, ByVal pY1 As Long, ByVal pX2 As Long, ByVal pY2 As Long, Optional pPenColor As Long = 0, Optional pPenWidth As Long = 1, Optional pDash As Variant = 0, Optional ByVal pArrowLength As Long) As Boolean
 
Public Function ImageListDrawLine(PImage As String, ByVal pX1 As Long, ByVal pY1 As Long, ByVal pX2 As Long, ByVal pY2 As Long, Optional pPenColor As Long = 0, Optional pPenWidth As Long = 1, Optional pDash As Variant = 0, Optional pArrowLength As Long) As Boolean
 
Private Function PrivDrawLine(ByVal pX1 As Long, ByVal pY1 As Long, ByVal pX2 As Long, ByVal pY2 As Long, Optional pPenColor As Long = 0, Optional pPenWidth As Long = 1, Optional pDash As Variant = 0, Optional pArrowLength As Long, Optional PImage As String = "") As Boolean

2 : Dans PrivDrawLine, remplacer la ligne :

Code :

lNewPen = ExtCreatePen(PS_GEOMETRIC Or [...]

Par :

Code :

1
2
3
4
5
6
7
8
9
10
    If IsArray(pDash) Then
        Dim lcpt As Long
        ReDim ldash(LBound(pDash) To UBound(pDash)) As Long
        For lcpt = LBound(pDash) To UBound(pDash)
            ldash(lcpt) = pDash(lcpt)
        Next
        lNewPen = ExtCreatePen(PS_GEOMETRIC Or 7 Or (gPenAlignMode * PS_INSIDEFRAME) Or gLineCap, pPenWidth, lbr, UBound(ldash) - LBound(ldash) + 1, ldash(LBound(ldash)))
    Else
        lNewPen = ExtCreatePen(PS_GEOMETRIC Or pDash Or (gPenAlignMode * PS_INSIDEFRAME) Or gLineCap, pPenWidth, lbr, 0, ByVal 0&)
    End If

3 : pDash peut alors prendre :
- soit les valeurs prédéfinies 1,2,3,4
- soit un tableau donnant la taille des traits et espaces : array(...) (maxi 16 valeurs)

4 : Par exemple :

Code :

o.DrawLine 10, 10, 100, 10, vbBlue, 1, Array(20, 5,10,5)

donne un trait de longeur 20, un espace de 5, un trait de 10 un espace de 5, et on boucle

[thermo]

Salut thierry

Force est de constater que Christophe a raison!!!
Je suis impressionné.

J'ai réussit à tracer des courbes de bezier avec un nombre de points prédéfinis.
Je suis donc obligé de les déclarer en variables(px1, py1, px2, py2 etc) et de les assimiler aux clics de souris. Si je veux faire un tracer en 10 points, Je dois donc déclarer 10 Px et 10 Py. Mais cela fait une programmation à rallonge.
Existe-t' il une méthode permettant de tracer une courbe de bezier quelque soit le nombre de clic de l'utilisateur? (Comme dans word)
A moins que tu aies déjà la solution, inutile de perdre du temps. Après tout, je pose cette fois une question sans y avoir réfléchi. Il n'y a plus de plaisir.

Encore merci, car je n'aurais pas trouvé ça tout seul.