Discussion :

[BMT_Benoît]

Bonjour à tous,

Une fois encore, je vous sollicite pour connaitre une solution pour réaliser la fonction suivante :
Je suis en train de créer un petit soft et j'aimerais faire une petite fenêtre ou différents messages s'ajouteraient les uns à la suite des autres ... histoire de maintenir l'utilisateur au courant des opérations en cours...

Exemple :

Init en cours...
... init réalisée
Test de la connection en cours...
... connection ok!

etc.
Je travaille avec VB2005.
Merci d'avance de l'aide que vous pourrez m'apporter.

[hellspawn_ludo]

Etant au boulot, je te donne l'idée de ce que je ferais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub ConnectionBDD()
 
my.forms.form2.label1.text="Connection en cours..."
 
'Ton code de traitement de connexion par exemple
.
.
.
 
'A la fin du traitement
my.forms.form2.label1.text=my.forms.form2.label1.text & chr(13) & "Connection établie."
 
end sub()

Voilà pour ma part.

[Pol63]

tout simplement ca à faire en effet ...
et si tu veux faire un peu plus joli tu peux faire une fonction sur ta fenetre où il y a le label



public sub ajoute_texte(texte as string)
me.label1 &= texte & vbcrlf
end sub



et dès que tu veux consigner un évènement tu fais form1.ajoute_texte (" Initialisation Terminée")

[SaumonAgile]

Moi j'aime bien utiliser un listview pour faire ça.
J'ajoute une colonne avec la gravité du message (erreur, warning, info, debug), et une colonne date. Je peux ainsi trier les messages en fonction des besoins.

[BMT_Benoît]

Merci à tous pour vos réponses...
Personnellement, je pense que la technique de sperot51 me parait très intéressante...
Au final, ce que je cherche à faire, c'est afficher l'historique des différents évènements, et pourquoi pas pouvoir le sauvegarder au cas où l'utilisateur rencontrerait un problème...

sperot51,
Aurais tu la gentillesse de me "traduire" la ligne de code

Code Visual Basic 2005 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
public sub ajoute_texte(texte as string)
me.label1 &= texte & vbcrlf
end sub

... j'suis débutant, et j'aimerais bien comprendre ce que je fais (surtout si j'obtiens un message d'erreur comme en ce moment même!!!)

J'ai un label (inclus dans un panel) nommé status_lbl et ai écrit :

Code Visual Basic 2005 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Public Sub ajoute_texte(ByVal status_text As String)
        Me.status_lbl &= status_text & vbCrLf
    End Sub

J'obtiens le message

Operator '&' is not defined for types 'System.Windows.forms.label' and 'string'

Encore merci à tous,
Et merci pour les futurs explications.
--
Benoît

[Pol63]

je t'ai induis en erreur en effet ^^
dsl


enfin l'erreur c'est que un label c'est un objet, ce n'est pas une chaine de caractère et on ne peut pas mélanger les torchons et les serviettes

et en fait quand tu fais label.Text ca marche beaucoup mieux
car la propriété texte est une chaine de caractère et puis ca tombe bien c'est ce que tu voulais faire

[BMT_Benoît]

Merci beaucoup Sperot51
Hum...
Dernier petit détail... J'ai utilisé un TextBox au lieu d'un label. Ca fonctionne bien, mais j'aimerais que la partie visible (le texte est bien plus grand que le TextBox) soit les dernières lignes ajoutées...

C'est quelle fonction pour forcer le scrollbar vertical à rester en bas?
Merci d'avance.

[Pol63]

il faut feinter à mettre le curseur en bas
textbox.selstart = len(textbox.text) ou un truc approchant

[BMT_Benoît]

Ok... j'ai essayé ça :

Code Visual Basic 2005 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Public Sub ajoute_texte(ByVal status_text As String)
        status_tbx.Text &= status_text & vbCrLf
        status_tbx.SelectionStart = Len(status_tbx.Text)
    End Sub

La ligne "SelectionStart" me retourne une valeur, mais je ne sais pas quoi en faire ensuite...

J'ai aussi essayé ça :

Code Visual Basic 2005 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Public Sub ajoute_texte(ByVal status_text As String)
        status_tbx.Text &= status_text & vbCrLf
        status_tbx.ScrollToCaret()
    End Sub

... mais le "caret" n'existe pas ou n'est pas bien placé parce que je reste toujours au début de mon texte...

Une idée?
Merci d'avance pour vos réponses...

[BMT_Benoît]

Bonjour,

Mon ami Phil m'a donné la solution. La voici :

Code VB2005 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub add_status_text(ByVal status_text As String)
        status_tbx.Text &= status_text & vbCrLf
        status_tbx.SelectionStart = status_tbx.Text.Length
        status_tbx.ScrollToCaret()
    End Sub

Merci à tous, et merci Phil