bichoncanada
Messages postés47Date d'inscriptionmercredi 1 mars 2006StatutMembreDernière intervention31 mai 2006
-
9 mars 2006 à 14:56
bichoncanada
Messages postés47Date d'inscriptionmercredi 1 mars 2006StatutMembreDernière intervention31 mai 2006
-
9 mars 2006 à 15:35
Bonjour,
Je veux faire une barre d'état (donc je prend le composant "status bar" pour la réaliser) mais je ne sais quel programme mettre à l'intérieur car je veux quel s'insere dans un onglet et quel indique le message de la textbox située sur un autre onglet. Voici le programme de la textbox :
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
End Sub
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 9 mars 2006 à 15:20
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
_
<spa></spa>
Vous n’avez pas trouvé la réponse que vous recherchez ?
bichoncanada
Messages postés47Date d'inscriptionmercredi 1 mars 2006StatutMembreDernière intervention31 mai 2006 9 mars 2006 à 15:29
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'état, je ne vois pas trop ce que tu veux me dire, je comprend un peu mais pas totalement