Работа с массивом кнопок

[DreamShark]

Делаю крестики-нолики.
Решено, что каждую клетку поля 3х3 будет представлять кнопка.
Естественно для более эффективной работы решил сделать массив кнопок, примерно так:

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

Public Class Form1
    Dim i, j As Byte
    Dim a(3, 3) As Object

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 3
            For j = 1 To 3
                a(i, j) = New Button()
                a(i, j).left = 40 + (j - 1) * 64
                a(i, j).top = 40 + (i - 1) * 64
                a(i, j).width = 64
                a(i, j).height = 64
                Me.Controls.Add(a(i, j))
            Next
        Next
    End Sub

End Class


Но теперь ещё и надо отследивать события(.click) на каждой кнопке, а как это сделать с массивом кнопок я не понимаю...
Подскажите решение этой проблемы. Спасибо!

[FireFenix]

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

Public Class Form1
    Dim i, j As Byte
    Dim a(3, 3) As Button

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 3
            For j = 1 To 3
                a(i, j) = New Button()
                a(i, j).name = "btn_" & i & "_" & j
                a(i, j).left = 40 + (j - 1) * 64
                a(i, j).top = 40 + (i - 1) * 64
                a(i, j).width = 64
                a(i, j).height = 64

                Me.Controls.Add(a(i, j))

                AddHandler a(i, j).Click, AddressOf btn_Click
            Next
        Next
    End Sub

    Public Sub btn_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim Button as Button = DirectCast(sender, Button)

        MsgBox("Я Кнопко! И меня зовут - " & Button.Name)
    End Sub
End Class


[DreamShark]

Огромное спасибо, FireFenix

[DreamShark]

А подскажите как программно менять кнопке шрифт(размер шрифта, начертание, цвет)???
Сколько не пытался - пишет, что "свойство только для читения"...

[MIT]

Не думаю что пишет он именно про "читение" — переводчики студии все-таки имели некоторое представление о правилах русского языка.

Что бы переопределить часть свойства Font придется пересоздать весь объект:

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

SomeButton.Font = New Font(SomeButton.Font, FontStyle.Bold)

[DreamShark]

Не думаю что пишет он именно про "читение" — переводчики студии все-таки имели некоторое представление о правилах русского языка.

У меня англ. версия, так что это мой авторский перевод.

А как изменить размер и имя шрифта я так и не разобрался...

[Dmitriy2003]

А как изменить размер и имя шрифта я так и не разобрался...

Не почтите за личное оскорбление, но теперь мне становиться ясно зачем правительство германии ввело так называемый - ИДИОТЕНТЕСТ

[FireFenix]

http://msdn.microsoft.com/en-us/library ... .font.aspx

перезагрузка

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

Font(FontFamily, Single)   Initializes a new Font using a specified size.

Parameters
family
Type: System.Drawing.FontFamily
The FontFamily of the new Font.
emSize
Type: System.Single
The em-size, in points, of the new font.


Ниочём не говорит?

[DreamShark]

Разобрался, всем спасибо!

[1Steps]

Не почтите за личное оскорбление, но теперь мне становиться ясно зачем правительство германии ввело так называемый - ИДИОТЕНТЕСТ