По-моему полигоны?

[Sirik]

Есть набор точек (x,y)
Если я рисую их на Picture и соединяю их линиями, то получается не очень краисвая картинка: углы стыка линий резковатые (если можно так выразится)

Как можно их содинить "красиво"? Краем уха слышал, что можно использовать полигоны. Но как? Дайте пример

[GSerg]

Если моя правильно понять твоя, то тебе нужна Private Declare Function PolyBezier Lib "gdi32.dll" (ByVal hdc As Long, ByRef lppt As POINTAPI, ByVal cPoints As Long) As Long

[Sirik]

Да, можно и эту функцию использовать. Но использую вот эту PolylineTo

Появился следующий вопрос: в Picture я поставил свой маштаю через Scale. И теперь если хочу нарисовать определённое количество точек ни чего не получается: простым методом PSet всё ок, но только не PolyLineTo. Я так понимаю, что надо использовать какие-то коефициенты, но какие и где их взять?

[alibek]

Рассчитывать и умножать. Или использовать методы PictureBox.ScaleX/ScaleY для перерасчета.

[Sirik]

Хорошо.
Допустим я установил маштаб так
Picture.Scale(3,74)-(431,-87)

Рисую 5 точек методом Pset всё ок. "Загяняю" координаты точек в массив и вызываю PolyLineTo получается следующее: русунок смещён вверх+приплюснуть.
Как расчитать необходимые коефициенты?

[alibek]

PictureBox.ScaleX(12, PictureBox.ScaleMode, vbPixels) - получить координаты 12 в пикселах.

[Sirik]

Что-то я ничего не понимаю

Вот тут я пример выложу. Какие надо поставить координаты первой точки (p(0).x=?,p(0).y=?), чтобы вершина треугольника была к круге (центр круга 10,10)

[tyomitch]

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

    p(0).X = Picture1.ScaleX(10 - Picture1.ScaleLeft, vbUser, vbPixels): p(0).Y = Picture1.ScaleY(10 - Picture1.ScaleTop, vbUser, vbPixels)
    p(1).X = Picture1.ScaleX(100 - Picture1.ScaleLeft, vbUser, vbPixels): p(1).Y = Picture1.ScaleY(100 - Picture1.ScaleTop, vbUser, vbPixels)
    p(2).X = Picture1.ScaleX(50 - Picture1.ScaleLeft, vbUser, vbPixels): p(2).Y = Picture1.ScaleY(150 - Picture1.ScaleTop, vbUser, vbPixels)
    p(3).X = Picture1.ScaleX(10 - Picture1.ScaleLeft, vbUser, vbPixels): p(3).Y = Picture1.ScaleY(10 - Picture1.ScaleTop, vbUser, vbPixels)


[Sirik]

Тёмич спасибо.
Вот только объясни почему минус?

[tyomitch]

Расстояние от точки до левого края - это (Xточки - Xлевого_края).

[Sirik]

Конечно!
Что-то я сегодня торможу!

И ещё один вопрос: если я использую функцию PolyLine или PolyBezier, как мне задать цвет маркера и тип?

[tyomitch]

Думаю, никак
Рисуй маркеры отдельно.

[Sirik]

Ок, я так и думал, но надеялся на лучшее

А как мне задать цвет и тип линий когда использую эти функции?

[GSerg]

Выбери в девайсконтекст нужный Pen.

[Sirik]

1.

Выбери в девайсконтекст нужный Pen.

"На пальцах" можешь объяснить?

2. С функцие PolyLine - всё понятно, а вот с PolyBezier - нет. Я так понимаю, что для этой функции необходимо кратное 3 кол. точек и ещё что-небудь в этом роде?! Например, для 10 точек работает, а для 11 не хочет

[GSerg]

1. Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As PenStyle, ByVal nWidth As Long, ByVal crColor As Long) As Long


2. cPoints
[in] Specifies the number of points in the lppt array. This value must be one more than three times the number of curves to be drawn, because each Bézier curve requires two control points and an endpoint, and the initial curve requires an additional starting point.

[Sirik]

2 GSerg
А теперь по-русски. Что-то проблеммы последнее время с анлг.

[tyomitch]

Нужно три точки на каждый сегмент кривой, плюс ещё одна начальная.

[Sirik]

Это я понял, что нужно три точки. Т.е. получается, что если у меня есть 11 точек, то линию провести не удасться?

И еще вопросик как пользоваться функцией CreatePen?
Мне надо на PictureBox нарисовть методом Line линии шрих-пунктриром+разными цветами

[tyomitch]

1. Если у тебя 11 точек, то функции ты должен передать 10*3+1 = 31 точку.

2. Сейчас сделаю пример...

[tyomitch]

Пример для красного штрих-пунктира:

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

    Dim p(3) As POINTAPI, hPen As Long, hMyPen As Long
   
    Picture1.Scale (-10, 100)-(400, -100)
    Picture1.Circle (10, 10), 10
   
    p(0).X = Picture1.ScaleX(10 - Picture1.ScaleLeft, vbUser, vbPixels): p(0).Y = Picture1.ScaleY(10 - Picture1.ScaleTop, vbUser, vbPixels)
    p(1).X = Picture1.ScaleX(100 - Picture1.ScaleLeft, vbUser, vbPixels): p(1).Y = Picture1.ScaleY(100 - Picture1.ScaleTop, vbUser, vbPixels)
    p(2).X = Picture1.ScaleX(50 - Picture1.ScaleLeft, vbUser, vbPixels): p(2).Y = Picture1.ScaleY(150 - Picture1.ScaleTop, vbUser, vbPixels)
    p(3).X = Picture1.ScaleX(10 - Picture1.ScaleLeft, vbUser, vbPixels): p(3).Y = Picture1.ScaleY(10 - Picture1.ScaleTop, vbUser, vbPixels)
   
    hMyPen = CreatePen(PS_DASHDOT, 1, vbRed)
    hPen = SelectObject(Picture1.hdc, hMyPen)
   
    Polyline Picture1.hdc, p(0), 4
   
    SelectObject Picture1.hdc, hPen
    DeleteObject hMyPen


Декларации сам вставишь?

[Sirik]

Тёмыч, за пример спасибо!

Насчёт 1 вопроса: какие именно 31 точки?

[tyomitch]

11, через которые линия проходит, и ещё 20 направляющих, которые бы указывали, как ей изгибаться.

[Sirik]

Дело ясное, что дело тёмное.

Ничего не понял, больше запутался.
У тебя пример работы этой функции есть?

[tyomitch]

На http://mentalis.org/apilist/PolyBezier.shtml есть.