Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic debugage dans un champs text

debugage dans un champs text

1 réponse
Avatar
sylvie
Bonjour,

j'ai un champ texte sous vb6.

j'ai des messages de debug qui arrivent assez régulierement.

je voudrais afficher les 5 derniers messages dans la fenetre et quand un 6e
arrive, effacer automatiquement le plus ancien.

y a des fonctions toutes faites pour ca en vb ?

Merci.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Zoury
Salut Sylvie !

y a des fonctions toutes faites pour ca en vb ?



Nope. :O)
Mais ça n'est pas très compliqué.

Voici une façon de faire :
'***
' Form1
' 1 CommandButton
' 1 TextBox
Option Explicit

Private Sub Command1_Click()

Static n As Integer
n = n + 1
Call AddMessage("line " & n)

End Sub

Private Sub AddMessage(ByRef sMessage As String)

Static nLineCount As Long

Text1.SelStart = Len(Text1.Text)
If (nLineCount < 5) Then
Text1.SelText = sMessage & vbNewLine
nLineCount = nLineCount + 1
Else
Text1.Text = Mid$(Text1.Text, InStr(Text1.Text, vbNewLine) + 2) &
sMessage & vbNewLine
End If

End Sub

Private Sub Form_Load()
Text1.Text = ""
End Sub
'***

Note que tu pourrais aussi utiliser un ListBox..

--
Cordialement
Yanick
MVP pour Visual Basic