Je cherche a faire un scroll automatique dans une listbox afin d'afficher la
progression d'un traitement SQL. Le probleme c'est qu'a chaque ajout de
ligne, une fois le bas atteint, cela ne descends pas automatiquement...
Avez vous une solution, car j'ai chercher et un post prescedent parle d'un
Autoscroll pour unr DHTMLEdit mais la listbox n'a pas de fonction scroll....
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
François Picalausa
Bonjour/soir,
Essaye ceci: 'Un commandButton, Command1 'Une Listbox, list1 'Un clavier avec Ctrl, C et V ou une souris, si on préfère. ;-) Private Sub Command1_Click() ListAddAndScroll List1, "Item" & List1.ListCount End Sub
Private Sub ListAddAndScroll(Listbox As Listbox, Test As String) Listbox.AddItem Test Listbox.TopIndex = Listbox.ListCount - 1 End Sub
"Sebdo" a écrit dans le message de news:bnnss8$3u8$
Bonjour,
Je cherche a faire un scroll automatique dans une listbox afin d'afficher la progression d'un traitement SQL. Le probleme c'est qu'a chaque ajout de ligne, une fois le bas atteint, cela ne descends pas automatiquement...
Avez vous une solution, car j'ai chercher et un post prescedent parle d'un Autoscroll pour unr DHTMLEdit mais la listbox n'a pas de fonction scroll....
Merci d'avance.
Seb
Bonjour/soir,
Essaye ceci:
'Un commandButton, Command1
'Une Listbox, list1
'Un clavier avec Ctrl, C et V ou une souris, si on préfère. ;-)
Private Sub Command1_Click()
ListAddAndScroll List1, "Item" & List1.ListCount
End Sub
Private Sub ListAddAndScroll(Listbox As Listbox, Test As String)
Listbox.AddItem Test
Listbox.TopIndex = Listbox.ListCount - 1
End Sub
"Sebdo" <websebdo@websebdo.nospam> a écrit dans le message de
news:bnnss8$3u8$1@reader1.imaginet.fr
Bonjour,
Je cherche a faire un scroll automatique dans une listbox afin
d'afficher la progression d'un traitement SQL. Le probleme c'est qu'a
chaque ajout de ligne, une fois le bas atteint, cela ne descends pas
automatiquement...
Avez vous une solution, car j'ai chercher et un post prescedent parle
d'un Autoscroll pour unr DHTMLEdit mais la listbox n'a pas de
fonction scroll....
Essaye ceci: 'Un commandButton, Command1 'Une Listbox, list1 'Un clavier avec Ctrl, C et V ou une souris, si on préfère. ;-) Private Sub Command1_Click() ListAddAndScroll List1, "Item" & List1.ListCount End Sub
Private Sub ListAddAndScroll(Listbox As Listbox, Test As String) Listbox.AddItem Test Listbox.TopIndex = Listbox.ListCount - 1 End Sub
"Sebdo" a écrit dans le message de news:bnnss8$3u8$
Bonjour,
Je cherche a faire un scroll automatique dans une listbox afin d'afficher la progression d'un traitement SQL. Le probleme c'est qu'a chaque ajout de ligne, une fois le bas atteint, cela ne descends pas automatiquement...
Avez vous une solution, car j'ai chercher et un post prescedent parle d'un Autoscroll pour unr DHTMLEdit mais la listbox n'a pas de fonction scroll....
