powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не работает optionButton
10 сообщений из 10, страница 1 из 1
не работает optionButton
    #36864823
alkont
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
На форме группа из двух переключателей и два фрейма с контролами.
Пишу код
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
не работает optionButton
    #36864880
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почему выбрано именно это событие?
...
Рейтинг: 0 / 0
не работает optionButton
    #36864970
alkont
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.ProПочему выбрано именно это событие?
Вы имеете в виду активацию формы?
Если да, то при загрузке формы мне нужно радиокнопкой отобразить одну из частей формы. Эти части оформлены фреймами, в каждом свои контролы.
Можете подсказать другой способ - буду признателен.
...
Рейтинг: 0 / 0
не работает optionButton
    #36864977
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alkont,

У вас вопрос в том, что при переключении радиокнопок ничего не происходит, если я правильно понял. А почему оно должно происходить, если вы не обрабатываете событие переключения радиокнопок? Или обрабатываете?
...
Рейтинг: 0 / 0
не работает optionButton
    #36865191
DUDALS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Судя по коду не обрабатывает.
Используйте события 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
не работает optionButton
    #36865202
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тогда уж так:
Код: plaintext
1.
2.
3.
Private Sub optBut_Click(Index As Integer)
Frame1.Visible = Index =  0 
Frame2.Visible = Index =  1 
End Sub
...
Рейтинг: 0 / 0
не работает optionButton
    #36865248
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У автора VBA, там нет массивов контролов.
...
Рейтинг: 0 / 0
не работает optionButton
    #36865264
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyУ автора VBA, там нет массивов контролов.
В аксессе есть такая штука, как группа опшенов. Они рассматриваются как один объект с единственным Value - очень удобно. Пришлось на VB писать себе такой контрол самому.

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

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


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