|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.03.2011, 11:45 | #1 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
перебрать все CheckBox
Сделал пингатор сетки, но не получается перебрать все CheckBox. На строчках CheckBox & i.BackColor = &H80FF80 выдает ошибку
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Const PROCESS_QUERY_INFORMATION As Long = &H400 Private Const STILL_ACTIVE As Long = &H103 Private Sub CommandButton1_Click() For i = 0 To 10 If CheckBox & i.Value = True Then pid = Shell("ping " + CheckBox & i.Caption, 0) hProcess = OpenProcess(PROCESS_QUERY_INFORMATI ON, 0, pid) If hProcess <> 0 Then Do GetExitCodeProcess hProcess, exit_code DoEvents Loop Until exit_code <> STILL_ACTIVE CloseHandle hProcess End If If exit_code = 0 Then CheckBox & i.BackColor = &H80FF80 Else CheckBox & i.BackColor = &H8080FF End If End If Next i End Sub |
03.03.2011, 11:57 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Мне кажется, что уже тут должна быть ошибка:
CheckBox & i.Value А я перебирал сегодня так в другой задаче: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 03.03.2011 в 12:09. |
03.03.2011, 12:43 | #3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Здесь есть примеры перебора чекбоксов, если они расположены на листе:
http://excelvba.ru/code/checkboxes А где расположены чекбоксы в вашем случае? На форме? |
03.03.2011, 12:59 | #4 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Не могу проверить, попробуйте записать так
Код:
это работает на форме
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 03.03.2011 в 13:01. |
03.03.2011, 13:00 | #5 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
У меня вот такой тест работает без сбоев.
На листе 2 "CheckBoxN" и 40 "Check Box N" Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 03.03.2011 в 17:15. |
03.03.2011, 13:03 | #6 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Расположены на листе
|
03.03.2011, 13:04 | #7 |
Web-программер
Пользователь
Регистрация: 05.11.2009
Сообщений: 49
|
а мне показалось, что тут при проверка i.BackColor ошибка...
&H80FF80 либо не хватает одно цифры в конце.. либо H - это не составляющая цвета 0123456789ABCDEF не вижу здесь буквы H BackColor скорей всего в hex формате пишется! делайте выводы |
03.03.2011, 13:26 | #8 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Так если для одного CheckBox то работает, получается дело не в цвете. В этих строчках CheckBox & i.BackColor = &H80FF80
Else CheckBox & i.BackColor = &H8080FF ругается на & Последний раз редактировалось Aleksandr; 03.03.2011 в 13:50. |
03.03.2011, 14:19 | #9 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Если нет связи, то медлено пингуется. как увеличить скорость?
|
03.03.2011, 14:37 | #10 |
Пользователь
Регистрация: 04.12.2009
Сообщений: 28
|
Aleksandr.
ну вам же уж указали на ошибки: - надо писать не CheckBox & i.BackColor , а Shapes("Check Box " & i).BackColor - само устанавливаемое значение BackColor вы пытаетесь задать в 16-ричном формате, а такого типа переменных VBA не понимает. 16-ричные значения задавайте если очень нужно через функцию Hex Или если нужно цвет, то через RGB |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как автоматически пометить все checkbox ? | Aelxbor777 | БД в Delphi | 3 | 21.02.2010 00:58 |
Как программно перебрать в цикле все формы в приложении? | chandrasecar | Общие вопросы Delphi | 18 | 11.09.2009 12:14 |
Как перебрать все числа из заданных цифр, чтобы цифры в числах не повторялись? | TwiX | Общие вопросы Delphi | 7 | 17.08.2009 16:56 |
как перебрать все элементы на форме? | Аlex | Общие вопросы C/C++ | 1 | 07.02.2009 03:46 |
перебрать все варианты перестановки строк | sv_mix | Помощь студентам | 2 | 26.07.2008 17:48 |