vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

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

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Tipp 2075: Setzen der DropDown-Breite einer Combobox 
Autor: GPM
 Tipp anzeigenDatum: 23.09.09 13:22

Ein anderer Lösungsansatz ohne Label und API

1. TextRenderer.MeasureText anstelle des Labels.
2. Die SystemInformation-Klasse statt der API-Funktion.
3. Srollbar vorhanden/nicht vorhanden berücksichtigen.

Public Sub SetComboDropdownWidth(ByVal cmb As ComboBox)
    Dim w, iw As Int32
    For i As Int32 = 0 To cmb.Items.Count - 1
        iw = TextRenderer.MeasureText(cmb.Items(i).ToString, cmb.Font).Width
        If iw > w Then w = iw
    Next
    If cmb.Items.Count > cmb.MaxDropDownItems Then
        w += SystemInformation.VerticalScrollBarWidth
    End If
    cmb.DropDownWidth = w
End Sub
MfG GPM
0
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Setzen der DropDown-Breite einer Combobox 
Autor: dh
Datum: 23.09.09 15:25

Hallo GPM,

gute Idee, gefällt mir sogar besser als mein Tipp, werd's übernehmen.

Ciao-

Salzburger

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 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