Типа Paint'a

[SeT]

Делаю графопостроитель, который должен работать по принципу Paint'a (теже инструменты). У меня несколько вопросов:
Как сделать, что бы по пикчербоксу можно было перемещать перекрестие линий (для сверки координат0, чтобы эти линии не оставляли следов на пикчербоксе?
Как сохранить в картинку не весь пикчербокс а н.р. его какую-то часть?
Помогите, плииииз...

[GSerg]

1. Курсор такой поставь.
2. bitblt и сохранить.

[SeT]

не, курсор не подойдёт. нужно чтобы линии по всей длине были, до осей координат

[tyomitch]

не, курсор не подойдёт. нужно чтобы линии по всей длине были, до осей координат

Рисунок храни в свойстве Picture, поверх него рисуй линии. Когда потом вызовешь Cls -- рисунок останется, а линии сотрутся.

[BV]

Могу предложить:

а) подождать и присоединиться к развитию редактора AltPaint
б) http://www.google.com/search?client=ope ... 8&oe=utf-8

[SeT]

А как рисунок сохранить с Picture? Я ж на нём гафик строю. линии графика должны оставаться, а вот линии так сказать наводки оставаться не должны...

[BV]

Ну ёклмн...

Ты мой пост читал? По ссылке ходил? VB Paint (исходники полноценного граф. редактора) смотрел?

[SeT]

Ты их сам смотрел? Нафига мне такая сложность! попробуй сам разберись в этом коде.

[BV]

Всё ясно, в игнор.

[tyomitch]

А как рисунок сохранить с Picture?

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

Me.Picture = Me.Image

[SeT]

Спасибо

[Andrey Fedorov]

Как сделать, что бы по пикчербоксу можно было перемещать перекрестие линий (для сверки координат0, чтобы эти линии не оставляли следов на пикчербоксе?

Тут все примитивно - возьми два контрола Line (горизонтальную и вертикальную), положи их на свой рисунок и перемещай сколько хочешь.

[Бяка]

по вопросу 1 кидаеш Line2 и Line1 на Picture1 и Text1 и TextRGB(Text2)
и вот этот код который я только что аж 5минут писал

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

Private Sub coord(x As Single, y As Single, Visib As Boolean)
Dim Pixel As Long, RCoord As Long, GCoord As Long, BCoord As Long
Line1.Visible = Visib
Line2.Visible = Visib
'это линии
Line1.x1 = Picture1.ScaleLeft
Line1.x2 = Picture1.ScaleWidth
Line1.y1 = y
Line1.y2 = y
Line2.y1 = Picture1.ScaleHeight
Line2.y2 = Picture1.ScaleTop
Line2.x1 = x
Line2.x2 = x
Text1.Text = CStr(Fix(x)) & "," & CStr(Fix(y)) ' это координаты
Pixel = Picture1.Point(x, y)
RCoord = Pixel Mod 256
GCoord = ((Pixel And &HFF00) / 256) Mod 256
BCoord = (Pixel And &HFF00) \ 256 \ 256
TextRGB.Text = CStr((RCoord)) & "," & CStr((GCoord)) & "," & CStr((BCoord)) ' это цвет тоцки под курсором
End Sub

А как рисунок сохранить с Picture?

куда?
если на диск как бмп то вот

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

Call SavePicture(Picture1.Image, "c:\голая тётка.bmp")

если просто изменения в пикчурсе то

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

Picture1=Picture1.Image

Как сохранить в картинку не весь пикчербокс а н.р. его какую-то часть?

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

BitBlt Picture1.hDc, CoordLeft, CoorTop, CoorW, CoorH, Picture2.hDc, 0, 0, vbSrcCopy ' где CoordLeft, CoorTop, CoorW, CoorH это координаты куска рисунка
Call SavePicture(Picture2.Image, "c:\сиська.bmp")