Кто знает как правильно пользоваться функцией FloodFill? Она вроде всё заливает нормально только вот почему когда сохраняешь залитый рисунок на нём заливки не видно?
Я пишу так:
Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
а потом так :
FloodFill Picture1.hdc, X, Y, vbRed

| Сообщение посчитали полезным:

Потому что в VB есть Picture и есть Image. Это два разных свойства PictureBox. Ты видимо сохраняешь нето.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

| Сообщение посчитали полезным:

Вобщем дело такое: когда в объекте Picture свойство AutoRedraw=true то рисунок сохраняется нормально а заливка не работает. Когда AutoRedraw=false то заливка работает нормально но рисунок сохраняется как белый лист.
Может это глюк в самом VB?

| Сообщение посчитали полезным:

vitalya2903

А что мешает делать заливку средствами VB? Например:

Picture1.DrawWidth = 10000
Picture1.PSet (100, 100)

Перед этим сделай AutoRedraw=True

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

| Сообщение посчитали полезным:

GPcH пишет:
А что мешает делать заливку средствами VB? Например:

Picture1.DrawWidth = 10000
Picture1.PSet (100, 100)
Да нет, этож совсем другое. То что ты написал это просто жирная точка на всю Picture. А FloodFill используется для заливки области ограниченной определенным цветом, так сказать корявой области. Ну прям как в Paint, нарисовал какой-то корявый круг и залил его.

| Сообщение посчитали полезным:

Вот ответ:

forum.codenet.ru/showthread.php?t=11046

Если же нужно заполнить стандартный объект то используй код:

loc_404862: Me.ForeColor = RGB(CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))))
loc_4048C4: Me.FillColor = RGB(CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))))
loc_4048D5: Me.FillStyle = &H0
loc_404953: Me.Circle ((Rnd(Date) * CDbl(&H64)), (Rnd(Date) * CDbl(&H64))), (Rnd(Date) * CDbl(&H1E)), &H0

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

| Сообщение посчитали полезным:

vitalya2903
Когда AutoRedraw=false то заливка работает нормально но рисунок сохраняется как белый лист.

Если ты сохраняешь рисунок через SavePicture, то нужно поставить AutoRedraw=true и передавать Image:
SavePicture pictureBox.Image, "c:\file.bmp"

когда в объекте Picture свойство AutoRedraw=true то рисунок сохраняется нормально а заливка не работает

У меня работает, попробуй вызвать после рисования Refresh на PictureBox. Если не поможет, покажи код.

| Сообщение посчитали полезным:

Stiver пишет:
попробуй вызвать после рисования Refresh на PictureBox
Ух ты... Большое спасибо, реально помогло, теперь всё нормально заливается и сохраняется.

| Сообщение посчитали полезным:

GPcH пишет:
loc_404862: Me.ForeColor = RGB(CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))))
loc_4048C4: Me.FillColor = RGB(CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))), CInt((Rnd(Date) * CDbl(255))))
loc_4048D5: Me.FillStyle = &H0
loc_404953: Me.Circle ((Rnd(Date) * CDbl(&H64)), (Rnd(Date) * CDbl(&H64))), (Rnd(Date) * CDbl(&H1E)), &H0

Спасибо, в быту пригодится

Закрываю тему

| Сообщение посчитали полезным: