Контрол "Стрелка"

[beat_swamp]

добрый день всем1 подскажите пожалуйста1 где можно достать контрол СТРЕЛКА" (то есть обычная линия со стрелкой на конце) ???

зы сам пытался написать1 запарился с синусами и косинусами и координатами1 +(

[Oxygen]

Гм. А если не секрет, то для чего этот контрол предназначается? Потому как, я совершенно не поняла, что требуется автору топика.

[beat_swamp]

Гм. А если не секрет, то для чего этот контрол предназначается? Потому как, я совершенно не поняла, что требуется автору топика.

вобщем есть пикчер бокс на котором надо сначала расставить (некотором образом) стрелки а потом их удалить а потом снова расставить1

или может у кого есть функция вычисляющая координаты перьев стрелки? тогда я стандартными Line нарисую стрелки1

[tyomitch]

Как обычный Line, но со стрелкой на конце.
Я бы рисовал через API: в Аппельмане был пример.

[beat_swamp]

Я бы рисовал через API: в Аппельмане был пример.

а что такое "аппельман"?
если можешь кинь ссылку плиз1

[VT]

Код: Выделить всё

Sub DrawArrow(ByRef Obj As Object, _
              ByVal x1 As Long, ByVal y1 As Long, _
              ByVal x2 As Long, ByVal y2 As Long, _
              ByVal Color As Long)
Const Arw_Tip_Relative_Length As Double = 0.1
Const Arw_Tip_Height As Double = 0.5 'height of a tip expressed in tip length
Dim dx As Double, dy As Double
dx = x2 - x1
dy = y2 - y1
Obj.Line (x1, y1)-(x2, y2), Color
Obj.Line (x2, y2)- _
     Step(-dx * Arw_Tip_Relative_Length - dy * Arw_Tip_Relative_Length * Arw_Tip_Height, _
          -dy * Arw_Tip_Relative_Length + dx * Arw_Tip_Relative_Length * Arw_Tip_Height), _
         Color
Obj.Line (x2, y2)- _
     Step(-dx * Arw_Tip_Relative_Length + dy * Arw_Tip_Relative_Length * Arw_Tip_Height, _
          -dy * Arw_Tip_Relative_Length - dx * Arw_Tip_Relative_Length * Arw_Tip_Height), _
         Color
End Sub

Просто векторная геометрия, и никаких синусов и углов.
Подойдет?

[beat_swamp]

VT, а что такое Step в выражении

Код: Выделить всё

Obj.Line (x2, y2)- _
     Step(-dx * Arw_Tip_Relative_Length - dy * Arw_Tip_Relative_Length * Arw_Tip_Height, _
          -dy * Arw_Tip_Relative_Length + dx * Arw_Tip_Relative_Length * Arw_Tip_Height), _
         Color

и кстати1 когда я отрисовываю методом Line (а не контрол забабахиваю) линии в некоторых местах затираются1 +(
щас попробую перенести то что VT написал применительно к контролам моим1 +)
о результатах сообщу1 +)

[beat_swamp]

VT
еще один вопрос1
как я понимаю Arw_Tip_Relative_Length и Arw_Tip_Height - ОТНОСИТЕЛЬНЫЕ параметры1 то есть длина перьев будет равна длине стрелки умноженному на какой то коэффициент?!
как переделать метод line отрисовки пера если входные параметры - координаты стрелки (два икса, два игрика), угол между пером и главной линией стрелки и длина пера ???

[beat_swamp]

ооо1 сделал1 +) всем спасибо за внимание1 отдельная благодарность VT1

[IIIypuk]

Извините, немного не в тему.
beat_swamp, шифт почини

[beat_swamp]

IIIypuk, не в шифте дело1 но в руках1 не из того места растут видимо1

[Хакер]

beat_swamp, а дело1, руках1, видимо1, видимо2, видимо3

Это всё что? переменные?

[tyomitch]

Я бы рисовал через API: в Аппельмане был пример.

а что такое "аппельман"?
если можешь кинь ссылку плиз1

Спутал, имел в виду геометрические перья (ExtCreatePen и т.д.)
Но всё равно, подержка стрелок есть в GDI+

[beat_swamp]

beat_swamp, а дело1, руках1, видимо1, видимо2, видимо3
Это всё что? переменные?

+)))))))))