VB 5/6-Tipp 0161: Grafische Abmaße eines Textes in einer TextBox erfassen
von ActiveVB
Beschreibung
Oftmals ist es notwendig vorab die Abmaße zu kennen die ein Textstring in einer TextBox oder einem Label einehmen wird. Die DrawText Funktion macht dies möglich.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: | Download: |
'Dieser Quellcode stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! '------------- Anfang Projektdatei Project1.vbp ------------- '--------- Anfang Formular "Form1" alias Form1.frm --------- ' Steuerelement: Textfeld "Text1" ' Steuerelement: Beschriftungsfeld "Label1" Option Explicit Private Declare Function DrawText Lib "user32" Alias _ "DrawTextA" (ByVal hdc As Long, ByVal lpStr As _ String, ByVal nCount As Long, lpRect As RECT, _ ByVal wFormat As Long) As Long Const DT_CALCRECT = &H400 Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Sub Form_Load() Text1.Text = "Hallo!" End Sub Private Sub Text1_Change() Dim hDcT&, R As RECT hDcT = Text1.Parent.hdc Call DrawText(hDcT, CStr(Text1.Text), -1, R, DT_CALCRECT) Me.Caption = " w-" & R.Right & " h-" & R.Bottom Label1.Width = R.Right * Screen.TwipsPerPixelX Label1.Height = R.Bottom * Screen.TwipsPerPixelY End Sub '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Project1.vbp --------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.
Archivierte Nutzerkommentare
Klicken Sie diesen Text an, wenn Sie die 3 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.
Kommentar von Michael Günther am 09.03.2005 um 20:44
Sehr geehrte Damen und Herren,
ihre Tippsammlung find ich in dieser Form nur einmal im Internet, vielen Dank dafür!
Meine Frage Gibt es die DraWText-Funktion auch für die Richtextbox so das ich Textabmessungen bei unterschiedlichen Fontsize-Eigenschaften erstellen kann?
Die Funktion funktioniert zwar aber nur mit einer vorgegebenen Texthöhe! Oder wie kann ich sonst die Abmaße in der RichTextBox bei unterschiedlichen Fontgößen fest stellen?
Vielen Dank für die Mühe
Michael
Kommentar von Nase am 28.04.2003 um 08:23
Bei Textfeldern scheint es zu funktionieren.
Ich bräuchte diese Funktion für eine RTFBox die unterschiedliche Textformatierungen beinhaltet (fett, kursiv).
Da bekomme ich mit dieser Funktion immer eine viel zu lange Control Länge berechnet.
Kommentar von Frank Dzaebel am 06.12.2001 um 20:17
Wenn man am Anfang von Text1_Change()
Dim f As StdFont, P As Form: Set P = Text1.Parent
Set f = P.Font: Set P.Font = Text1.Font: hDcT = P.hdc
und am Ende
Set P.Font = f
einfügt, klappts auch mit variablem Font der Textbox.