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]
