Βάψτε ένα ListView

Δημοσιεύτηκε από Ελισσαιέ σε ελέγχους , Παραδείγματα στις 01 7th, 2009 | 5 απαντήσεις

Εδώ δίνω μια υπορουτίνα που βρήκα πολύ χρήσιμο για πολλά χρόνια. Η λειτουργία χρωματίζει τις γραμμές του σε εναλλασσόμενο χρώματα listview δύο, αυτό θα διευκολύνει σημαντικά την ανάγνωση όταν η listview έχει πολλές στήλες ή στηλών είναι πολύ μεγάλη. 

 Public Sub colorearListView (λίστα ByRef Όπως ListView)
 Dim i As Integer
 Για i = 0 list.Items.Count - 1
 Αν i = Int (θ / 2) * 2 Στη συνέχεια,
 list.Items.Item (θ). BackColor = Color.White
 Αλλού
 list.Items.Item (θ). BackColor = Color.LightGoldenrodYellow
 End If
 Επόμενη
 list.FullRowSelect = True
 Sub End

Είμαι βέβαιος ότι με πολύ λίγη προσπάθεια μπορεί να ταιριάζουν στις ανάγκες σας, επίσης, και η βελτίωσή της.

5 απαντήσεις σε "Χρώμα ένα ListView"

  1. cibernetiko λέει:
    01/07/2009 στις 11:28 π.μ.

    εξαιρετική κωδικό .. δίνει μια πολύ πιο επαγγελματική πινελιά στις listview .. ευχαριστίες

    Απάντηση
  2. NicoNqn λέει:
    31/03/2011 στις 12:44 π.μ.

    Γεια σας, πολύ καλή σελίδα με βοήθησαν πολύ, αλλά έχω ένα πρόβλημα με ένα listview, είμαι χρησιμοποιώντας το Visual 2005.
    Έχω 2 στήλες (δωμάτιο, κράτος) και 2 γραμμές (π.χ.: Δωμάτιο: 1, Κατάσταση: Απασχολημένος, δωματίων: 2, Κατάσταση: Δωρεάν κλπ). Χρειάζομαι ότι αν η κατάσταση του ενός από τα δωμάτια είναι κατειλημμένο κελί ή κόκκινη μπογιά μου cuaquier color.Solamente να χρωματίσει με κόκκινο κατάσταση των κυττάρων, σε αυτό το παράδειγμα θα ήταν η γραμμή 1, στήλη 1.
    Προσπαθώ με αυτόν τον κωδικό (lstGrilla.Items (γραμμή). Υποστοιχεία (COL). BackColor = Color.Red), αλλά δεν μπορώ μακριά
    Ελπίζω ότι μπορεί να εξηγηθεί από τα ήδη .. σας ευχαριστώ πολύ.!

    Απάντηση
  3. l_kamikaze_l λέει:
    16/07/2011 στις 5:57 π.μ.

    δικαιολογία για την άγνοια .. αλλά kiero καλέσετε τα επιμέρους σε περίπτωση φόρτωσης της μορφή και όχι ως .. Βοήθησέ με hehe! από Φα ..!

    Απάντηση
  4. Geronimo Φερνάντες λέει:
    26/10/2011 στις 23:27 μ.μ.

    Για να χρησιμοποιήσετε τη λειτουργία απλά πρέπει να περάσει το όνομα του listview σας, ως παράμετρο:

    Private Sub Form1_Load (αποστολέα ....

    colorearListView (ListView1)

    Sub End

    Απάντηση
  5. Pako λέει:
    20/02/2012 στις 17:42 μ.μ.

    Γεια σας,

    Αναζητώντας το google πώς να αλλάξετε το χρώμα για να ListView παίρνει εδώ :)

    Υπηρέτησα τον κωδικό, ευχαριστώ, έχω αλλάξει κάτι για τη βελτιστοποίηση και αυτό ήταν το αποτέλεσμα:

    Public Sub colorearListView (λίστα ByRef Όπως ListView)
    Δημ. Χρώμα Χρώμα Όπως Color.FromArgb = (0, 225, 239, 253)
    Dim i As Integer
    Για i = 0 list.Items.Count - 1 Βήμα 2
    list.Items.Item (θ). BackColor = χρώμα
    Επόμενη
    list.FullRowSelect = True
    Sub End

    Και για έγχρωμες εκτυπώσεις:

    colorearListView (ListView1)

    Χαιρετισμούς

    Απάντηση

Σχόλιο