Bonjour,

Je m'embête sur un point qui m'aurait paru simple, modifier le contenu d'un champ d'une statusbar.
Je n'ai pas trouvé sur le net comment est constitué une status bar et le vois plusieurs syntaxes qui en fonctionnent pas dans mmon cas.

J'ai crée une application simple qui dispose d'un menu de paramétrage d'un port série. Cette option affiche une fenêtre pour fixer les paramètres d'un port COM. Lors du click du bouton "quitter" de cette fenêtre, je veux revenir à ma fenêtre principale et afficher le paramétrage du port série dans la statusbar.

Mais rien ne se met à jour. Voici un exemple de mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub BoutonQuitter_Click()
    Dim StrInfoEtat As String
    Dim Nb As Integer
 
    StrInfoEtat = ""
    'Cache la fenêtre parametrage RS232
    Me.Hide
 
    'Affiche le paramétrage RS232 dans la barre d'état
    StrInfoEtat = FrmParamRS232.ListPortCOM.List(FrmParamRS232.ListPortCOM.ListIndex)
 
    If FrmParamRS232.Baud9600.Value = True Then
        StrInfoEtat = StrInfoEtat + "9600"
    End If
    If FrmParamRS232.Baud19200.Value = True Then
        StrInfoEtat = StrInfoEtat + "19200"
    End If
    If FrmParamRS232.Baud38400.Value = True Then
        StrInfoEtat = StrInfoEtat + "38400"
    End If
    If FrmParamRS232.Baud57600.Value = True Then
        StrInfoEtat = StrInfoEtat + "57600"
    End If
    If FrmParamRS232.Baud115200.Value = True Then
        StrInfoEtat = StrInfoEtat + "115200"
    End If
 
    'Mise à jour barre d'état
    Nb = frmMain.sbStatusBar.Panels.Count
    'Essai d'affichage
    frmMain.sbStatusBar.Panels(1).Text = "Mon Texte"
    frmMain.sbStatusBar.Refresh
End Sub
J'ai vu les syntaxes suivantes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
frmMain.sbStatusBar.Panels(1)="texte"
   frmMain.sbStatusBar.Panels(1).Texte = "texte"
   frmMain.sbStatusBar.Panels.Item(1).Texte = "texte"
Merci d'avance pour votre aide.