Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Shell
 
 автор: час   (24.02.2011 в 13:13)   личное сообщение
 
 

Для предварительного запуска OpenOffice использую команду shell
http://kbyte.ru/ru/Programming/Guides.aspx?id=88&mode=show
какой бы параметр №2 , я не подставлял - приложение разворачивается на весь экран, а хотелось бы в свёрнутом виде.....
' запуск OOO
Dim RetVal
' Запускаем
RetVal = Shell(GLB_PATCH_OOO, 2)

даже vbHide не помогает

Есть какие советы на сей счёт?

  Ответить  
 
 автор: Силblч   (24.02.2011 в 14:19)   личное сообщение
 
 

лови hWnd и делай потом с им шо хошь апишніми ф-ями

  Ответить  
 
 автор: час   (24.02.2011 в 14:41)   личное сообщение
 
 

HWND
Бум шукать

  Ответить  
 
 автор: Силblч   (24.02.2011 в 16:08)   личное сообщение
 
 

handle приложения :))

  Ответить  
 
 автор: Дядя Федор   (24.02.2011 в 16:27)   личное сообщение
 
 

А так (или надо ОО сам по себе запустить?)
'---------------------------------------------------------------------------------------
' Module : OOO
' DateTime : 22.10.2010 15:51
' Author : ДФ по мотивам
' http://www.kalitech.fr/clients/doc/VB_APIOOo_en.html#from_msoffice_to_ooo
' для Excel ссылка
' http://hiprog.com/index.php?option=com_content&task=view&id=251661586&Itemid=35
'---------------------------------------------------------------------------------------


Option Compare Database
Option Explicit

Sub openDoc()
'
'Load an existing writer document, with opening parameters
'
Dim oSM, oDesk As Object 'root object from OOo API
Dim oDoc As Object 'The document to be opened
Dim OpenPar(2) As Object 'a Visual Basic array, with 3 elements
Dim s As String
'создаем новый ServiceManager
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")

'We call the MakePropertyValue function, defined just before, to access the structure
Set OpenPar(0) = MakePropertyValue("ReadOnly", True)
Set OpenPar(1) = MakePropertyValue("Password", "secret")
' *******
Set OpenPar(2) = MakePropertyValue("Hidden", False) 'вот здесь можно true
' *******
s = "file:///d:/sample111.odt"
'Now we can call the OOo loadComponentFromURL method, giving it as
'fourth argument the result of our precedent MakePropertyValue call
Set oDoc = oDesk.loadComponentFromURL(s, "_blank", 0, OpenPar())

' ...
End Sub

а ваще зачем ОО запускать ? В АВТОЗАГРУЗКУ ЕГО.

  Ответить  
 
 автор: час   (24.02.2011 в 19:14)   личное сообщение
 
 

можно и в автозагрузку...
а можно только по надобности запускать

надо ООO сам по себе запустить!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList