Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не работает optionButton / 10 сообщений из 10, страница 1 из 1
24.09.2010, 13:50
    #36864823
alkont
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
На форме группа из двух переключателей и два фрейма с контролами.
Пишу код
Private Sub UserForm_Activate()
If Me.op_1.Value Then
frame1.Visible = False
Frame2.Visible = True
ElseIf Me.op_2.Value Then
frame2.Visible = False
Frame1.Visible = True
End If
End Sub

Независимо от переключения радиокнопок, отображается только 1 фрейм.
В чем ляп?
...
Рейтинг: 0 / 0
24.09.2010, 14:06
    #36864880
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
Почему выбрано именно это событие?
...
Рейтинг: 0 / 0
24.09.2010, 14:32
    #36864970
alkont
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
Shocker.ProПочему выбрано именно это событие?
Вы имеете в виду активацию формы?
Если да, то при загрузке формы мне нужно радиокнопкой отобразить одну из частей формы. Эти части оформлены фреймами, в каждом свои контролы.
Можете подсказать другой способ - буду признателен.
...
Рейтинг: 0 / 0
24.09.2010, 14:34
    #36864977
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
alkont,

У вас вопрос в том, что при переключении радиокнопок ничего не происходит, если я правильно понял. А почему оно должно происходить, если вы не обрабатываете событие переключения радиокнопок? Или обрабатываете?
...
Рейтинг: 0 / 0
24.09.2010, 15:36
    #36865191
DUDALS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
Судя по коду не обрабатывает.
Используйте события Op_1_Click и Op_1_Click
А проще создать Опты с индексами и использовать так:

Private Sub optBut_Click(Index As Integer)
Select Case Index
Case 0
Frame1.Visible = True
Frame2.Visible = False
Case 1
Frame1.Visible = False
Frame2.Visible = True
End Sub
...
Рейтинг: 0 / 0
24.09.2010, 15:38
    #36865202
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
тогда уж так:
Код: plaintext
1.
2.
3.
Private Sub optBut_Click(Index As Integer)
Frame1.Visible = Index =  0 
Frame2.Visible = Index =  1 
End Sub
...
Рейтинг: 0 / 0
24.09.2010, 15:53
    #36865248
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
У автора VBA, там нет массивов контролов.
...
Рейтинг: 0 / 0
24.09.2010, 15:59
    #36865264
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
AntonariyУ автора VBA, там нет массивов контролов.
В аксессе есть такая штука, как группа опшенов. Они рассматриваются как один объект с единственным Value - очень удобно. Пришлось на VB писать себе такой контрол самому.

Мне показалось, что DUDALS про что-то такое написал, неверно его понял.
...
Рейтинг: 0 / 0
24.09.2010, 18:13
    #36865537
alkont
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
Shocker.Pro,

Спасибо откликнувшимся. Буду пробовать предложенные варианты.
...
Рейтинг: 0 / 0
25.09.2010, 15:43
    #36866136
alkont
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не работает optionButton
Вариант Dudals'a сработал, спасибо.
Может еще поможете? Вопрос см. http://sql.ru/forum/actualthread.aspx?tid=791545
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не работает optionButton / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]