Выдиление объектов

[Leo!!!]

Я создал проэкт, на форму кинул три picturebox, запустил проэкт, вопрос: как в запущеном проэкте выделить все два picturebox'а одновреммено, при помощи мышки?

[Jenizix]

Кинул три Пикчера, а выделить нада ВСЕ два???

А как ты представляеш ВЫДЕЛЕНИЕ пикчера?

[Leo!!!]

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

[Jenizix]

Изменит рисунок в пикчербоксе... например под персонажем нарисовать кружок...

[Al Khamid]

[SHURUP]

Вот бросаю примерчик - автору может быть интересен.
(неидеален, но работает)

Хотя мой совет: если делаешь игру - Создавай класс soldat, коллекцию vojsko и работай с ними как с объектами. Ибо иначе запаришься...

[Leo!!!]

А как их выделить обводя мышкой

[SHURUP]

А как насчет слегка подумать...???
Ну ведь тут ничего сложного нет... Ты так никогда не напишешь игру, если не попытаешься разобраться сам. Тем более РПГ или Стратегию.... (надеюсь ты понимаешь о чем я). Лучше начать с чего-то типа ЛАЙН.
И это не издёвка - это совет.
Ну раз начал помагать в теме - то отвечу до конца:

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

'в General Declaration {
Dim startX  As Single, _
    startY  As Single
'}

'в Любом месте из предыдущего аттачмента {
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        DrawStyle = DrawStyleConstants.vbDot
        startX = X
        startY = Y
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Cls
        Line (startX, startY)-(X, Y), , B
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim CX As Single, CY As Single
    If Button = vbLeftButton Then
        For Each Pict In Picture1
            CX = Pict.Left + Pict.Width / 2 'вычисляем соординаты центра
            CY = Pict.Top + Pict.Height / 2
            Pict.Tag = _
                ((CX >= startX And CX <= X) Or _
                (CX <= startX And CX >= X)) And _
                ((CY >= startY And CY <= Y) Or _
                (CY <= startY And CY >= Y))
        Next
    DrawStyle = DrawStyleConstants.vbSolid
    Cls
    RedrawSelect
    End If
End Sub
'}

Выделяет все пиктуресы, центр которых попадает в прямоугольник выделения.
Код не идеален, (такой-же как и в атачменте), но надо иметь совесть и думать самому. И ничего сложного нет - после бутылки пива взял лист бумаги, схематически нарисовал задачу и побырику накалякал код...