Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2017, 17:01   #1
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию VBA.Полоса прокрутки

Разработайте пользовательские формы, в которых в качестве элемента управления для выбора типа решаемой задачи используется полоса прокрутки. Добавьте в форму кнопку Выход

Собственно,код уже есть.

Как реализовать полосу прокрутки,чтобы в крайнем левом положении для пользователя отображались 2 кнопки : Ввести x и Вести y , во втором положении - Вычислить значение f1,в третьем - f2 ,в крайне правом - f3. Собственно,сложность в том,как сделать,чтобы нужные кнопки появлялись в соотвественном положении и их не было в других?.Так же в каждом положении сделать кнопку выход (Mеню.Hide )
Изображения
Тип файла: png Screenshot_1 (1).png (21.5 Кб, 56 просмотров)
Вложения
Тип файла: rar Задание6.rar (23.3 Кб, 7 просмотров)
furymaxim вне форума Ответить с цитированием
Старый 01.12.2017, 21:03   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Private Sub ScrollBar1_Change()
    hideme
    If ScrollBar1.Value = 0 Then
        xvvod.Visible = True
        yvvod.Visible = True
    ElseIf ScrollBar1 = 1 Then
        f1.Visible = True
    ElseIf ScrollBar1 = 2 Then
        f2.Visible = True
    ElseIf ScrollBar1 = 3 Then
        f3.Visible = True
    End If
End Sub
Private Sub hideme()
    xvvod.Visible = False
    yvvod.Visible = False
    f1.Visible = False
    f2.Visible = False
    f3.Visible = False
    
End Sub
Private Sub UserForm_Initialize()
    hideme
    ScrollBar1.Value = 0
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 01.12.2017, 22:33   #3
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Код:
Private Sub ScrollBar1_Change()
    hideme
    If ScrollBar1.Value = 0 Then
        xvvod.Visible = True
        yvvod.Visible = True
    ElseIf ScrollBar1 = 1 Then
        f1.Visible = True
    ElseIf ScrollBar1 = 2 Then
        f2.Visible = True
    ElseIf ScrollBar1 = 3 Then
        f3.Visible = True
    End If
End Sub
Private Sub hideme()
    xvvod.Visible = False
    yvvod.Visible = False
    f1.Visible = False
    f2.Visible = False
    f3.Visible = False
    
End Sub
Private Sub UserForm_Initialize()
    hideme
    ScrollBar1.Value = 0
End Sub
Спасибо!!
furymaxim вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Полоса прокрутки RAFA91 Win Api 7 24.03.2016 14:47
Полоса прокрутки Ванир Win Api 1 03.04.2013 22:02
Полоса прокрутки Gamst HTML и CSS 2 06.06.2010 20:24
Полоса прокрутки на форме segail Microsoft Office Excel 9 19.09.2009 19:29
Полоса прокрутки в WebBrowser JakSon Работа с сетью в Delphi 8 06.11.2008 00:37