IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

[LibreOffice][Calc-Basic ] Impossible charger BasicLibraries.LoadLibrary("Tools")


Sujet :

OpenOffice & LibreOffice

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 19
    Points : 21
    Points
    21
    Par défaut [LibreOffice][Calc-Basic ] Impossible charger BasicLibraries.LoadLibrary("Tools")
    Bonjour
    Nouveau venu dans le développement Obasic pour Calc, je vous sollicite car j'ai systématiquement un message d'erreur pour afficher une boite de dialogue. BasicLibraries.LoadLibrary("Tools") me retourne à chaque fois une erreur comme si la librairie ne pouvait être chargée.
    J'ai posté un exemple très basic pour lequel l'erreur se produit

    voici le code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    Dim oDialog1 As Object
     
    Sub StartDialog1()
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        oDialog1.Execute()
    End Sub
     
    Sub readDialog1()
        Dim cell_val
        oT1 = oDialog1.GetControl("TextField1")
        cell_val = ThisComponent.Sheets(0).getCellByPosition(0,0)
        msgbox cell_val.String & chr(13) & "Value from controls: "  & oT1.Text
    End Sub

    Merci pour votre aideWorkFocus.ods

  2. #2
    Membre averti Avatar de Mobydick_62
    Homme Profil pro
    Retraité
    Inscrit en
    Septembre 2009
    Messages
    260
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2009
    Messages : 260
    Points : 386
    Points
    386
    Par défaut Boite de dialogue
    Bonjour,

    En mettant cela :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub StartDialog1()
        DialogLibraries.LoadLibrary("Standard")
        oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1)
        oDialog1.Execute()
    End Sub
    Cà fonctionne. Ta boite se trouve dans la bibliothèque "Standard"' il faut donc charger cette bibliothèque. Pourquoi vouloir charger la bibliothèque "Tools" ????
    Cordialement
    Libre Office Version: 7.4.3.2 (x64)
    Windows 10

Discussions similaires

  1. Réponses: 2
    Dernier message: 28/04/2004, 11h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo