[Résolu][Basic] Insérer GIF sur boîte de dialogue

[hamilton]

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.

[Dolev]

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

[hamilton]

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.

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
''''******************************* 

[hamilton]

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.

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 

[Bidouille]

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.

[Dude]

Salut,

Le GIF apparaître mais ne pas animé.

Oui, le contrôle picto ne gère pas l'animation tout simplement.

Si c'est un besoin pour toi, il te faudra ouvrir une demande d'amélioration (cf. ma signature).

[hamilton]

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.

[Dude]

Il n'y a pas de solution pour le Problème.

Et comme je te l'ai dit plus haut :

Si c'est un besoin pour toi, il te faudra ouvrir une demande d'amélioration (cf. ma signature).