Про вырезание

[nik936ta]

Объясните пожалуйста в подробностях как вырезать рисунок из формы. Подскажите пожалуйста?

[A.A.Z.]

Тут чуть ниже абсолютно такая же тема, если там ответы не устраивают - объясни поподробнее, что тебе дано и что надо получить?

[Juriev]

Что имеется в виду - вырезать?
Если удалить фон-картинку формы, то в свойствах формы picture стереть слово (Bitmap).
Если надо обработать картинку, то можно так:

Private Sub Picture1_Click()

Form1.PaintPicture Picture1.Picture, _
0, 0, Form1.ScaleWidth, Form1.ScaleHeight, _
0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

End Sub

Вместо события Picture1_Click() можно кнопкой или менюшкой и т.д.
Ноли-это координаты левого верхнего угла источника и приемника соответсвенно(можно менять на нужные)
ScaleWidth и ScaleHeight можно заменит на цыфры т.е можно взять часть картинки и вставить во весь приемник или всю картинку в часть приемника.

[nik936ta]

Что имеется в виду - вырезать?
Если удалить фон-картинку формы, то в свойствах формы picture стереть слово (Bitmap).
Если надо обработать картинку, то можно так:

Private Sub Picture1_Click()

Form1.PaintPicture Picture1.Picture, _
0, 0, Form1.ScaleWidth, Form1.ScaleHeight, _
0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

End Sub

Вместо события Picture1_Click() можно кнопкой или менюшкой и т.д.
Ноли-это координаты левого верхнего угла источника и приемника соответсвенно(можно менять на нужные)
ScaleWidth и ScaleHeight можно заменит на цыфры т.е можно взять часть картинки и вставить во весь приемник или всю картинку в часть приемника.

Да, я сделал так: вставил PictureBox и в него мою картинку. Вот как раз её-то и надо мне вырезать. Мне говорили, что это как-то берётся цвет и от него вырезается. Кажется в Win API это GetPixel.

[A.A.Z.]

Допустим, у тебя на форме 2 PictureBox'а, в первом - картинка, во втором - то, что должно получится.

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

Private Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean

Sub Form_Load()
Picture1.AutoSize = True
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
End Sub

Sub Picture2_Paint()
DoEvents
TransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbWhite
End Sub

На месте "vbWhite" ставишь цвет, по которому будет "обрезаться" картинка.
Надеюсь, это то, что тебе нужно...