[Résolu][Calc]Modifier image de fond d'une boite de dialogue

[Bastos]

Bonjour
Est-il possible de modifier l'image de fond d'une boite de dialogue en mode exécution (via un bouton par exemple) ?

[Dude]

Salut,

Il faut remonter sur la propriété .model.imageURL de ton objet dialogue pour régler ça.
On rappelle que l'abus d'images est dangereux pour la santé du document

[Bastos]

Bonsoir

J'ai essayé ça (voir document joint) sans grand succès :

Code : Tout sélectionner

Public Ma_boite_de_dialogue
'----------------------------------------------
Sub Ouvre_boite_de_dialogue()
DialogLibraries.LoadLibrary("Standard")
Ma_boite_de_dialogue=CreateUnodialog(DialogLibraries.Standard.Dialog1)
Ma_boite_de_dialogue.Execute()
End Sub 
'----------------------------------------------
Sub Modifier_Image_de_fond()
Ma_boite_de_dialogue.Model.ImageURL = ConvertToUrl("C:\Temp\Test.jpg")
End Sub

Pas de message d'erreur, mais pas d'apparition d'image de fond non plus (j'ai essayé avec plusieurs fichiers Test.jpg de tailles différentes, ça ne change rien).

Après je ne suis pas certain de ma bonne utilisation du ConvertToUrl (j'ai également essayé ConvertToUrl("file:///C:/Temp/Test.jpg"), même conséquence)

[luky-luke]

Bonjour
Voir ce fil qui donne une solution Image de fond de dialogue ne s'affiche pas

Contourner le problème, en créant un contrôle Image qui couvre toute la boîte de dialogue

un exemple qui utilise également des images présente dans le fichier mais

On rappelle que l'abus d'images est dangereux pour la santé du document

Code : Tout sélectionner

Public Dlg As Object
Public Index as integer  
Sub Image_Dans_Dialogue	
	DialogLibraries.LoadLibrary("Standard")
	Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
	boite = Dlg.getControl("ImageControl1").Model
	Dlg.getControl("ImageControl1").Model.ImageUrl = converttourl("C:\Temp\Test.jpg")
	Index = 0
	Dlg.Execute   
End Sub 

Sub Change_Images
	If Index = 0 Then
		Dlg.getControl("ImageControl1").Model.Graphic = ThisComponent.Sheets.getByName("Images").Drawpage.GetByIndex("1").Graphic
		Index = 1
	Else
		Dlg.getControl("ImageControl1").Model.Graphic = ThisComponent.Sheets.getByName("Images").Drawpage.GetByIndex("0").Graphic
		Index = 0
	End if	
End Sub

Et le fichier

ImageDans Boite.ods

Cordialement
Luke

[Piaf]

Bonsoir
A priori l'image doit être chargée avant l'exécution du dialogue.
J'en déduis que si tu veux changer l'image, tu dois fermer et ré-ouvrir le dialogue avec la nouvelle image.
Une solution éventuelle

Code : Tout sélectionner

Sub Ouvre_boite_de_dialogue()
Dim Chemin as String
	DialogLibraries.LoadLibrary("Standard")
	oDlg=CreateUnodialog(DialogLibraries.Standard.Dialog1)
	Chemin = getDirectory(thisComponent.URL)
	images = Array(Chemin &"Roura.jpg",Chemin & "guyane2.jpg")
	oDlg.Model.ImageURL = ConvertToUrl(images(0))
	valeur = 0
	oDlg.Execute()
End Sub 
'----------------------------------------------
Sub Modifier_Image_de_fond()
	oDlg.endExecute
	DialogLibraries.LoadLibrary("Standard")
	oDlg=CreateUnodialog(DialogLibraries.Standard.Dialog1)
	If valeur = 0 Then
		oDlg.Model.ImageURL = ConvertToUrl(images(1))
		Valeur = 1
	Else	
		oDlg.Model.ImageURL = ConvertToUrl(images(0))
		Valeur = 0
	End If	
	oDlg.Execute
end sub

Function getDirectory(URLPath As String) As String
Dim parts As Variant
parts = split(URLPath, "/")
parts(UBound(parts())) = ""
getDirectory = join(parts, "/")
End Function

Mais

On rappelle que l'abus d'images est dangereux pour la santé du document

J'ai peut-être été un peu lourd sur les images
A+

[Bastos]

Bonjour

La solution de Piaf me convient parfaitement car si on ajoute des contrôles dans notre boite de dialogue, ils sont directement visibles et utilisables : Super !

(Le problème, de mon point de vue, de l'option proposée par luky-luke (Contrôle Picto adapté à la taille de la boite de dialogue) est qu'elle semble nécessiter d'autres lignes de code pour pouvoir voir et utiliser les autres contrôles de la boite de dialogue : l'abus de code est également dangereux pour la santé d'un document ;o))

En tout cas merci beaucoup pour toutes ces réponses.

Bonne journée.