Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Внутренняя ошибка программы / 4 сообщений из 4, страница 1 из 1
22.10.2007, 11:41
    #34884234
shanton
shanton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Внутренняя ошибка программы
Это сообщение у меня появляется в следующем примере:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
LPARAMETERS tcTlb, tParam

WITH _Screen
	tcTlb=IIF(EMPTY(tcTlb),C_TOOLBAR_S4,tcTlb)
	.AddProperty(tcTlb)
	.&tcTlb=Create(tcTlb)
	.&tcTlb..Show()
	.&tcTlb..Dock( 0 )
ENDWITH
это метод формы, который вызывается с метода Init формы. Ошибка появляется на строчке ".&tcTlb=Create(tcTlb)". Интересная особенность в том, что на машинах с Win2000 этой ошибке нет, а на всех машинах где стоит WinXP ошибка имеет место. Конечно вам сложно сказать судя по этому примеру, сдесь может быть влияние каких-то другиг причин, которые сидят не именно сдесь. Но всё же, может есть какие-то соображения по этому поводу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2007, 12:13
    #34884356
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Внутренняя ошибка программы
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
LPARAMETERS tcTlb, tParam

WITH _Screen
	tcTlb=IIF(EMPTY(tcTlb), C_TOOLBAR_S4, tcTlb)
	if !pemstatus(_Screen, tcTlb,  5 )
		.AddProperty(tcTlb, createobject(tcTlb))
	endif
	
	with getpem(_Screen, tcTlb)
		.Show()
		.Dock( 0 )
	endwith
ENDWITH

...
ну да ладно ....

степом станьте перед createobject(tcTlb) и пройдите
и смотрите
что там у Вас
либо класса нет, либо еще что-то

сообщите текст ош-ки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2007, 12:53
    #34884519
shanton
shanton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Внутренняя ошибка программы
Толбар создаю на основе своего класса tlb. Попробовал вместо этого класса сделать такой же только с именем toolb. На основе этого класса всё работает нормально. Проблемма получается в классе tlb, и похоже что именно в его имени - tlb.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2007, 12:57
    #34884539
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Внутренняя ошибка программы
Код: plaintext
1.
Create(tcTlb)

во-первых не сокращайте функ-и и команды - это плохой стиль программиров-я

во-вторых
читайте хелп по CreateObject

tcTlb = 'ssss'

должна быть библ-ка с классом ssss
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Внутренняя ошибка программы / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 373ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1588628]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 67ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 221ms
total:  373ms
x
x
Закрыть


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