1

Тема: Связь checkbox и combobox

Добрый день! Подскажите пожалуйста как сделать связь между checkbox и combobox. У меня такая задача, когда я ставлю галочку в checkbox (охлаждение111) у меня должно меняться наполнение combobox. Я вроде что-то попытался сделать, в результате получилось так:
Private Sub FillCombos(Optional SetIndices As Boolean = True)
   ComboBox16.Enabled = False
    ComboBox16.Clear
   If охлаждение111 = True Then
   
    ComboBox16.AddItem "В-I"
    ComboBox16.AddItem "В-Ià"
    ComboBox16.AddItem "В-Iá"
    ComboBox16.AddItem "В-II"
    ComboBox16.AddItem "В-IIà"
   
    End If
    If охлаждение111 = False Then
   
   
    ComboBox16.AddItem "Ï-I"
   ComboBox16.AddItem "Ï-II"
   ComboBox16.AddItem "Ï-IIà"
    ComboBox16.AddItem "Ï-III"
    End If
    If SetIndices Then ComboBox16.ListIndex = 1
    ComboBox16.ListRows = ComboBox16.ListCount
    ComboBox16.Enabled = True
End Sub

но у меня срабатывает изменение combobox если только переоткрыть документ, как заставить менять содержимое combobox когда я ставлю галочку в checkbox без переоткрытия???

2

Re: Связь checkbox и combobox

Выложите, пожалуйста, файл Word.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: Связь checkbox и combobox

извиняюсь не комбобокс а optionbutton но на комбобоксе тоже бы хотелось понять. в программировании не силен

4

Re: Связь checkbox и combobox

файл

Post's attachments

Doc113.docm 27.06 Кб, 7 скачиваний с 2016-04-08 

You don't have the permssions to download the attachments of this post.

5

Re: Связь checkbox и combobox

Попробуйте так:

Private Sub взрывоопасная_Click()
    'MsgBox ("Взрывоопасная")
    ComboBox16.Clear
    ComboBox16.AddItem "В-I"
    ComboBox16.AddItem "В-Iа"
    ComboBox16.AddItem "В-Iб"
    ComboBox16.AddItem "В-II"
    ComboBox16.AddItem "В-IIа"
    ComboBox16.ListIndex = 0
    'ComboBox16.Activate
End Sub

Private Sub пожароопасная_Click()
    'MsgBox ("Пожароопасная")
    ComboBox16.Clear
    ComboBox16.AddItem "П-I"
    ComboBox16.AddItem "П-II"
    ComboBox16.AddItem "П-IIа"
    ComboBox16.AddItem "П-III"
    ComboBox16.ListIndex = 0
    'ComboBox16.Activate
End Sub

Все остальное, на мой взгляд, не нужно.
Поэкспериментируйте с ComboBox16.Activate (нужна Вам эта функциональность или нет).

Полученный файл Word прилагаю.

Post's attachments

Doc113-1.docm 24.76 Кб, 3 скачиваний с 2016-04-08 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

6

Re: Связь checkbox и combobox

На мой взгляд, лучше использовать поле со списком (комбобокс) со стрелочкой.
Тогда более понятно, что это именно поле со списком.
В прилагаемом примере этот элемент называется ComboBox1.

Post's attachments

Радиокнопка и комбобокс.docm 26.36 Кб, 2 скачиваний с 2016-04-08 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

7

Re: Связь checkbox и combobox

спасибо большое, то что нужно!!! буду разбираться