Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 14. 2. 2010 02:56:34

zakjar
Člen
Registrace: 14. 2. 2010
Příspěvků: 1

LibraryNotLoadedException

Zkouším Dialogy a makra v OO 3.1. a narazil jsem hned v úvodu na problém. Udělám nový soubor TestDlg v Calc. Vytvořím nové Dialog okno a uložím ho do téhož souboru. V sešitě udělám tlačítko, které otevítá tento Dialog .... a dostanu chybu LibraryNotLoadedException a 'nalistuje' se mi zdrojový kód na řádek

    libStandard = DialogLibraries.getByName("Standard")

Nevím co s tím, protože když to odklepnu tak už to pak pracuje bez chyby.
Tu knihovnu si asi natáhne při tom hlášení chyby - nebo nevím.
Když OO vypnu a otevřu ten soubor znovu tak se ta chyba objeví znovu.

=> já netuším co chce, postupuju podle tutoriálu, ale bez úspěchu

soubor na kterém to je vidět jsem umístil sem: www.fal.cz/oo/TestDlg.ods

Offline

#2 15. 2. 2010 09:03:31

mirozm
Člen
Registrace: 9. 1. 2006
Příspěvků: 49

Re: LibraryNotLoadedException

Vaše makro by malo vyzerať nejako takto:

sub showDlg_1
DialogLibraries.LoadLibrary("Standard")
libStandard = DialogLibraries.getByName("Standard")
libDialog = libStandard.getByName("Dlg_1")
dlgFilter = CreateUnoDialog(libDialog)
Select Case dlgFilter.execute() 
    Case 1
       MsgBox "OK pressed"        
    Case 0 
       MsgBox "Cancel pressed"
    End Select    
dlgFilter.dispose()
end sub

Nebola nahratá knižnica a nebol na konci dialóg vymazaný.
miro

Editoval mirozm (15. 2. 2010 09:03:52)


LO 5.1.6  platforma Ubuntu-linux 16.04

Offline

#3 15. 2. 2010 14:42:04

j-pastierik
Člen
Registrace: 15. 11. 2004
Příspěvků: 761

Re: LibraryNotLoadedException

mirozm napsal(a)

Nebola nahratá knižnica a nebol na konci dialóg vymazaný.
miro

Presne tak, nebola nahratá knižnica a dialóg nebol vymazaný. Jednoduchšie sa to dá naprogramovať takto:

sub showDlg_1
 DialogLibraries.LoadLibrary("Standard")
 dlg=CreateUnoDialog(DialogLibraries.Standard.Dlg_1)    
 Select Case dlg.execute() 
  Case 1
   MsgBox "OK pressed"        
  Case 0 
   MsgBox "Cancel pressed"
 End Select    
 dlg.dispose()
end sub

Offline

Zápatí