Modifier le contenu de la statusbar

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:

---

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:

---

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.

Citation:

---

StrInfoEtat = StrInfoEtat + "9600"

---

A eviter, le + , cela peut jouer des tours, quand on manipule du String, preferer le &
Mis a part sa, moi je mettrai un point d'arret sur la ligne
StrInfoEtat = FrmParamRS232.ListPortCOM.List(FrmParamRS232.ListPortCOM.ListIndex)
et je verifirai la valeur prise par la variable StrInfoEtat en faisant des F8
jusqu'a la fin de la procedure,
car a priori, ton code semble correcte

Il serait interessant de savair quelle valeur prends Nb apres cette fonction

Code:

---

Nb = frmMain.sbStatusBar.Panels.Count

---

Peut être n'as tu pas ajouté de panels dans ton composant statusbar. Ceci se fait par la fenetre de propriété 'Personalisé' du composant, deuxieme onglet

Je dirais comme Delbeke. Si ton statusBar n'a que le simplePanel, tu dois mettre ton texte dans la propriété SimpleText.

Merci pour vos réponses.

1) J'ai effectué du pas à pas pour vérifier le contenu de ma chaine, c'est OK.
J'ai d'ailleurs effectué l'essai en mettant une valeur fixe au lieu d'une
variable, cela ne change rien.

2) Le compteur Nb vaut 3.

3) Ce n'est pas une "sbrSimple" mais une "sbrNormal" avec 3 zones.

En fait la mise à jour de la statusBar fonctionne si je le fait dans le formulaire principal frmMain, mais je pense que le problème est lié au fait que je le fasse dans un autre formulaire.

Mais c'est mes débuts en VB et je maitrise pas encore ce genre de subtilités.

Si vous avez des idées ... merci.

Je te met un petit ZIP, essais le pour voire, dit nous si sa fonctionne chez toi.
A bientôt

Motif de l'edit, je supprime le ZIP puisque la solution a ete trouvée

As-tu essayé de mettre la propriété AutoRedraw de ton formulaire à True ?

Ton projet fonctionne...

Par contre je ne vois pas d'ou peut venir la différence. J'ai effectué quelques tests, Si j'ajoute le code suivant à mon formulaire :

Code:

---

1 2 3

Private Sub Form_Load() ListPortCOM.ListIndex = 0 End Sub

---

il me retourne un message d'erreur "Valeur de propriété incorrecte".

Autre différence, j'ai crée mon projet à l'aide d'un assistant et non pas manuellement. Cela peut-il avoir une différence ?


PS : J'ai essayé avec AutoRedraw à TRUE : RAS

CA MARCHE ...
Je viens de trouver pourquoi.

En fait mon projet comporte un module module1.bas dans lequel est déclaré la fenêtre principale comme indiqué ci-dessous :

Code:

---

1 2 3 4

Sub Main() Set fMainForm = New frmMain fMainForm.Show End Sub

---

Du coup ma fenêtre principale ne s'appelle pas frmMain mais fMainForm, en changeant la mise à jour de la barre d'état par :

Code:

---

fMainForm.sbStatusBar.Panels(1).Text = " " & StrInfoEtat

---

cela fonctionne désormais ! Quelle prise de tête !