Как передать параметр ? / FoxPro, Visual FoxPro

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

Как передать параметр ?

#36396991

dima-k5

Участник

Сообщения: 67

Рейтинг: 0 / 0

local loExcel, lcMacros
Привет всем и с Новим Годом !

был на форуме такой пример :

text to lcMacros noshow pretext 3
Sub tt()
MsgBox ("cfff")
End Sub
endtext
strtofile(lcMacros, "c:\new.bas")

loExcel = CREATEOBJECT("Excel.Application")
with loExcel
.visible = .t.
.Workbooks.Add()
.ActiveWorkBook.VBProject.VBComponents.import ("c:\new.bas")
.run("tt")
endwith

return
**********************
а как мне передать значение в Sub ? - если к примеру Sub tt(my_parameter) - то как запустить Run ?

...

Рейтинг:

0 / 0

04.01.2010, 17:43

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

Как передать параметр ?

#36397467

Dag

Участник

Сообщения: 880

Рейтинг: 0 / 0

А почему бы не формировать текст макроса сразу в процедуре фокса вместе с параметром, а затем запускать его на исполнение ?
Возможно вместо CreateObject придется использовать команду NewObject.

...

Рейтинг:

0 / 0

05.01.2010, 07:35

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

Как передать параметр ?

#36397469

Dag

Участник

Сообщения: 880

Рейтинг: 0 / 0

Извиняюсь, конечно же не NEWOBJECT, а GETOBJECT

Некоторые серверные приложения каждый раз, когда вы выдаете GETOBJECT( ) запускают дополнительный экземпляр приложения, используя дополнительную память. Если приложение уже запущено, вы можете предотвратить старт дополнительного экземлпяра приложения, опустив FileName и включив ClassName, как показно в примере ниже:

oleApp = GETOBJECT(, "Excel.Application")

...

Рейтинг:

0 / 0

05.01.2010, 07:55

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

Как передать параметр ?

#36397685

Zmej

Гость

dima-k5l
.run("tt")
**********************
а как мне передать значение в Sub ? - если к примеру Sub tt(my_parameter) - то как запустить Run ?
По идее, через запятую в методе Run можно передать до 30 параметров - т.е. где-то так:
.run("tt", param1)

...

Рейтинг:

0 / 0

05.01.2010, 13:04

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

Как передать параметр ?

#36397730

прошелмимо

Участник

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

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

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

text to lcMacros noshow pretext  3 
	Sub tt(Optional cMessage as String)
	If cMessage<>"" Then
		MsgBox (cMessage)
	endIf
	End Sub
endtext
strtofile(lcMacros, "c:\new.bas")

loExcel = CREATEOBJECT("Excel.Application")
with loExcel
	.Workbooks.Add()
	.ActiveWorkBook.VBProject.VBComponents.import ("c:\new.bas")
	.run("tt",'куку')
	.run("tt",'трали вали')
endwith


return

...

Рейтинг:

0 / 0

05.01.2010, 13:32

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

Как передать параметр ?

#36397767

Игорь Горбонос

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: прошелмимо

Забыл добавить, что перед выполнением кода нужно в екселе меню "Сервис" пункт "Макрос" пункт "Безопасность" на закладке
"Надежные издатели" поставить птицу "Доверять доступ к Visual Basic Project"

Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

05.01.2010, 13:53

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

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

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

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

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

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

start [/forum/topic.php?fid=41&msg=36397767&tid=1585714]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	34ms
get topic data:	11ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	341ms

total:	464ms