Работа с векторным изображением в VB

[XairOn]

Здравствуйте. Вопрос мой наверное не нов, но я так нигде и не смог ниайти на него ответа. Какие средства есть в VB для работы с веткорным изображением. Допустим у меня на форме есть два объекта (скажем, два квадрата) по щелчку на один из них, он должен выделяться другим цветом, а потом прога должна выдать MsgBox с номером квадрата по которому щелкнули (1 или 2). Подскажите, как это сделать???

[tyomitch]

Руками, через FillRect и PtInRect

[KDima]

Клик по квадрату тока через MouseDown
Фигуры и Линии в VB не имеют ивентов, особенно нарисованные на форме

[KDima]

Спешал фо ю накорябал экземпл проджект.
Лови!
http://myksoft.narod.ru/VectDraw.rar

[XairOn]

Руками, через FillRect и PtInRect

Насчет FillRect у меня была мысль, но в PtInRect мне ничего неизвестно, ни размеров прямоугольника, ни его координат, что бы проверить принадлежит ли точка в которую ткнул пользователь, этому прямоугольнику Вот если бы можно было это определить (принадлежность точки прямоугольнику) было бы граздо легче. Но увы...

Фигуры и Линии в VB не имеют ивентов, особенно нарисованные на форме

Вот "особенно" мне больше всего понравилось - а что остальные имеют???

Спасибо тебе за "экземпл проджект", но это не то что нужно, ты видать не так понял. Прямоугольник нарисовать несложно (ты там кстати, что-то перемудрил малость). Так вот рисовать его не надо (он уже есть), нужно определить, что клик был именно внутри данного прямоугольника и вывести в зависимости от этого сообщение (если к примеру на форме 2 прямоугольника, юзер тыкнул по второму - он должен закраситься и сообщить, что это именно прямоугольник №2).

[A.A.Z.]

А ты прямоугольник рисуешь через "Line(,)-(,), B", или это Shape? Или через API?

[XairOn]

А ты прямоугольник рисуешь через "Line(,)-(,), B", или это Shape? Или через API?

Это Shape

[tyomitch]

XairOn, лови пример:

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

Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal ptx As Long, ByVal pty 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

Dim Rects(1 To 2) As RECT

Private Sub Form_Load()
SetRect Rects(1), 0, 0, 100, 100
SetRect Rects(2), 50, 50, 150, 150
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long, hbr As Long
X = ScaleX(X, ScaleMode, vbPixels)
Y = ScaleY(Y, ScaleMode, vbPixels)
For i = LBound(Rects) To UBound(Rects)
    If PtInRect(Rects(i), X, Y) Then
        hbr = CreateSolidBrush(QBColor(i))
        FillRect hdc, Rects(i), hbr
        DeleteObject hbr
        Caption = i
    End If
Next
End Sub

Private Sub Form_Paint()
Dim i As Long, hbr As Long
For i = LBound(Rects) To UBound(Rects)
    hbr = CreateSolidBrush(QBColor(i))
    FillRect hdc, Rects(i), hbr
    DeleteObject hbr
Next
End Sub


Число прямоугольников можешь наращивать по вкусу.


Если надо, чтобы были именно Shape, то формируй массив Rects при заходе в Form_MouseDown.

[KDima]

Фигуры и Линии в VB не имеют ивентов, особенно нарисованные на форме

Вот "особенно" мне больше всего понравилось - а что остальные имеют???

Там был еще

Спасибо тебе за "экземпл проджект",

Незахто.

ты видать не так понял

Да...

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

(ты там кстати, что-то перемудрил малость)

Код не для прямоугольников.... разве для прозрачных (выбирать их надо за границу)

[A.A.Z.]

Shape??? Так тогда ж тебе его координаты известны!

[ALX_2002]

Мда... А вообще хотелось бы заюзать библиотеки OFFICE для этих целей.....

Удобный инструмент, но как до него добраться.....