Visual Basic 6 - [54] :: Прикладное программирование

Цитата:

Этот пример демонстрирует, как имея два элемента управления OptionButton, добавить новый элемент OptionButton на форму каждый раз при каждом щелчке элемента управления CommandButton. Кроме того, при щелчке элемента CommandButton устанавливается значение свойства FillStyle и рисуется новый круг. Чтобы опробовать этот пример, добавьте код в область объявления переменных для формы, которая имеет два элемента управления OptionButton, элемент управления CommandButton и элемент управления PictureBox большого размера. Установите значение optButton свойства Name для двух элементов управления OptionButton, чтобы образовать массив элементов управления.

Код:

Private Sub OptButton_Click (Index As Integer)
    Dim H, W    ' Объявляем переменные.
    Picture1.Cls    ' Clear picture.
    Picture1.FillStyle = Index    ' Устанавливаем свойство FillStyle.
    W = Picture1.ScaleWidth / 2    ' Получаем размер круга.
    H = Picture1.ScaleHeight / 2
    Picture1.Circle (W, H), W / 2    ' Рисуем круг.
End Sub

Private Sub Command1_Click ()
    Static MaxIdx    ' Наибольший индекс в массиве.
    If MaxIdx = 0 Then MaxIdx = 1    ' Переустанавливаем MaxIdx.

MaxIdx = MaxIdx + 1    ' Увеличиваем индекс.
    If MaxIdx > 7 Then Exit Sub    ' Помещаем на форме восемь кнопок.
    Load OptButton(MaxIdx)    ' Образуем новый элемент в массиве.
    ' Устанавливаем положение нового переключателя опций под предидущей кнопкой.
    OptButton(MaxIdx).Top = OptButton(MaxIdx - 1).Top + 360
    OptButton(MaxIdx).Visible = True    ' Делаем новую кнопку видимой.
End Sub

----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам!

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению