|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.03.2011, 14:55 | #11 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Сделал , но все равно не работает.
Код:
|
03.03.2011, 15:03 | #12 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Я сделал так
Код:
Последний раз редактировалось Aleksandr; 03.03.2011 в 15:12. |
03.03.2011, 15:25 | #13 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Выдает ошибку Next without For
|
03.03.2011, 15:55 | #14 |
Пользователь
Регистрация: 04.12.2009
Сообщений: 28
|
Блин, не люблю я без Option Explicit работать...
Фиг найдёшь, что Ёксельский бэйсик там себе напридумывал если переменные не объявлены... Но сразу бросается в глаза вот что: Как у вас чекбоксы названы? Я так понимаю, что CheckBox1 ... CheckBox8 ? а кодом вы пытаетесь обращаться к CheckBox 1 ... CheckBox 8 (там пробел лишний перед закрывающей кавычкой стоит: написано "CheckBox " & i а должно быть "CheckBox" & i Это я сам проглядел - скопировал выражение из первого поста Hugo121, а пробела не увидал. Последний раз редактировалось Alex_ST; 03.03.2011 в 15:59. |
03.03.2011, 16:08 | #15 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Описал переменную
Option Explicit Dim i As Integer Все равно не работает Выдает Переменная pid не определена Последний раз редактировалось Aleksandr; 03.03.2011 в 16:13. |
03.03.2011, 16:18 | #16 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Да, у меня там и такие чекбоксы были. И никогда с 0 они не начинались! Хотя вероятно вручную можно и обозвать...
А pid'а определите
webmoney: E265281470651 Z422237915069 R418926282008
|
03.03.2011, 16:20 | #17 |
Пользователь
Регистрация: 04.12.2009
Сообщений: 28
|
Option Explicit надеюсь в декларациях модуля?
И ваша программа не ругается на неназначенные переменные pid, hProcess и прочее? Такого быть не может! Или у вас эти переменные определены как глобальные? Хоть на какой строке вылетает? Вообще не хочет запускаться что ли? Говорит "Next without For"? Тогда заремарьте всё от Код:
Код:
Последний раз редактировалось Alex_ST; 03.03.2011 в 16:23. |
03.03.2011, 16:23 | #18 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Вот мой модуль
Код:
Если пишу без Dim pid As Long Dim hProcess As Long то ошибка выскакивает в строчках pid = Shell("ping " + Shapes("CheckBox" & i).Caption, 0) hProcess = OpenProcess(PROCESS_QUERY_INFORMATI ON, 0, pid) Последний раз редактировалось Aleksandr; 03.03.2011 в 16:26. |
03.03.2011, 16:27 | #19 |
Пользователь
Регистрация: 04.12.2009
Сообщений: 28
|
|
03.03.2011, 16:29 | #20 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
У меня на одном тестовом листе были разные чекбоксы - из форм и ActiveX. У них такие разные названия и разные методы получения Value оказывается.
А цифра в конце, это в смысле что первый не чекбокс0, а чекбокс1 Да вот чекбоксы с пробелами - http://www.planetaexcel.ru/docs/foru...st_205116.xlsm
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 03.03.2011 в 16:34. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как автоматически пометить все 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 |