Рисование _закрашенных_ треугольников и координаты клика.

[TAlex]

Всем привет.
1. Есть двумерный массив, каждый элемент которого необходимо отобразить графически: 0-белый квадрат, 1-черный, 2-треугольник слева внизу, 3-треугольник справа внизу и т.д. Начал рисовать на PictureBox все получается кроме закрашивания треугольников ;( И не могу найти как это обойти. Скорее всего нужно рисовать как-то по-другому.

2. После отрисовки по событию "клик мыши" нужно взять координаты клика и сопоставить их с элементом массива.

Заранее спасибо всем откликнувшимся.

[Александр Андреев]

Мил человек, а как ты закрашиваешь-то?
Кусочек кода или что-нибудь такое предоставь, чтобы разобраться можно было.

[TAlex]

В том то и дело, что не знаю как закрасить!
При рисовании прямоугольника можно сразу его закрасить: LINE с опцией BF.

А вообще-то думаю, что треугольник нарисованный с помощью LINE закрасить нельзя. Вот и спрашиваю как можно решить поставленную задачу, не приводя своих методов.

[Александр Андреев]

Есть вот такие функции:

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

Public Declare Function FillRect Lib "user32" Alias "FillRect" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long

Public Declare Function FillRgn Lib "gdi32" Alias "FillRgn" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long

Первая закрашивает прямоугольник. Вторая посложнее - закрашивает область. Подробное описание есть в МСДН.

[cg_ck]

Галимый совет:
Не помню как, но можно было закрашивать замкнутые фигуры без всяких апи... Если не кто не ответит до завтра, сам отвечу, в книге посмотрю

[GSerg]

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

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

Option Explicit

Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Declare Function PolyPolygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Sub Form_Paint()
  Dim pts(0 To 2) As POINTAPI
  Dim numpoints(0 To 0) As Long
  Dim BrushHandle As Long
 
  pts(0).x = 100: pts(0).y = 0
  pts(1).x = 50: pts(1).y = 100
  pts(2).x = 150: pts(2).y = 100
  numpoints(0) = 3
 
  Me.ForeColor = &HFF00FF
  BrushHandle = CreateSolidBrush(&H346712)
  SelectObject Me.hdc, BrushHandle
  PolyPolygon Me.hdc, pts(0), numpoints(0), 1
  DeleteObject BrushHandle
End Sub

Form.AutoRedraw должно быть False!

[cg_ck]

сори, я поспешил с ответом... Просто у меня это глубоко село в памяти из qBasica. Ничего подобного в Визуале я вчера найти не успел и вариант и КуВасика проверить не успел... Может кто сделает это за меня? Цитирую книжку:

PAINT - оператор
Заполняет графическую область указанным цветом или образцом.
Формат записи:
PAINT [STEP] (x!,y!) [, [{цвет% | образец%}] [, [цвет_границ%] [,фон$]]]
где:
STEP указывает. что координаты задаются относительно текущей графической позиции курсора. и т.д. и т.п.

[corgi]

paint в vb отсутствует насколько я помню

[TAlex]

Да-а-а-а... Ничего себе как мудрено... А может все-таки есть вариант попроще? Я попробую и эти, но...

А второй пункт вопроса с координатами клика?

[GSerg]

Paint действительно отсутствует в VB.

А с кликом всё ещё сложнее (хотя пока всё несложно ) Придётся хитрыми вычисления заниматься из области планиметрии...

[alibek]

Есть API-функция FloodFill(hDC, X, Y, crColor) закрашивает область, ограниченную другими цветами. Практически тот же Paint

[TAlex]

Ну а все-таки как с кликом быть? Или вообще может не рисовать надо а в какую-нибудь MSFlexGrid али еще куда-нить это все сделать. С закрашенными-незакрашенными ячейками все просто (и с кликом заморачиваться не надо - там возвращается номер кликнутой ячейки), а что придумать с треугольником?

[SergeySV]

Ну а все-таки как с кликом быть? Или вообще может не рисовать надо а в какую-нибудь MSFlexGrid али еще куда-нить это все сделать. С закрашенными-незакрашенными ячейками все просто (и с кликом заморачиваться не надо - там возвращается номер кликнутой ячейки), а что придумать с треугольником?

Посмотри здесь, по мойму по твоей тематике:
http://vbstreets.ru/default.asp?page=li ... =vectorvb1
http://vbstreets.ru/default.asp?page=li ... =vectorvb2