Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ListView Textfarbe
Autor: Lutz
Datum: 07.02.02 17:28
Hallo Dieter, die Zeile in der jeweiligen Spalte wird farbig, aber ich möchte die ganze Spalte "Ausgang" abwärts bis zum Ende rot markieren, könntest Du noch mal schauen . Nachstehend mein Code: With ListView1 .CheckBoxes = True '***Schrift Fett*** .Font.Bold = False '***Umstellen auf "Report"-Ansicht*** .View = lvwReport '***Gitterlinien einfügen****** .Gridlines = True '***Ganze Zeile markieren****** .FullRowSelect = True '***Spalten andere Reihenfolge***** .AllowColumnReorder = True '***Column-Headers hinzufügen*** .ColumnHeaders.Add , , "Öffnen" .ColumnHeaders.Add , , "Name" .ColumnHeaders.Add , , "Bemerkung" .ColumnHeaders.Add , , "Eingang" .ColumnHeaders.Add , , "Ausgang" 'diese Spalte komplett abwärts Textfarbe rot .ColumnHeaders.Add , , "Adresse" .ColumnHeaders.Add , , "PLZ" .ColumnHeaders.Add , , "Wohnort" '***Ausrichtung*** .ColumnHeaders(1).Alignment = lvwColumnLeft .ColumnHeaders(2).Alignment = lvwColumnLeft .ColumnHeaders(3).Alignment = lvwColumnLeft .ColumnHeaders(4).Alignment = lvwColumnLeft .ColumnHeaders(5).Alignment = lvwColumnLeft .ColumnHeaders(6).Alignment = lvwColumnLeft .ColumnHeaders(7).Alignment = lvwColumnLeft .ColumnHeaders(8).Alignment = lvwColumnLeft '***Breite*** .ColumnHeaders(1).Width = 800 'ID .ColumnHeaders(2).Width = 1800 'Name .ColumnHeaders(3).Width = 1900 'Vorname .ColumnHeaders(4).Width = 1430 'Telefon .ColumnHeaders(5).Width = 1430 'Handy .ColumnHeaders(6).Width = 1900 'Adresse .ColumnHeaders(7).Width = 700 'PLZ .ColumnHeaders(8).Width = 1300 'Ort For Index = 1 To MaxAnzahl Step 1 Set itemX = .ListItems.Add(, , Index) itemX.SubItems(1) = Nachname(Index) ' & ", " & Vorname(Index) itemX.SubItems(2) = Vorname(Index) itemX.SubItems(3) = Eingang(Index) itemX.SubItems(4) = Ausgang(Index) itemX.SubItems(5) = Adresse(Index) itemX.SubItems(6) = PLZ(Index) itemX.SubItems(7) = Ort(Index) Next End With '***Farbe*nur Zeilenweise*** With ListView1.ListItems(1) ' 1. Spalte .ForeColor = vbBlue ' 2. Spalte (SubItem(1)) .ListSubItems(1).ForeColor = vbRed ' 3. Spalte (SubItem(2)) .ListSubItems(2).ForeColor = vbGreen End With ListView1.Refresh ======================================================== Danke Lutz

ListView Textfarbe	141	Lutz	06.02.02 17:52
Re: ListView Textfarbe	1.647	Dieter	06.02.02 18:40
Re: ListView Textfarbe	133	Lutz	07.02.02 17:28
Re: ListView Textfarbe	1.621	Dieter	07.02.02 18:43
Re: Tausend Dank	111	Lutz	08.02.02 09:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen