Точка, линия, кривая ...

[SeT]

Скажите как можно нарисовать точку, линию, квадратик, чтобы потом можно было их редактировать (удалить, увеличить и т.д.)?

[uhm]

Под словами "можно редактировать" ты имеешь в виду, что квадратик должен быть векторным, а не растровым?

[GSerg]

controls.add("vb.shape") ?
controls.add("vb.line") ?

[SeT]

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

controls.add("vb.shape") ?
controls.add("vb.line") ?

Расшифруй пожалуйста.

Под словами "можно редактировать" ты имеешь в виду, что квадратик должен быть векторным, а не растровым?

Да, графика векторная.

[Gotha]

line(x1,y1)-(x2,y2), B - квадратик
line(x1,y1)-(x2,y2) - линия
pset(x,y),color - пыксель

type myCoord
x as long
y as long
end type

dim myBox(1) as myCoord

в этот муБокс пишешь координаты кубика и т.д., короче запарился)
по маусмуву все чистишь и рисуешь заново или еще как-нить, как тебе нравится
короче тут надо ручками, а не обсуждать

[SeT]

ну а как построить кривую. т.е. даны координаты начальной точки и конечной, как задать уравнение, по которому будет строиться кривая. Если указать в цикле с точками то как потом всю кривую одновременно редактировать?

[Gotha]

на вбруссиан.ком лежал пример А.Оловянникова со сплайном по массиву точек

[uhm]

Рекомендую сначала выполнить код GSergа и посмотреть, не это ли то, что ты хотел...

[SeT]

А что код SERG'а делает? Я ввёл - и тишина...

[SeT]

на вбруссиан.ком лежал пример А.Оловянникова со сплайном по массиву точек

Я уже самому Оловянникову писал по поводу его кода. Ответа не пришло.

[GSerg]

Угу... там же рассчитано на додумывание оставшихся 10%...

[Amed]

SeT, почему бы не почитать доки?

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

Controls.Add "vb.shape", "shp1"
With Controls("shp1")
    .Visible = True
    .Left = 200
    .Top = 200
End With

Выпишите замечание за игнорирование здравого смысла.

[GSerg]

Дык его только сегодня разбанили, и сразу замечание... завтра и выпишем...

[SeT]

Чё-то со всем этим я всё равно не могу понять, как сделать простенький векторный редактор... Чтобы ещё и отмена действий была...

[Gotha]

думай побольше.. залезь на http://planet-source-code.com/vb, поищи там... там куча примеров

[SeT]

Controls.Add "vb.shape", "shp1"
With Controls("shp1")
.Visible = True
.Left = 200
.Top = 200
End With

Спасибо! То, что нужно! Правда я так и не понял как это рботает, но это работает А как тоже самое на пикчербоксе сделать?

[Amed]

Позорище!

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

Controls.Add "vb.shape", "shp1"
With Controls("shp1")
    .Visible = True
    .Left = 200
    .Top = 200
    Set .Container = Picture1
End With

[GSerg]

В связи с чем, перемещаем.

[SeT]

Позорище!

Ой, а я смотрю тут все умные такие собрались....
А как сектор и дугу через фигуру Shape нарисовать???

[hCORe]

Никак! Используй метод Circle.

[SeT]

Никак! Используй метод Circle.

- следовательно выше изложенный код не подходит...