Bonjour.
Il est possible, insérer une image sur le format GIF sur Boite de Text.
J’ai créé une Boite, lors de l'insertion du GIF , donne moi une erreur. Je ne sais pas comment faire.
J'ai besoin de votre aide, s’il est possible.
Voici une feuille., est le GIF.
[Résolu][Basic] Insérer GIF sur boîte de dialogue
Modérateur : Vilains modOOs
Règles du forum
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
-
- Membre OOrganisé
- Messages : 70
- Inscription : 17 août 2016 17:41
[Résolu][Basic] Insérer GIF sur boîte de dialogue
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
OpenOffice 4.1.10 sur Windows 7(64) , Eclipse "Mars"
LibreOffice 6.2 sur Windows 8(64)
LibreOffice 6.2 sur Windows 8(64)
-
- InconditiOOnnel
- Messages : 948
- Inscription : 19 août 2018 05:20
Re: [Basic] Insérer GIF sur Boite
Bonjour,
Si c'est pour insérer une image de toupie tournante.
Regarde le suprême de code : https://forum.openoffice.org/fr/forum/v ... 15&t=11928
Si c'est pour insérer une image de toupie tournante.
Regarde le suprême de code : https://forum.openoffice.org/fr/forum/v ... 15&t=11928
Open Office 4.1.15 sous Windows 11
-
- Membre OOrganisé
- Messages : 70
- Inscription : 17 août 2016 17:41
Re: [Basic] Insérer GIF sur Boite
Salut.
Est pour insérer quelque Image sur le Format GIF. Le toupie s'est une exemple.
Le Erreur est ici, n'est fonctionne pas
Voici fragments du Code, plus importants.
Est pour insérer quelque Image sur le Format GIF. Le toupie s'est une exemple.
Le Erreur est ici, n'est fonctionne pas
Voici fragments du Code, plus importants.
Code : Tout sélectionner
Sub RichEdit_Test
' create new dialog
oDialog = CreateUnoService( "com.sun.star.awt.UnoControlDialog" )
oDialogModel = CreateUnoService( "com.sun.star.awt.UnoControlDialogModel" )
oDialogModel.Title = "Dialog Title"
'''*********************************
oRichEdit.setModel(oRichEditModel)
' add it to the dialog
oDialog.addControl("rich",oRichEdit)
'''''******************************
oDoc=ThisComponent '<-----------------c'est mal la référence ? ''oDoc''
'
oCursor = oText.createTextCursor()
oCursor.goToStart(FALSE)
'
Dim oGraph
oGraph = oDoc.createInstance("com.sun.star.text.GraphicObject")
With oGraph
.GraphicURL = imgUrl
.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
End With
'oText.insertTextContent( oCursor, oGraph, False ) '<-------------- erreur ICI
''''*******************************
OpenOffice 4.1.10 sur Windows 7(64) , Eclipse "Mars"
LibreOffice 6.2 sur Windows 8(64)
LibreOffice 6.2 sur Windows 8(64)
-
- Membre OOrganisé
- Messages : 70
- Inscription : 17 août 2016 17:41
Re: [Basic] Insérer GIF sur Boite
Bonjour.
Voici une autre feuille avec le GIFsur une Boîte. Le GIF apparaître mais ne pas animé.
Il y'a une fonction pour animer le GIF ?.
Voice le code.
Voici une autre feuille avec le GIFsur une Boîte. Le GIF apparaître mais ne pas animé.
Il y'a une fonction pour animer le GIF ?.
Voice le code.
Code : Tout sélectionner
Global Path as String
Sub Dialog1
'create a Dialog
oDialogModel = createUnoService( "com.sun.star.awt.UnoControlDialogModel" )
oDialogModel.Title = "Test dialog"
oDialogControl = createUnoService( "com.sun.star.awt.UnoControlDialog" )
oDialogControl.setModel( oDialogModel )
oDialogControl.setPosSize( 50, 50, 250, 150, com.sun.star.awt.PosSize.POSSIZE)
REM***************************************************
oButtonModel = oDialogModel.createInstance( "com.sun.star.awt.UnoControlButtonModel" )
oButtonModel.PushButtonType = com.sun.star.awt.PushButtonType.CANCEL
oDialogModel.insertByName( "CancelButton", oButtonModel )
oButtonModel.Label = "Cancel"
oButtonControl = oDialogControl.getControl("CancelButton")
oButtonControl.setPosSize(150, 100, 50, 30, com.sun.star.awt.PosSize.POSSIZE)
REM***************************************************
oImageModel = oDialogModel.createInstance( "com.sun.star.awt.UnoControlImageControlModel" )
Call Module1.oDocURL2
Caminho1="file:///" & Path '& "\"
URL =Caminho1 & "\throbber11.gif"
with oImageModel '<<<<<<<<<<<<<<---------- ICI une fonction pour animer le GIF ?
.ImageURL = URL
.Border = 0
.ScaleImage = true'false '
end with
oDialogModel.insertByName( "Image1", oImageModel )
oImageControl = oDialogControl.getControl("Image1")
oImageControl.setPosSize(10, 10, 120, 120, com.sun.star.awt.PosSize.POSSIZE)
oDialogControl.setVisible( True )
nButtonClicked = oDialogControl.execute
End Sub
Sub oDocURL2
Dim oDoc
Dim oDocURL
Dim oDocGetURL
oDoc = ThisComponent
oDocURL = oDoc.URL
oDocGetURL = oDoc.getURL()
GlobalScope.BasicLibraries.loadLibrary("Tools")
path3=DirectoryNameoutofPath(ThisComponent.getURL(),"/")
Path = ConvertFromURL(Path3 )
End Sub
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
OpenOffice 4.1.10 sur Windows 7(64) , Eclipse "Mars"
LibreOffice 6.2 sur Windows 8(64)
LibreOffice 6.2 sur Windows 8(64)
-
- RespOOnsable forum
- Messages : 12228
- Inscription : 08 nov. 2005 16:23
- Localisation : Caen, France
Re: [Basic] Insérer GIF sur Boite
Bonjour,
Merci de ne pas poster plusieurs messages à la suite !
Si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.
En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.
Merci de ne pas poster plusieurs messages à la suite !
Si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.
En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.
-
- IdOOle de la suite
- Messages : 25181
- Inscription : 03 mars 2006 07:45
- Localisation : 127.0.0.1
Re: [Basic] Insérer GIF sur boîte de dialogue
Salut,
Si c'est un besoin pour toi, il te faudra ouvrir une demande d'amélioration (cf. ma signature).
Oui, le contrôle picto ne gère pas l'animation tout simplement.hamilton a écrit :Le GIF apparaître mais ne pas animé.
Si c'est un besoin pour toi, il te faudra ouvrir une demande d'amélioration (cf. ma signature).
Poser une question, c'est bien. Répondre aux autres, c'est encore mieux.
Améliorez AOO et votez pour les issues
Améliorez AOO et votez pour les issues
-
- Membre OOrganisé
- Messages : 70
- Inscription : 17 août 2016 17:41
Re: [Basic] Insérer GIF sur boîte de dialogue
Salut.
Merci por votre reponses.
Je ne sais pas si peut placer resolú. Il n'y a pas de solution pour le Problème.
Je promets de participer plus.
Merci por votre reponses.
Je ne sais pas si peut placer resolú. Il n'y a pas de solution pour le Problème.
Je promets de participer plus.
OpenOffice 4.1.10 sur Windows 7(64) , Eclipse "Mars"
LibreOffice 6.2 sur Windows 8(64)
LibreOffice 6.2 sur Windows 8(64)
-
- IdOOle de la suite
- Messages : 25181
- Inscription : 03 mars 2006 07:45
- Localisation : 127.0.0.1
Re: [Basic] Insérer GIF sur boîte de dialogue
Et comme je te l'ai dit plus haut :hamilton a écrit :Il n'y a pas de solution pour le Problème.
Dude a écrit :Si c'est un besoin pour toi, il te faudra ouvrir une demande d'amélioration (cf. ma signature).
Poser une question, c'est bien. Répondre aux autres, c'est encore mieux.
Améliorez AOO et votez pour les issues
Améliorez AOO et votez pour les issues