Bonjour � tous,

Une question toute b�te : comment faire pour qu'une inputbox affiche un
message de plus de 3 lignes ?
Je n'ai rien trouv� dans le livre 'Programmation OpenOffice.org' et dans
celui d'Andrew Pitonyak il est �crit, si je comprends bien l'anglais,
que OOo d�finit automatiquement la taille de la boite en fonction des
boutons et messages. �a ne semble pas �tre le cas.

Agn�s S.


--------------------------- Option Explicit Sub TestInputBox

Dim MonDocument As Object , MonTexte As Object
Dim message As String,  messageCR As String
Dim text1 As String , text2 As String , text3 As String , text4 As String

MonDocument = ThisComponent
MonTexte = MonDocument.Text

text1 = "texte1 texte1 texte1 texte1 texte1 texte1 texte1 texte1 texte1
texte1 texte1 texte1 texte1 "
text2 = "texte2 texte2 texte2 texte2 texte2 texte2 texte2 texte2 texte2
texte2 texte2 texte2 texte2 "
text3 = "texte3 texte3 texte3 texte3 texte3 texte3 texte3 texte3 texte3
texte3 texte3 texte3 texte3 "
text4 = "texte4 texte4 texte4 texte4 texte4 texte4 texte4 texte4 texte4
texte4 texte4 texte4 texte4 "
message = text1 & text2 & text3 &text4
messageCR = text1 &chr$(13) & text2 &chr$(13) & text3 &chr$(13) & text4

InputBox (message,"Test inputbox", "Entrez ici la valeur")
InputBox (messageCR,"Test inputbox", "Entrez ici la valeur")

End Sub



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



Répondre à