barre d'étatRésolu

Question

Bonjour,

Je veux faire une barre d'&#233;tat (donc je prend le composant "status bar" pour la r&#233;aliser) mais je ne sais quel programme mettre &#224; l'int&#233;rieur car je veux quel s'insere dans un onglet et quel indique le message de la textbox situ&#233;e sur un autre onglet. Voici le programme de la textbox : 

Private Sub txtStatus_Change()
'La zone d'affichage du Status a chang&#233;e :
    
'On met le curseur &#224; la fin de la zone de texte pour voir le texte
' le plus r&#233;cent :
    txtStatus.SelStart = Len(txtStatus.Text)
    
'Si il y a un retour-chariot au d&#233;but alors on l'efface :
    If Mid(txtStatus.Text, 1, 2) = vbCrLf Then
        txtStatus.Text = Mid(txtStatus.Text, 3, Len(txtStatus.Text))
    End If
End Sub

Merci d'avance

Guillaume

econs · Accepted Answer

StatusBar1.SimpleText = txtStatus.Text



En fran&#231;ais : le texte de ta statusbar1 est initialis&#233; avec le texte qui se trouve dans la textbox nomm&#233;e txtStatus.

Manu

cs_DARKSIDIOUS · Answer

Ben décrit un peu plus ton problème pour commencer, car là, c'est loin d'être évident (nom du textbox à afficher dans la barre d'état par exemple) ! _

bichoncanada · Answer

le nom du text box c'est txt status

cs_DARKSIDIOUS · Answer

Private Sub txtStatus_Change() 'La zone d'affichage du Status a changée : 'On met le curseur à la fin de la zone de texte pour voir le texte ' le plus récent : txtStatus.SelStart = Len(txtStatus.Text) 'Si il y a un retour-chariot au début alors on l'efface : If Mid(txtStatus.Text, 1, 2) = vbCrLf Then txtStatus.Text = Mid(txtStatus.Text, 3, Len(txtStatus.Text)) End If StatusBar1.Panels(1).Text = txtStatus.Text End Sub _

econs · Answer

Salut,





Avec ces quelques lignes, tu devrais comprendre ce que tu peux faire :



StatusBar1.SimpleText = "ton texte dans un statusbar simple"



StatusBar1.Panels.Add 'pour ajouter une case dans ta statusBar

StatusBar1.Panels(2).Text = "Ton texte dans la 3&#232;me case de ta statusbar, sous r&#233;serve qu'elle existe."


StatusBar1.Panels(1).Text = taTextBox.Text ' Ins&#232;re dans la 2&#232;me case le contenu d'une textbox


Manu

bichoncanada · Answer

Ca ne marche pas Darsidious qd je rajoute StatusBar1.Panels(1).Text = txtStatus.Text dans la textbox
Et Manu je n'ai q'une case dans la barre d'&#233;tat, je ne vois pas trop ce que tu veux me dire, je comprend un peu mais pas totalement

bichoncanada · Answer

merci manu ca marche, c sympa et vive l'age de glace !!!! lol

econs · Answer

Au passage, l'expression "&#231;&#224; ne marche pas" ne signifie rien pour nous.

Est ce que &#231;&#224; plante ? Si oui, quel message d'erreur ?

Est ce que tu obtiens un r&#233;sultat ? Si oui lequel ? Pourquoi est-il faux ?



"Ca ne marche pas" ne nous aide pas &#224; comprendre comment t'aider.



Manu

econs · Answer

Bon ben si &#231;&#224; fonctionne, ce sera &#224; m&#233;diter pour plus tard ! 

Manu

bichoncanada · Answer

ok, je saurais ca pour la suite, merci

Barre d'état

10 réponses