éviter scintillement lors MAJ ListBoxRésolu

Question

Bonjour à tous, Mon souci :

une ListBox en style CheckBox contenant beaucoup de lignes (et donc une ScrollBar)

des OptionButtons permettant de modifier l'état des .selected des éléments

un code (VB6) du type :

Private Sub OptionAll_Click(Index As Integer) Dim ind As Integer With Me.ListCurve(Index) For ind = 0 To .ListCount - 1 .Selected(ind) = True ' ou dans d'autres cas : False ou encore not(.Selected(ind)) Next ind .ListIndex = 0 End With End Sub C'est pas très joli à l'écran , on voit défiler tous les items ! Du coup ça va pas non plus très vite ! Est-il possible de l'éviter ? Comment ? Faudrait pouvoir interdire temporairement le rafraichissement d'écran ... mais chais pas faire ! Merci d'avance !

PCPT · Accepted Answer

salut, il faut bloquer le refresh donc soit tu la rends invisible, mais s'il y a beaucoup d'items çà peut perturber l'utilisateur soit par API Option Explicit Private Declare Function LockWindowUpdate Lib "user32" ( ByVal hwndLock As Long ) As Long Private Sub Command1_Click() Dim ind As Integer With List1 'Me.ListCurve(Index) LockWindowUpdate .hWnd For ind = 0 To .ListCount - 1 .Selected(ind) = True Next ind .ListIndex = 0 End With LockWindowUpdate False End Sub [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] ++

Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Archeolabo · Answer

Ben ... comme d'habitude ici, réponse rapide, précise et efficace !

Merci PCPT c'est tout juste ce que je cherchais !

éviter scintillement lors MAJ ListBox

2 réponses

Votre réponse

Discussions similaires