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

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

    Informations forums :
    Inscription : décembre 2009
    Messages : 15
    Points : 18
    Points
    18

    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 régulier
    Homme Profil pro
    Inscrit en
    septembre 2009
    Messages
    74
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : septembre 2009
    Messages : 74
    Points : 95
    Points
    95

    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: 6.0.1.1 (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