powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Exe-шники
4 сообщений из 29, страница 2 из 2
Exe-шники
    #32210069
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2IgorProgrammer

Можно это будет моим домашним заданием?
...
Рейтинг: 0 / 0
Exe-шники
    #32210103
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
NNN:

Это было бы смешно... если не было б так грустно...

Мне просто завтра на выставку финтарить... А там надо взаимодействие этих Екзешников показать... Так как оно сейчас работает... Ховайтесь люды...

Мне и так прейдется вместо девушки сегодня с ноутбуком спать...
Если вообще спать прийдется...

Плиз ХЕЛП(КРИК ДУШИ...{:-)})...
...
Рейтинг: 0 / 0
Exe-шники
    #32210316
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Exe-шники
    #32210318
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2IgorProgrammer

> У меня в этом Екзешнике сидит форма с Компонентой ОСХ...
Как мне ее в класс запихнуть(Я с классами толком, то и не работал).


Открываешь форму на редактирование, потом из меню File -> Save as Class. Потом в свойствах класса ставишь галочку на OLEPUBLIC

> Чтоб можно было ее высветить...

У меня получилось высветить если форма as Top Level Form, иначе надо в Load или Init выставить _screen.visible=.T., но тогда еще одно фокса вылазит.

> Можно ли в классе вызывать проги екзешника???

Да, вроде все работает. В принципе все верно, это же out-of-process сервер.

> И как это правильно делать...
> ИЛИ надо все проги переганять в процедуры класса???


Я бы переписал, но смотри сам. Остальные вопросы не совсем понял.

> Если можно, то с примерчиком...

Да вот в принципе все тут:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
**************************************************
* -- Class:        foxole (e:\foxole\foxole.vcx)
 
* -- ParentClass:  form
 
* -- BaseClass:    form
 
* -- Time Stamp:   07/16/03 10:11:06 PM
 
*
DEFINE CLASS foxole AS form OLEPUBLIC
ShowWindow =  2 
DoCreate = .T.
Caption =  "Form1" 
Name =  "foxole" 
PROCEDURE Load
 _screen.Visible= .T. 
ENDPROC
PROCEDURE Click
 =test()
ENDPROC
ENDDEFINE
*
* -- EndDefine: foxole
 
**************************************************

*!*test.prg
=MESSAGEBOX(DATETIME())

*!* Вызов после компиляции
x=NEWOBJECT('foxole.foxole')
x.Visible= .T.


> Это было бы смешно... если не было б так грустно...

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


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