Dashed Linie mit R2_XORPEN

12/07/2009 - 10:52 von Andreas Welte | Report spam
hallo,
ich will eine farbige rubberlinie zeichnen. funzt auch aber: egal was ich
bei penstyle angebe - es wird immer eine solid-linie. ich brauche sie aber
dashed.
(drawreversibleline geht nicht, da die linien farbig sein können)
ich sitze jetzt schon ewig und finde den fehler nicht. was mache ich falsch?



Dim hXORMode% = 7
Dim Penstyle_INT% =2
Dim hDC As IntPtr = GR.GetHdc
Dim hPen As Integer = CreatePen(Penstyle_INT, Width, LineColor_INT)
Call DeleteObject(SelectObject(hDC, hPen))
Call DeleteObject(SetROP2(hDC, hXORMode))
Dim Pts(1) As POINTAPI
Pts(0).x = P1.X : Pts(0).y = P1.Y
Pts(1).x = P2.X : Pts(1).y = P2.Y
Call Polyline(hDC, Pts(0), 2)
GR.ReleaseHdc(hDC)
Call DeleteObject(hDC)
Call DeleteObject(hPen)


vielen dank,
es grüß andreas
 

Lesen sie die antworten

#1 Herfried K. Wagner [MVP]
12/07/2009 - 13:07 | Warnen spam
"Andreas Welte" schrieb:
ich will eine farbige rubberlinie zeichnen. funzt auch aber: egal was ich
bei penstyle angebe - es wird immer eine solid-linie. ich brauche sie aber
dashed.
[...]
Dim hPen As Integer = CreatePen(Penstyle_INT, Width, LineColor_INT)



Wie sieht Deine Deklaration für 'CreatePen' aus?

M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

Ähnliche fragen