| Вопрос: Помогите | Добавлено: 30.05.08 15:23 |
Автор вопроса:  Natasha | ICQ: 209576706 |
| Подскажите пожалуйста как прописать в vB, чтоб при проставлении галочки в checkBox отображались другие строчки . А когда галочку убираешь, чтоб они скрывались. Эти строчки, которые должны скрываться тоже содержат checkbox |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  Natasha ICQ: 209576706 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #1 | Добавлено: 30.05.08 17:04 |
|
Private Sub CheckBox48_Click()
If CheckBox48.ListIndex = 0 Then CheckBox29.Visible = False CheckBox30.Visible = False CheckBox49.Visible = False Rows("53:55"  .EntireRow.Hidden = True
Else CheckBox29.Visible = True CheckBox30.Visible = True CheckBox49.Visible = True Rows("53:55" .EntireRow.Hidden = False
End If End Sub Что надо изменить. А то ошибку выдает |
||
|
Номер ответа: 2 Автор ответа: s12 Вопросов: 24 Ответов: 363 |
Профиль | Цитата | #2 | Добавлено: 31.05.08 00:50 |
|
???
ОЙ ржунимагу. телепаты в студию... CheckBox48.ListIndex = 0
Свойство "ListIndex" у чекбокса, это что-то новенькое, если хочется проверить есть ли галка то надо CheckBox48.Value = 0
А вот это. Что это? Rows("53:55" .EntireRow.Hidden = True Что надо изменить. А то ошибку выдает
ВСЕ! ЗЫ: Напиши лучше что за задачу ты делаешь, помогут быстрее. |
||
|
Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #3 | Добавлено: 31.05.08 16:37 |
| угу, а еще лучше условие. | ||
|
Номер ответа: 4 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | Цитата | #4 | Добавлено: 31.05.08 16:41 |
| А на что-то большее чем стёб вы способны? | ||
|
Номер ответа: 5 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 31.05.08 16:48 |
|
Тут человек ничего не понимая пытается что-то сделать, да один уже энтузиазм заслуживает поощрения.
Natasha таким способом ты не добьёшься ничего. Освети всю задачу в целом. Тебе нужен список элементов, каждый из которых можно отметить галоской. И при отметке под ним будет выпадать ещё список и тоже с возможностью отметки галочкой и так далее. |
||
|
Номер ответа: 6 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 31.05.08 16:53 |
|
Rows("53:55"
.EntireRow.Hidden = TrueЭто действительно не похоже на VB, это ближе к VBA, может ты не в тот раздел написала? Эти строчки у тебя в документе? Или где? |
||
|
Номер ответа: 7 Автор ответа: NatashaICQ: 209576706 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #7 | Добавлено: 02.06.08 13:46 |
|
Вот эту строчку я и поменяла If CheckBox48.ListIndex = 0 Then
и все заработало. |
||
|
Номер ответа: 8 Автор ответа: NatashaICQ: 209576706 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #8 | Добавлено: 03.06.08 15:53 |
|
Хотя появился другой вопрос.
Задача. Есть "лист 1" и "Лист 2" На "Лист1" список позиций и Checkbox. ( Точнее напротив каждой позиции Checkbox) на 2 листе тот же самый список Надо сделать так чтобы при проставлении галочки на "Листе1" эта позиция отображалась на "Лист2" А все позиции где галочка не стоит чтоб скрывались |
||
|
Номер ответа: 9 Автор ответа: s12Вопросов: 24 Ответов: 363 |
Профиль | Цитата | #9 | Добавлено: 04.06.08 01:39 |
|
Если я все правильно понял (с чем последнее время проблемы), то вот это должно тебе помочь:
Option Explicit
Private Sub Form_Load() 'заполняем Лист(0) List1(0).AddItem ("qwerty1"
List1(0).AddItem ("qwerty2"
List1(0).AddItem ("qwerty3"
List1(0).AddItem ("qwerty5"
List1(0).AddItem ("qwerty6"
End Sub Private Sub List1_Click(Index As Integer) If Index = 0 Then 'Клик по Лист(0) List1(1).AddItem List1(0).List(List1(0).ListIndex) Else 'Клик по Лист(1) List1(1).RemoveItem List1(1).ListIndex End If End Sub |
||
|
Номер ответа: 10 Автор ответа: s12Вопросов: 24 Ответов: 363 |
Профиль | Цитата | #10 | Добавлено: 04.06.08 01:41 |
| Пояснение: List1 - коллекция из двух листбоксов | ||
|
Номер ответа: 11 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #11 | Добавлено: 04.06.08 02:36 |
| (Лист1 и Лист2, а ведь реально так называют контролы! замкчаешься раскладку переключать) | ||
|
Номер ответа: 12 Автор ответа: NatashaICQ: 209576706 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #12 | Добавлено: 04.06.08 11:25 |
| хм....понятно...точнее ничего не понятно(((( | ||
|
Номер ответа: 13 Автор ответа: s12Вопросов: 24 Ответов: 363 |
Профиль | Цитата | #13 | Добавлено: 05.06.08 10:18 |
|
хм....понятно...точнее ничего не понятно((((
Ну че тут нипонятного??? Берешь форму рисуешь на ней листбокс, выделяешь его, нажимаешь CTRL+C, а потом CTRL+V, открываешь редактор кода и всавляешь туда пример, ФСЕ! |
||
|
Номер ответа: 14 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | Цитата | #14 | Добавлено: 05.06.08 10:20 |
| Плавали, знаем, в VBA контролы не индексируются в массив. | ||
Страница: 1 |