Bonjour, pour l'�criture, j'utilise pour ma part une variable globale
"oBarre_Etat As Object", et une fonction "StatusText", que j'utilise ainsi :
..
StatusText  "Initialisation de l'application..."
...

'---------------------------------
' Affiche Texte dans Barre Etat
' Auteur : Jean-Claude DAVID [EMAIL PROTECTED]
'---------------------------------
Sub StatusText(sInformation As String)
    On Error Goto ErrorHandler
    If IsNull(oBarre_Etat) Then oBarre_Etat =
ThisComponent.CurrentController.StatusIndicator 'D�finit la Barre d'�tat 
    oBarre_Etat.setText(sInformation + SPACE(350 - Len(sInformation)))
        Goto Exit_Here

Exit_False:
        Exit Sub
        
Exit_Here:      
        Exit Sub

ErrorHandler:
        MsgBox "StatusText Erreur " & Err & " : " & Error$ & " (Ligne N�" &
Erl & ")", sbCritical + sbOkOnly, Titre_Appli
        On Error Goto 0
        Goto Exit_False 
End Sub

>  
> Y A T IL MOYEN DE LIRE VIA BASIC LE CONTENU DE LA BARRE D ETAT ?
>  
> PEUT ON AUSSI Y ECRIRE ?

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

Répondre à