vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: ListView Textfarbe 
Autor: ModeratorDieter (Moderator)
Datum: 07.02.02 18:43
Hallo Lutz,

hierzu würde ich eine kleine Prozedur einsetzen: 
<code><font color=green>' ListView-Spalte farbig darstellen</font>
<font color=green>' lRow = Zeile oder 0 für gesamte Spalte (alle Zeilen)</font>
 
<font color=#000099>Public</font> <font color=#000099>Sub</font> lvw_SetColor( _
  lvw <font color=#000099>As</font> ListView, _
  <font color=#000099>ByVal</font> lColor <font color=#000099>As</font> <font _
  color=#000099>Long</font>, <font color=#000099>ByVal</font> lColumn <font _
  color=#000099>As</font> <font color=#000099>Long</font>, _
  Optional <font color=#000099>ByVal</font> lRow <font color=#000099>As</font> _
  <font color=#000099>Long</font> = 0)
 
  <font color=#000099>Dim</font> itemX <font color=#000099>As</font> ListItem
 
  <font color=#000099>For</font> Each itemX In lvw.ListItems
    <font color=#000099>If</font> lColumn = 1 <font color=#000099>Then</font>
      <font color=green>' 1. Spalte</font>
      itemX.ForeColor = lColor
    <font color=#000099>Else</font>
      <font color=green>' SubItem</font>
      itemX.ListSubItems(lColumn).ForeColor = lColor
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Next</font>
  lvw.Refresh
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Nach dem Füllen des ListView-Controls dann folgenden Aufruf einfügen: 
<code><font color=green>' Spalte "Ausgang" farbig</font>
lvw_SetColor ListView1, vbRed, 4</code>
Die Prozedur lvw_SetColor muss weiterhin auch immer dann aufgerufen werden, wenn dem ListView später noch weitere Einträge hinzugefügt werden.

Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ListView Textfarbe141Lutz06.02.02 17:52
Re: ListView Textfarbe1.647ModeratorDieter06.02.02 18:40
Re: ListView Textfarbe133Lutz07.02.02 17:28
Re: ListView Textfarbe1.622ModeratorDieter07.02.02 18:43
Re: Tausend Dank111Lutz08.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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel