Как "обратиться" к .ActiveControl если его нет / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как "обратиться" к .ActiveControl если его нет

7 сообщений из 7, страница 1 из 1

Как "обратиться" к .ActiveControl если его нет

#36920713

rock-n-roll

Участник

Сообщения: 155

Рейтинг: 0 / 0

Доброго времени суток
Хотелось сделать так чтобы ошибки программиста швырялись в отдельный 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

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Был близок к правильному решению :) Надо вместо VarType() использовать Type()

Код: plaintext

erControl=iif(Type("_Screen.ActiveForm.ActiveControl") = "O", _Screen.ActiveForm.ActiveControl.name, ' ')

...

Рейтинг:

0 / 0

26.10.2010, 16:24

| Ответить | Цитировать | Написать

Как "обратиться" к .ActiveControl если его нет

#36920835

прошелмимо

Участник

Откуда: Из Курска понаехал

Сообщения: 10 249

Рейтинг: 0 / 0

а "занахрена он нужен" этот активный контрол с активной формой ?

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

+ для особо непонятливых сохраняю скрин в картинку.

...

Рейтинг:

0 / 0

26.10.2010, 16:30

| Ответить | Цитировать | Написать

Как "обратиться" к .ActiveControl если его нет

#36920868

прошелмимо

Участник

Откуда: Из Курска понаехал

Сообщения: 10 249

Рейтинг: 0 / 0

вот,
при разборе массива - стека вызовов все прекрасно видно,
откуда "дюбнули",
в какой форме и т.д.

...

Рейтинг:

0 / 0

26.10.2010, 16:41

| Ответить | Цитировать | Написать

Как "обратиться" к .ActiveControl если его нет

#36921110

rock-n-roll

Участник

Сообщения: 155

Рейтинг: 0 / 0

ВладимирМ
Спосибо

прошелмимо

Код: plaintext

+ для особо непонятливых сохраняю скрин в картинку.

все равно не ясно .. начиная с какой командой/методом чего в фоксы- делать скин
если можно положите конкретный пример с такой реализацией

...

Рейтинг:

0 / 0

26.10.2010, 18:12

| Ответить | Цитировать | Написать

Как "обратиться" к .ActiveControl если его нет

#36921931

прошелмимо

Участник

Откуда: Из Курска понаехал

Сообщения: 10 249

Рейтинг: 0 / 0

Код: 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

Гулин Федор

Участник

Откуда: МИНСК

Сообщения: 1 332

Рейтинг: 0 / 0

идешь на фоксклуб.ру
ищешь там по
обработчик ошибок
на форуме и в решениях
допиливаешь под себя

зы у меня обработчки шел еще 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 если его нет

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=36921931&tid=1584853]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	40ms
get topic data:	11ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	18ms

total:	148ms