Surveiller les ajouts dans une ListBox
Résolu
myarouvb
Messages postés
40
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
4 avril 2005
-
24 mars 2005 à 19:19
myarouvb Messages postés 40 Date d'inscription samedi 11 novembre 2000 Statut Membre Dernière intervention 4 avril 2005 - 24 mars 2005 à 21:17
myarouvb Messages postés 40 Date d'inscription samedi 11 novembre 2000 Statut Membre Dernière intervention 4 avril 2005 - 24 mars 2005 à 21:17
A voir également:
- Surveiller les ajouts dans une ListBox
- Listbox delphi ✓ - Forum Delphi / Pascal
- Sql ajouter une colonne dans un select ✓ - Forum ASP / ASP.NET
- Vba listbox additem - Forum Visual Basic
- Tkinter listbox ✓ - Forum Python
- [VBA] ListBox avec plusieurs colonnes - Forum Visual Basic 6
4 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
24 mars 2005 à 20:47
24 mars 2005 à 20:47
Un Timer nommé Timer1
Un bouton nommé Command1 pour entrer des éléments dans la listbox
Un TextBox nommé Text1 pour taper un élément à entrer dans la listbox
Une ListBox nommée List1
=========================
Private Sub Command1_Click()
Dim s As String
List1.AddItem Text1.Text
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Dim i As Long
For i = 0 To List1.ListCount - 1
If Not (InStr(1, List1.List(i), " - ", vbTextCompare) = 20) Then
List1.List(i) = Now & " - " & List1.List(i)
End If
Next i
End Sub
=========================
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Un bouton nommé Command1 pour entrer des éléments dans la listbox
Un TextBox nommé Text1 pour taper un élément à entrer dans la listbox
Une ListBox nommée List1
=========================
Private Sub Command1_Click()
Dim s As String
List1.AddItem Text1.Text
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Dim i As Long
For i = 0 To List1.ListCount - 1
If Not (InStr(1, List1.List(i), " - ", vbTextCompare) = 20) Then
List1.List(i) = Now & " - " & List1.List(i)
End If
Next i
End Sub
=========================
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
24 mars 2005 à 20:48
24 mars 2005 à 20:48
Note : il n'y a pas de méthode pour "surveiller" l'ajout dans une
listbox. C'est pourquoi j'ai utilisé un timer pour vérifier que chaque
élément possède bien la date en tête de string.
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
listbox. C'est pourquoi j'ai utilisé un timer pour vérifier que chaque
élément possède bien la date en tête de string.
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
pjcleder
Messages postés
183
Date d'inscription
jeudi 4 février 2010
Statut
Membre
Dernière intervention
16 septembre 2011
11
24 mars 2005 à 20:54
24 mars 2005 à 20:54
PAT
Il faut qu'à chaque action effectué sur ta liste, tu ailles écrire dans un log.
Derrière chaque additem, tu écrit:
Call AjoutDonnee(Now() & "Ajout d'une ligne dans la liste","C:\MonFichierLog.txt")
Public Sub AjoutDonnee(strContent As String, strChemFich As String)
Dim F As Integer
F = FreeFile
Open strChemFich For Append As #F
Print #F, strContent
Close #F
End Sub
Tu peux l'utiliser également pour les suppressions ou tout autre événement que tu veux tracer.
Appelle en cas de souci.
Il faut qu'à chaque action effectué sur ta liste, tu ailles écrire dans un log.
Derrière chaque additem, tu écrit:
Call AjoutDonnee(Now() & "Ajout d'une ligne dans la liste","C:\MonFichierLog.txt")
Public Sub AjoutDonnee(strContent As String, strChemFich As String)
Dim F As Integer
F = FreeFile
Open strChemFich For Append As #F
Print #F, strContent
Close #F
End Sub
Tu peux l'utiliser également pour les suppressions ou tout autre événement que tu veux tracer.
Appelle en cas de souci.
myarouvb
Messages postés
40
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
4 avril 2005
24 mars 2005 à 21:17
24 mars 2005 à 21:17
econs, tu peux m'expliquer ta ligne de code :
InStr(1, List1.List(i), " - ", vbTextCompare) = 20
Merci!
pjcleder, tu réponds de facon indeirecte à une question que je me posais. Merci beaucoup lol !
InStr(1, List1.List(i), " - ", vbTextCompare) = 20
Merci!
pjcleder, tu réponds de facon indeirecte à une question que je me posais. Merci beaucoup lol !
