ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как "обратиться" к .ActiveControl если его нет
7 сообщений из 7, страница 1 из 1
Как "обратиться" к .ActiveControl если его нет
    #36920713
rock-n-roll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rock-n-roll
Участник
Доброго времени суток
Хотелось сделать так чтобы ошибки программиста швырялись в отдельный DBF-к для последующего анализа "потом".
типа активная форма,контрол,метод,строка
но как определить например что активный контрол вообще существует(ошибки разные получаются)
строки типа
Код: plaintext
erControl=iif(_Screen.ActiveForm.ActiveControl = .NULL,_Screen.ActiveForm.ActiveControl.name,' ')
или
Код: plaintext
erControl=iif(vartype(_Screen.ActiveForm.ActiveControl) = 'O',_Screen.ActiveForm.ActiveControl.name,' ')
не помогают
Может у кого уже есть подобное решение вцелом?Заранее благодарен
...
Рейтинг: 0 / 0
26.10.2010, 15:51
| Ответить | Цитировать | Написать  
Как "обратиться" к .ActiveControl если его нет
    #36920814
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Был близок к правильному решению :) Надо вместо VarType() использовать Type()

Код: plaintext
erControl=iif(Type("_Screen.ActiveForm.ActiveControl") = "O", _Screen.ActiveForm.ActiveControl.name, ' ')
...
Рейтинг: 0 / 0
26.10.2010, 16:24
| Ответить | Цитировать | Написать  
Как "обратиться" к .ActiveControl если его нет
    #36920835
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
а "занахрена он нужен" этот активный контрол с активной формой ?

для разбора полетов
по ошибке разбора стека вызовов,
получ-го astackinfo недостаточно,
чтобы понять откуда завалились?

+ для особо непонятливых сохраняю скрин в картинку.
...
Рейтинг: 0 / 0
26.10.2010, 16:30
| Ответить | Цитировать | Написать  
Как "обратиться" к .ActiveControl если его нет
    #36920868
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
вот,
при разборе массива - стека вызовов все прекрасно видно,
откуда "дюбнули",
в какой форме и т.д.
...
Рейтинг: 0 / 0
26.10.2010, 16:41
| Ответить | Цитировать | Написать  
Как "обратиться" к .ActiveControl если его нет
    #36921110
rock-n-roll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rock-n-roll
Участник
ВладимирМ
Спосибо


прошелмимо
Код: plaintext
+ для особо непонятливых сохраняю скрин в картинку.
все равно не ясно .. начиная с какой командой/методом чего в фоксы- делать скин
если можно положите конкретный пример с такой реализацией
...
Рейтинг: 0 / 0
26.10.2010, 18:12
| Ответить | Цитировать | Написать  
Как "обратиться" к .ActiveControl если его нет
    #36921931
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
If File("System.app")
	DO (LOCFILE("System.app"))
	LOCAL loCaptureBmp as xfcBitmap, lcNewFile, lcFieldName		
	loCaptureBmp = _screen.system.Drawing.Bitmap.FromScreen()
	lcNewFile = Addbs(Sys( 2023 ))+"capture"+Sys( 2015 )+".Gif"
	loCaptureBmp.Save(lcNewFile, _screen.system.Drawing.Imaging.ImageFormat.Gif)
	lcFieldName = this.cAlias + ".image"
	Replace (lcFieldName) with filetostr(lcNewFile) in (this.cAlias)
	.cdbcontrolsource = lcFieldName
	Erase (lcNewFile)
EndIf

тыдынц
...
Рейтинг: 0 / 0
27.10.2010, 09:18
| Ответить | Цитировать | Написать  
Как "обратиться" к .ActiveControl если его нет
    #36923955
Гулин Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гулин Федор
Участник
идешь на фоксклуб.ру
ищешь там по
обработчик ошибок
на форуме и в решениях
допиливаешь под себя

зы у меня обработчки шел еще c fpd26
я его подправлял для vfp
писал в dbf все ошибки то что надо мне

If Otladka = .F.
On error do ERR_FIX with error(),program(),lineno(),message(),message(1)
* goARM.Path_XLS = FULLPATH('') + d_DirXLS && 'xls\'
Endif

в vfp можно через try обрабатывать
вообще варитантьов громадье
...
Рейтинг: 0 / 0
27.10.2010, 19:00
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как "обратиться" к .ActiveControl если его нет
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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