ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цикл for для checkbox'ов
25 сообщений из 53, страница 1 из 3
  1  все
Цикл for для checkbox'ов
    #34628163
Почти Лузер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почти Лузер
Гость
Здрасти всем. Нужна помощь в след. вопросе: у меня в экселе 250 checkbox'ов и надо сделать цикл такого вида:
for i=1 to 250
checkbox i . visible=false
next i
Проблема заключается в том, что система не понимает, что такое checkbox i.
Помогите плиззз.
...
Рейтинг: 0 / 0
29.06.2007, 11:24
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628227
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
массив контролей
...
Рейтинг: 0 / 0
29.06.2007, 11:39
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628263
Почти Лузер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почти Лузер
Гость
Дело в том, что мой ник не случайно Почти Лузер. Объясните по подробнее и желательно с примером пжалста
...
Рейтинг: 0 / 0
29.06.2007, 11:48
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628271
Почти Лузер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почти Лузер
Гость
Дело в том, что мой ник не случайно Почти Лузер. Объясните по подробнее и желательно с примером пжалста
...
Рейтинг: 0 / 0
29.06.2007, 11:49
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628392
Ден Программёр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ден Программёр
Участник
Почти ЛузерДело в том, что мой ник не случайно Почти Лузер. Объясните по подробнее и желательно с примером пжалста

Хоть один честный. Это похвально, но тогда фоту надо было выставить

Ладно, к делу.
Прежде чем помощи просить надо показать свой пример.
Я понял так, что ты умудрился вставить в книгу или лист 250 чекбоксов! эта работа похвальна... для почти лузера...но сделать можно было проще создать массив контролов:

помещаешь один чек и его свойство Индекс делаешь равным хотя бы 0
потом надо создать процедуру вывода 249 оставшихся чексов

и тогда общаться с ними в твоей проце, но немного её изменив

for i=1 to 250
let checkbox( i).visible=false
next i

Надеюсь понятно, а если нет, поищи "массивы контролов"
...
Рейтинг: 0 / 0
29.06.2007, 12:17
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628427
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Ден ПрограммёрЭто похвально, но тогда фоту надо было выставитьАхтунг?

PS: По делу. Дело происходит в экселе, а он не поддерживает массивы контролов. Нужно юзать, если мне ни с кем не изменяет память, коллекцию Shapes. Поиск даст больше, эта тема не раз обсуждалась.
...
Рейтинг: 0 / 0
29.06.2007, 12:24
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628444
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
не знаю как в екселе, попробуй сам преобразовать.

в простом бейсике этоо делается так:

1. НЕ программный способ
создаётся первый чекбокс

в свойстве Index пишется первое значение ( у нас - 1)

создаётся второй чекбокс

в свойстве Index пишется второе значение ( у нас - 2)

и так оставшиеся 248 раз

код:
Код: plaintext
1.
2.
3.
For i =  1  to  250 
Сheckbox(i).Visible = False
Next i
2. Программный способ

создаётся ОДИН чекбокс

в свойстве Index пишется первое значение ( у нас - 1)

код для открытия формы
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Form_Load()
For i =  2  to  250  ' первый элемент есть, начинаем со второго
Load checkbox(i)
checkbox(i).Visible = True
checkbox(i).Left = значение_положения_данного_чекбокса_от_левого_края_формы
checkbox(i).Top = значение_положения_данного_чекбокса_от_верхнего_края_формы
Next i
End Sub

Дальше - как обычно (пишешь где надо):
Код: plaintext
1.
2.
3.
For i =  1  to  250 
Сheckbox(i).Visible = False
Next i
...
Рейтинг: 0 / 0
29.06.2007, 12:29
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628455
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
пока я писакал выяснилось, что массивов то нетути в екселе :) сорри
...
Рейтинг: 0 / 0
29.06.2007, 12:31
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628456
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Насколько я понял речь идет о VBA? Там нет массива чекбоксов, как и любого контрола кажется (точно за все не помню). А выход - коллекция контролов. Примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim x As Object
For Each x In Me.Controls
If TypeName(x) = "CheckBox" Then
x.visible=false
End If
Next x
Не проверял, может и не работает. На ходу пишу.
...
Рейтинг: 0 / 0
29.06.2007, 12:31
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628466
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
да, если чёт непонятно, Лузер, тогда гугли "VB коллекция"
...
Рейтинг: 0 / 0
29.06.2007, 12:34
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628526
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Только вот непонятно. 250 чекбоксов!!! Я бы это принял за психическую атаку и немедленно бы удалил этот файл.
...
Рейтинг: 0 / 0
29.06.2007, 12:49
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628559
Фотография @TM@ROZчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@TM@ROZчег
Участник
AndreyMp...Я бы это принял за психическую атаку...
;)
...
Рейтинг: 0 / 0
29.06.2007, 12:59
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628745
Почти Лузер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почти Лузер
Гость
AndreyMpТолько вот непонятно. 250 чекбоксов!!! Я бы это принял за психическую атаку и немедленно бы удалил этот файл.

Да на самом деле это просто эл. тест.

Кроме этого обнаружил, что в свойсвах чекбоксов не индекса, поэтому ничего не получается, можа есть какие еще варианты?
...
Рейтинг: 0 / 0
29.06.2007, 13:46
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628785
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Для особо одаренных и наблюдательных повторяю еще раз: AntonariyДело происходит в экселе, а он не поддерживает массивы контролов. Нужно юзать, если мне ни с кем не изменяет память, коллекцию Shapes (если они на листе) . Поиск даст больше, эта тема не раз обсуждалась.Если на форме, коллекцию Controls.
...
Рейтинг: 0 / 0
29.06.2007, 13:55
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628865
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Почти Лузер,
если речь об элементах управления, внедрённых в рабочий лист, то код может выглядеть так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub HideEmbeddedCheckboxes()
 Dim oOLEObjs As Excel.OLEObjects
 Dim o As Excel.OLEObject
 Dim i As Long
 Set oOLEObjs = ActiveSheet.OLEObjects
 For i =  1  To  250 
    Set o = oOLEObjs("Checkbox" & i)
    o.Visible = False
 Next i
 Set o = Nothing
 Set oOLEObjs = Nothing
End Sub
...
Рейтинг: 0 / 0
29.06.2007, 14:18
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34628991
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Ну а если на форму, то я чуть ранее писал. Проверил, работает.
...
Рейтинг: 0 / 0
29.06.2007, 14:45
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629286
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
БенедиктПочти Лузер,
если речь об элементах управления, внедрённых в рабочий лист, то код может выглядеть так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub HideEmbeddedCheckboxes()
 Dim oOLEObjs As Excel.OLEObjects
 Dim o As Excel.OLEObject
 Dim i As Long
 Set oOLEObjs = ActiveSheet.OLEObjects
 For i =  1  To  250 
    Set o = oOLEObjs("Checkbox" & i)
    o.Visible = False
 Next i
 Set o = Nothing
 Set oOLEObjs = Nothing
End Sub


Я бы использовал цикл без жестко заданного количества чекбоксов. Я бы также убрал Set o = Nothing, Set oOLEObjs = Nothing, поскольку это излишне:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub HideEmbeddedCheckboxes()
    Dim oOLEObjs As Excel.OLEObjects
    Dim o As Excel.OLEObject
    Dim objWsht As Worksheet
    
    Set objWsht = ThisWorkbook.Worksheets( 1 )
    Set oOLEObjs = ActiveSheet.OLEObjects
    
    For Each o In objWsht.OLEObjects
        o.Visible = Not o.progID = "Forms.CheckBox.1"
    Next o
    
End Sub
...
Рейтинг: 0 / 0
29.06.2007, 16:04
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629317
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Кстати, к сожалению, код Бенедикта не будет работать, если давать индивидуальные имена чекбоксам, что часто ожидается в обычной практике кодирования.

Как вариант для любых OLE objects на листе:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub CommandButton1_Click()
    HideUnhideEmbeddedCheckboxes "Forms.CheckBox.1"
End Sub

Sub HideUnhideEmbeddedCheckboxes(ByVal pstrProgID As String)
    Dim oOLEObjs As Excel.OLEObjects
    Dim o As Excel.OLEObject
    Dim objWsht As Worksheet
    
    Set objWsht = ThisWorkbook.Worksheets( 1 )
    Set oOLEObjs = ActiveSheet.OLEObjects
    
    For Each o In objWsht.OLEObjects
        If o.progID = pstrProgID Then
            o.Visible = Not o.Visible
        End If
    Next o
    
End Sub
...
Рейтинг: 0 / 0
29.06.2007, 16:15
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629321
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Даже короче:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub HideUnhideEmbeddedCheckboxes(ByVal pstrProgID As String)
    Dim oOLEObjs As Excel.OLEObjects
    Dim o As Excel.OLEObject

    Set oOLEObjs = ActiveSheet.OLEObjects
    
    For Each o In oOLEObjs
        If o.progID = pstrProgID Then
            o.Visible = Not o.Visible
        End If
    Next o
    
End Sub
...
Рейтинг: 0 / 0
29.06.2007, 16:17
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629386
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
VladConn,
1) В общем случае надо либо список имён элементов управления хранить, либо как-то признаки принадлежности группе, требующей обработки, им навешивать. Но это [пока для меня] выглядит усложнением задачи (ещё не понятно, правильно ли понятой).
2) Я предпочитаю сравнивать тип через TypeOf ... Is ...: TypeOf o.Object Is MSForms.Checkbox.
3) Set ... = Nothing я бы не убирал. Из педагогических соображений :)
...
Рейтинг: 0 / 0
29.06.2007, 16:35
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629442
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Да, конечно. Группы, тэги и т.п. - ясное дело. Для этого я и использовал ProgID, чтобы указать на такую проблему. Насчет педагогических соображений. Как раз я бы убирал, т.к. это демонстрирует понимание манипулирования памятью в VB6 и раз и навсегда ставит крест на мифах и легендах о Set ... Nothing.

Еще раз о последнем. Я хочу сказать, что использование в данном контексте Set ... Nothing на самом деле ни плохо, ни хорошо. Это чисто вопрос стиля. Тут на самом деле нет смысла спорить. Я сам много лет так делал. Стиль есть стиль. Важно только понимать, что делать это необязательно.

Успехов
...
Рейтинг: 0 / 0
29.06.2007, 16:51
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629480
Ден Программёр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ден Программёр
Участник
VladConnДа, конечно. Группы, тэги и т.п. - ясное дело. Для этого я и использовал ProgID, чтобы указать на такую проблему. Насчет педагогических соображений. Как раз я бы убирал, т.к. это демонстрирует понимание манипулирования памятью в VB6 и раз и навсегда ставит крест на мифах и легендах о Set ... Nothing.

Еще раз о последнем. Я хочу сказать, что использование в данном контексте Set ... Nothing на самом деле ни плохо, ни хорошо. Это чисто вопрос стиля. Тут на самом деле нет смысла спорить. Я сам много лет так делал. Стиль есть стиль. Важно только понимать, что делать это необязательно.

Успехов

А мона вопрос, а если set ...=Nothing'ом я "обнуляю" ненужные в данный момент рекордсеты, это хорошо или плохо?
...
Рейтинг: 0 / 0
29.06.2007, 17:06
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629522
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Если черeз несколько линий кода его исполнение перейдет в другой блок, где ваш рекордсет, видимый только в своем блоке, уже все равно невидим, то можно обойтись без Set ... Nothing. Он умрет и без вашей помощи. Вот в аварийном завершении процедуры я бы предусмотрел Set ... Nothing. Если возникла ошибка, то мне лично будет трудно сказать, что там произойдет с памятью. Т.е.:

On error goto MethodError

.....
....

MethodError:

If Err.Number <> 0 then
....
Set ... Nothing
end if
...
Рейтинг: 0 / 0
29.06.2007, 17:18
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629543
Ден Программёр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ден Программёр
Участник
VladConnЕсли черeз несколько линий кода его исполнение перейдет в другой блок, где ваш рекордсет, видимый только в своем блоке, уже все равно невидим, то можно обойтись без Set ... Nothing. Он умрет и без вашей помощи. Вот в аварийном завершении процедуры я бы предусмотрел Set ... Nothing. Если возникла ошибка, то мне лично будет трудно сказать, что там произойдет с памятью. Т.е.:

On error goto MethodError

.....
....

MethodError:

If Err.Number <> 0 then
....
Set ... Nothing
end if


Мало что понял!!!
У меня несколько глобальных (на уровне формы) рекордсетов. И для экономии памяти и неуменьшения быстродействия операций, если данные из одного рекорда не нужны в данный момент я его обнуляю, и заполняю и работаю с другим, который нужен именно сейчас.
...
Рейтинг: 0 / 0
29.06.2007, 17:27
| Ответить | Цитировать | Написать  
Цикл for для checkbox'ов
    #34629552
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Мои объяснения не затрагивали глобально определенных объектов. Касательно именно рекордсетов: в своей практике мне не приходилось еще сталкиваться с оправданностью их декларирования глобально.
...
Рейтинг: 0 / 0
29.06.2007, 17:32
| Ответить | Цитировать | Написать  
25 сообщений из 53, страница 1 из 3
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цикл for для checkbox'ов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34629386&tid=2163772]:
 0ms
get settings:
 5ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 159ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 75ms
get tp. blocked users:
 1ms
others: 209ms
total:  481ms
созд. / загр.: 481ms
x
x
Закрыть


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