Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
Tsvet
3 / 3 / 0
Регистрация: 08.09.2011
Сообщений: 111
1

Как одновременно поменять свойство value у checkbox с true на false для всех checkbox-ов, находящихся на одном листе?

07.06.2006, 20:41. Просмотров 2669. Ответов 3
Метки нет (Все метки)

Всем добрый день!
Подскажите, пожалуйста, как одновременно поменять свойство value у checkbox с true на false для всех checkbox-ов, находящихся на одном листе?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2006, 20:41
Ответы с готовыми решениями:

Нужно, чтобы при checkbox.checked=true я мог набирать текст в textbox-е, ну и соответственно при checkbox.checked=false - нет.
есть checkbox и textbox. Нужно, чтобы при checkbox.checked=true я мог набирать текст в textbox-е,...

Запутался в CheckBox с true and false
Не работает этот код, что нужно исправить ? void __fastcall TFormOptions::CheckBox2Click(TObject...

Отправление true/false от checkbox
Как отправить cheked/uncheked к себе для дальнейшей обработки. Укажите пожалуйста простейший...

Массив true/false из нескольких checkbox
есть форма <form name="langCheckBox"> <label class="checkLang" for="ru"> ...

Запись значений checkbox (true/false) в БД
Здравствуйте, необходимо записать в БД значение выбран ли checkbox или нет,у меня почему то...

3
vlth
12 / 12 / 2
Регистрация: 23.03.2010
Сообщений: 635
07.06.2006, 21:29 2
Одновременно - не знаю - последовательно ():
Visual Basic
1
2
3
4
Dim objChBox As OLEObject
For Each objChBox In Worksheets("Имя").OLEObjects
    If objChBox.progID Like "Forms.CheckBox.#" Then objChBox.Object = False
Next
0
VladConn
3 / 3 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
07.06.2006, 21:33 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub SetCheckBoxes(ByVal pstrSheetName As String, _
                                         ByVal pblnValue As Boolean)
 
    Dim objShape As Shape
    For Each objShape In Sheets(pstrSheetName).Shapes
        With objShape
          If .Type = msoOLEControlObject Then
                If Split(.OLEFormat.progID, ".")(1) = "CheckBox" Then
                        .OLEFormat.Object.Object = pblnValue
                End If
          End If
        End With
    Next objShape
 
 
Private Sub CommandButton1_Click()
    SetCheckBoxes ActiveSheet.Name, True
End Sub

VladConn
0
Tsvet
3 / 3 / 0
Регистрация: 08.09.2011
Сообщений: 111
08.06.2006, 11:48  [ТС] 4
понятно, что последовательно :-)
Большое спасибо, работает как часы!
0
08.06.2006, 11:48
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.06.2006, 11:48

Как програмным путем поменять свойство Button: Visible с True на False?
Здраствуйте подскажите плиз как с програмным путем поменять свойство Button: Visible с True на...

Изменить вид CheckBox'a в TreeView: True, False, Промежуточный
В TreeView есть узел со вложенными узлами. Как сделать, чтоб при выделении дочерних узлов менялся...

CheckBox в sql-запросе. Вытащить данные, и проставить для всех них признак = true
Подскажите, пожалуйста, можно ли запросом вывести checkbox? Запрос: вытащить данные, и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.