powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Внутренняя ошибка программы
4 сообщений из 4, страница 1 из 1
Внутренняя ошибка программы
    #34884234
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
Внутренняя ошибка программы
    #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
Внутренняя ошибка программы
    #34884519
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Толбар создаю на основе своего класса tlb. Попробовал вместо этого класса сделать такой же только с именем toolb. На основе этого класса всё работает нормально. Проблемма получается в классе tlb, и похоже что именно в его имени - tlb.
...
Рейтинг: 0 / 0
Внутренняя ошибка программы
    #34884539
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
Create(tcTlb)

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

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

tcTlb = 'ssss'

должна быть библ-ка с классом ssss
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Внутренняя ошибка программы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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