vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: kleiner größer Problem 
Autor: Manfred X
Datum: 12.07.21 17:56

Hallo!

Die Items selbst zeichnen.
Einfaches Beispiel:

  'Deklaration der Listbox
  Dim WithEvents lbo As New ListBox With {.Parent = Me, .Width = 300, 
                                          .DrawMode = DrawMode.OwnerDrawFixed}
 
 'Einige Items eintragen
 lbo.Items.Add("Item eins")
 lbo.Items.Add("Item zwei")
 lbo.Items.Add("Item drei")
 
 
'Ereignis zum Zeichnen der Items
 
Private Sub lbo_DrawItem(sender As Object, e As DrawItemEventArgs) Handles _
  lbo.DrawItem
 
        e.DrawBackground()
 
        Dim txt As String = lbo.Items(e.Index).ToString
        Dim parts() As String = txt.Split(" ")
 
        Using redbrush As New SolidBrush(Color.Red),
              greenbrush As New SolidBrush(Color.Green)
 
            Dim l As Integer = 
                CInt(e.Graphics.MeasureString(parts(0) & "  ", lbo.Font).Width)
 
            e.Graphics.DrawString(parts(0) & " ", lbo.Font, greenbrush, _
              e.Bounds.Location)
            e.Graphics.DrawString(parts(1), lbo.Font, redbrush, 
                                  e.Bounds.Location.X + l, e.Bounds.Location.Y)
        End Using
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
kleiner größer Problem243Marty**10.07.21 07:46
Re: kleiner größer Problem125ModeratorDieter10.07.21 08:18
Re: kleiner größer Problem121Marty**10.07.21 09:46
Re: kleiner größer Problem80Manfred X12.07.21 17:56
Re: kleiner größer Problem65Marty**16.07.21 06:20
Re: kleiner größer Problem50Manfred X16.07.21 13:13

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-2021 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