[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Массивы объектов VB. Создание (Массивы объектов VB. Создание)
Массивы объектов VB. Создание
ilimДата: Пятница, 04.02.2011, 05:29 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Не обязательно ныкать(Visible=FALSE) на форме объекты, и потом их показывать, можно просто на форму кинуть объект, и потом загружать другие, и ставить им свойства. Так вроде проще?
Начнем`с...
На форму кинь кнопку, потом кликни по ней правой кнопой мыши и выбери в меню Copy. Короче копируй кнопу.
Теперь нажми на форму правой кнопой мыши и выбери Paste. Короче вставь кнопку. После нажатия на Paste появляется окошко, жми на Да. Теперь выдели только что вставленную кнопу, и нажми на Del(твоя миссия удалить вставленную кнопу, т.к. на 1 форме нет места двум кнопкам:-)). Теперь код:

Dim t As Long ' Объявляем переменную

Private Sub Command1_Click(Index As Integer)
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 Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Массивы объектов VB. Создание (Массивы объектов VB. Создание)
Страница 1 из 11
Поиск: