[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Что - то типа практики, ил шаг написанный для большинства (Что - то типа практики, ил шаг написанный для большинства)
Что - то типа практики, ил шаг написанный для большинства
ilimДата: Пятница, 04.02.2011, 05:28 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Ну в этом уроке мы сделаем простенькую программу, по теме создание объектов(массивы). Открой исходник предыдущего шага, и не много до пишем код:

Dim t As Long, S As Long ' Объявляем переменные

Private Sub Command1_Click(Index As Integer)
If S = 0 Then ' Если S = 0 то загружаем кнопки
For i = 1 To 10 ' Делаем цикл от 1 до 10, спросишь почему не от 0 до 10? Да потому что объект с индексом 0 у нас есть, если написать от 0 до 10 то начнет ругаться(материться)
t = t + 500' Каждый цикл прибавляем к переменной t пятихатку, это переменная будет задовать высоту создаваемых кнопок, каждая кнопа на 500 ниже предыдущей
Load Command1(i) ' Загружаем кнопу с именем Command1, а в скобах индекс( i каждый цикл на 1 больше, начинается с 1 до 10)
Command1(i).Caption = "Кнопа №:" & i ' Устанавливаем свойство Caption для каждой кнопки
Command1(i).Top = t' Устанавливаем высоту(t = t + 500)
Command1(i).Left = 1700 ' Устанавливаем свойство Left
Command1(i).Visible = True ' Показываем кнопки, т.к. они в начале скрытые
Next i
End If

If Command1(Index).Index = 0 Then MsgBox "Нажата кнопа 0"' Если Индекс нажатой кнопки равен 0 то сообщаем об этом
If Command1(Index).Index = 1 Then MsgBox "Нажата кнопа 1"
If Command1(Index).Index = 2 Then MsgBox "Нажата кнопа 2"
If Command1(Index).Index = 3 Then MsgBox "Нажата кнопа 3"
If Command1(Index).Index = 4 Then MsgBox "Нажата кнопа 4"
If Command1(Index).Index = 5 Then MsgBox "Нажата кнопа 5"
If Command1(Index).Index = 6 Then MsgBox "Нажата кнопа 6"
If Command1(Index).Index = 7 Then MsgBox "Нажата кнопа 7"
If Command1(Index).Index = 8 Then MsgBox "Нажата кнопа 8"
If Command1(Index).Index = 9 Then MsgBox "Нажата кнопа 9"
If Command1(Index).Index = 10 Then MsgBox "Нажата кнопа 10"

S = 1 ' S = 1, это для того чтоб при нажатии на кнопку не происходили ошибки, т.к. начнут создаваться кнопки, а они уже есть, и VB ругаться начинает
End Sub

Private Sub Form_Load()
S = 0
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Что - то типа практики, ил шаг написанный для большинства (Что - то типа практики, ил шаг написанный для большинства)
Страница 1 из 11
Поиск: