Visual Basic FAQ

Как сделать массив кнопок?

Чтобы по нажатию ALT + Цифра, происходило событие Click выбранной кнопки.
На форме создайте 1 кнопку, скопируйте в буфер вставьте.
Basic спросит – создать массив или нет? Отвечаем, Да.
Создаем 10 кнопок, от 0 до 9.
Свойство Caption у всех очищаем.

Option Explicit
Dim i As Byte

Public Sub Rename(Index As Byte)
Label1.Caption = "Кнопка: " & Index
End Sub

Private Sub Command1_Click(Index As Integer)
Rename (Index)
End Sub

Private Sub Form_Load()
For i = 0 To 9
    Command1(i).Caption = "&" & Trim(Str(i))
Next
Label1.Caption = "Нажмите на любую кнопку"
End Sub

Запись опубликована on 09.02.2009 at 9:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.