Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sorgen mit TextWidth
Autor: _Felix_
Datum: 25.03.05 18:32
hatte mal folgendes unter VB6 geschrieben. und brauchte eine Anpassung zu VS.Net 2003 zur Erklärung die Listbox.width wird abhängig von Schrift und Text eingestellt dann abhängig von der Titelleiste und Rand die Form größe gestellt. Danke für jeden Tipp Felix Private Sub Form_Load() Me.Font.Name = "Arial" Me.Font.SIZE = 11 Dim PR as Long ,PT as Long Dim str0 as string PR = (Me.Width - Me.ScaleWidth) / 2 'Rand PT = Me.Height - Me.ScaleHeight str0 = " Max Länge im der Listbox " L = TextWidth(str0) + (PR * 2) List_Gruß.Width = L List_Gruß.Height = TextHeight("WM") * 21 List_Gruß.Left = PR List_Gruß.Top = PR List_Gruß.Font.Name = "Arial" List_Gruß.Font.SIZE = 11 List_Gruß.AddItem str0 List_Gruß.AddItem " usw****" Me.Width = L + PR * 4 Me.Height = PT + List_Gruß.Top + List_Gruß.Height End Sub

sorgen mit TextWidth

1.295

_Felix_

25.03.05 18:32

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