Re: [libreoffice-users] Basic pseudo object code no reachable when defined into a basic library...
Hello Patrick, (response in English that transcripts my private email in French) Le 20/07/2018 à 17:37, Patrick Gelin a écrit : Note : The Erase function call look's to run perfectly ... Why don't you use the usual Set MyObject = Nothing This is just a question. I'm not sure about the actual difference between both approaches. So I need to add a specific modul in pseudo object library with factories ... Don't you think that having an object factory in each class module would be easier to maintain? Or is this impractical? Best regards, -- Jean-Francois Nifenecker, Bordeaux -- To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette List archive: https://listarchives.libreoffice.org/global/users/ Privacy Policy: https://www.documentfoundation.org/privacy
Re: [libreoffice-users] Basic pseudo object code no reachable when defined into a basic library...
Hi, Thanks-you Jean-Francois for your correction. But it's not enought, the problem is still here ... I finded why : The new operator failed to load pseudo object code into a library from a document's call. It's same problem for GlobalScope library (inter-contener call) or Document library (inner-contener call). But I can replace it with a function factory stored into the library and called from my document ... : -- REM Factory Modul into LibApplication Option Explicit Function FactoryTest As Object FactoryTest = new Test End Function -- REM Unitary test into my document Sub Test2() If not GlobalScope.BasicLibraries.hasByName("LibApplication") Then MsgBox("Librairie LibApplication non installée !") Exit Sub End If GlobalScope.BasicLibraries.loadLibrary("LibApplication") if not GlobalScope.BasicLibraries.isLibraryLoaded("LibApplication") Then MsgBox("Librairie LibApplication non chargée !") Exit Sub EndIf Dim oTest As Object oTest = FactoryTest() oTest.execute() Erase oTest End Sub Note : The Erase function call look's to run perfectly ... So I need to add a specific modul in pseudo object library with factories ... Patrick Thank you for your help. Patrick -- To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette List archive: https://listarchives.libreoffice.org/global/users/ Privacy Policy: https://www.documentfoundation.org/privacy
Re: [libreoffice-users] Basic pseudo object code no reachable when defined into a basic library...
Hi :) Oooo there's some value in a nice cuppa T. Regards from a Tom :) On 20 July 2018 at 09:49, wrote: > Hi Patrick, > > typo spotted in the Initialize sub : > > Private Sub Class_Initialize() > _valute = 1 > End Sub > > instead of > > Private Sub Class_Initialize() > _value = 1 > End Sub > > > Best, > -- > Jean-Francois Nifenecker, Bordeaux > > -- > To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org > Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to- > unsubscribe/ > Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette > List archive: https://listarchives.libreoffice.org/global/users/ > Privacy Policy: https://www.documentfoundation.org/privacy > -- To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette List archive: https://listarchives.libreoffice.org/global/users/ Privacy Policy: https://www.documentfoundation.org/privacy
Re: [libreoffice-users] Basic pseudo object code no reachable when defined into a basic library...
Hi Patrick, typo spotted in the Initialize sub : Private Sub Class_Initialize() _valute = 1 End Sub instead of Private Sub Class_Initialize() _value = 1 End Sub Best, -- Jean-Francois Nifenecker, Bordeaux -- To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette List archive: https://listarchives.libreoffice.org/global/users/ Privacy Policy: https://www.documentfoundation.org/privacy
[libreoffice-users] Basic pseudo object code no reachable when defined into a basic library...
Hi, I've got a problem with pseudo object no reachable when defined into library. The error message when I call new is : "This object is not accessible. Invalid object reference." Beloww is the Modul Test into library LibApplication, to define a Test object displaying a "Hello Box" dialog when execute REM * BASIC * Option Compatible Option ClassModule Option Explicit Private _value As Integer Private const _Msg = "Hello World" ' #PROCEDURE# == ' Name...: Class_Initialize ' Description ...: ' Parameters : ' Syntax : Class_Initialize ' Return values .: ' Modified...: ' Remarks ...: ' Related ...: ' Link ..: ' Example ...: Private Sub Class_Initialize() _valute = 1 End Sub ' #PROCEDURE# == ' Name...: Class_Terminate ' Description ...: ' Parameters : ' Syntax : Class_Terminate ' Return values .: ' Modified...: ' Remarks ...: ' Related ...: ' Link ..: ' Example ...: Private Sub Class_Terminate() End Sub Rem *** Rem Rem PROPRIETES Rem Rem *** Rem *** Rem Rem METHODES PRIVEES Rem Rem *** Rem *** Rem Rem METHODES PUBLIQUES Rem Rem *** ' #PROCEDURE# == ' Name...: Execute ' Description ...: ' Parameters : ' Syntax : Execute() ' Return values .: ' Modified...: ' Remarks ...: ' Related ...: ' Link ..: ' Example ...: Public Sub Execute() MsgBox _Msg & " : " & _value End Sub Module to test into my main document : Sub Test() If GlobalScope.BasicLibraries.hasByName("LibApplication") Then GlobalScope.BasicLibraries.loadLibrary("LibApplication") End If if GlobalScope.BasicLibraries.isLibraryLoaded("LibApplication") Then Call Application.OpenConnection(ThisDatabaseDocument) Else MsgBox("Librairie LibApplication non chargée !") EndIf Dim oTest As Object Set oTest = new Test oTest.execute() Erase oTest End Sub Do you think it's not possible to use pseudo object code into library ? Do you know an other way than libraries to create domains (there is no folder to manage macros ...) -- To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette List archive: https://listarchives.libreoffice.org/global/users/ Privacy Policy: https://www.documentfoundation.org/privacy