Конференция VBStreets

**Zoomie** » 30.10.2005 (Вс) 22:51

Вопрос: как реализовать в VB функцию PAINT QBasicа. :?:

**tyomitch** » 30.10.2005 (Вс) 23:05

API FloodFill

**Zoomie** » 30.10.2005 (Вс) 23:35

Хорошо.

Только почемуто не зополняется :cry:

См код:

Код: Выделить всё: Private Sub Form_Load() Picture1.Line (300, 300)-(900, 600), vbBlue, B Form1.Caption = FloodFill(Picture1.hdc, 400, 400, vbBlue) Picture1.Refresh End Sub

**tyomitch** » 30.10.2005 (Вс) 23:42

Код: Выделить всё: Picture1.AutoRedraw = True

**Zoomie** » 30.10.2005 (Вс) 23:43

Стоит! И ни чего... :cry:

**Amed** » 31.10.2005 (Пн) 10:19

FloodFill объявлен правильно? Код в студию.

**GSerg** » 31.10.2005 (Пн) 13:05

FloodFill заполняет текущей кистью.
Текущая кисть - это задний фон.

**Zoomie** » 31.10.2005 (Пн) 16:38

Amed писал(а):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 Private Sub Form_Load() Picture1.AutoRedraw = True Picture1.BackColor = vbWhite Picture1.Line (0, 0)-(800, 800), vbBlue, BF Picture1.Line (100, 100)-(600, 600), vbRed, BF Form1.Caption = FloodFill(Picture1.hdc, 400, 400, vbBlue) End Sub

GSerg, нужно создавать кисть?

**GSerg** » 31.10.2005 (Пн) 16:47

Да.

**Zoomie** » 31.10.2005 (Пн) 16:49

А не под скажешь кодик с комментариями?

**GSerg** » 31.10.2005 (Пн) 16:52

http://bbs.vbstreets.ru/viewtopic.php?t=11721

**Zoomie** » 31.10.2005 (Пн) 17:05

Спасибо, позже посмотрю!

**tyomitch** » 31.10.2005 (Пн) 19:48

Zoomie писал(а):
Amed писал(а):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 Private Sub Form_Load() Picture1.AutoRedraw = True Picture1.BackColor = vbWhite Picture1.Line (0, 0)-(800, 800), vbBlue, BF Picture1.Line (100, 100)-(600, 600), vbRed, BF Form1.Caption = FloodFill(Picture1.hdc, 400, 400, vbBlue) End Sub

Найди 10 отличий.

Код: Выделить всё: Option Explicit Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Private Sub Form_Load() Picture1.AutoRedraw = True Picture1.BackColor = vbWhite Picture1.Line (0, 0)-(800, 800), vbBlue, BF Picture1.Line (100, 100)-(600, 600), vbRed, BF Picture1.FillStyle = vbFSSolid Picture1.FillColor = vbYellow Form1.Caption = FloodFill(Picture1.hdc, 27, 27, vbBlue) End Sub

Zoomie писал(а):GSerg, нужно создавать кисть?

Нет.

**GSerg** » 31.10.2005 (Пн) 19:54

Аааа, FillStyle я поставить забыл...
Но кисть всё равно рулит

**Zoomie** » 31.10.2005 (Пн) 22:26

GSerg! Да ты фокусник! Большое спасибо!

Мда а отличай тут... э... 4. :mrgreen:

Конференция VBStreets

Функция QBasica - PAINT

Функция QBasica - PAINT

Кто сейчас на конференции