vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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

Fortgeschrittene Programmierung
RTF Höhe 
Autor: masc
Datum: 27.04.06 16:50
Hallo
Ich bin am verzweifeln, bitte helft mir.

Ich versuche die höhe eines RTF-Textes zu ermitteln erhalte aber immer ca. das dreifache, was mache ich falsch ?

Picture7.ScaleMode=6
printer.ScaleMode= 3
z As Currency
hoehe As Long
retVal As Long 

 
RichTextBox1.TextRTF = daten.Fields("Beschreibung")
If RichTextBox1.Text <> "" Then
      retVal = SendMessage(RichTextBox1.hwnd, EM_POSFROMCHAR,  _
      Len(RichTextBox1.Text) - 1, ByVal 0&)
      z = Picture7.ScaleY(HIWORD(retVal), 3, 6)
      hoehe = printer.ScaleY(z, 6, 3) 
End If
Danke für eure Hilfe
masc
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
RTF Höhe593masc27.04.06 16:50
Re: RTF Höhe351Holli28.04.06 14:53
Re: RTF Höhe354Holli28.04.06 15:04
Re: RTF Höhe340masc28.04.06 15:21
Re: RTF Höhe366Holli28.04.06 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ü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