Michael Köhler schrieb:
Ich hab meinen Rechner eben nebenbei ein wenig Rechnen lassen (welch Wunder
xD) und hab ein wenig in der Sprachreferenz gelesen. In der Graphicsklasse
gab es das (Methoden eines Graphics) um die Höhe und Weite eines Strings zu
ermitteln. Ich zitier mal eben aus dem Köpfchen mit meinen Worten:
StringWidth(Text)
Ermittelt die Weite von "Text" in Pixel in Abhängigkeit von der Schriftart
und Größe
StringHeight(Text, WrapWidth)
Ermittelt die Höhe von "Text" in Pixel in Abhängigkeit von der Schriftart
und Größe. WrapWidth gibt an, bei welcher Weite "Text" umgebrochen wird und
eine neue Zeile begonnen wird.
Am 19.10.2007 18:12 Uhr schrieb "Michael Köhler" unter
<[EMAIL PROTECTED]>:
Gerne doch...ich versuch es mal aus dem Kopf zu beschreiben
Dim Mein_Bild As Picture
Dim Mein_Graphics As New Graphics
Dim Mein_String As New StringShape
Mein_String.Text="Ich bin gedreht!"
Mein_String.TextFont="Arial"
Mein_String.Rotation=3.1415/2 '90-grad-Drehung
Mein_Bild=NewPicture(100,200,2)
Mein_Bild.Graphics.DrawObject Mein_String,50,50
Mein_Graphics=OpenPrinterDialog()
If Mein_Graphics<>NIL Then
Mein_Graphics.DrawPicture Mein_Bild,0,0
End If
War glaub ich genau so und klappt auch ganz gut. Irgendwie, ich weis jetzt
nicht wie, kann man auch die Größe(bzgl. Weite und Höhe des Strings)
bestimmen und dann könnte man das Bild entsprechend erzeugen. Ich hab da ja
jetzt nur mal so feste Werte vorgegeben. Wenn ich daheim bin schau ich
nochmal wie das ging. Ich brauchte nämlich die Höhe und Weite von Strings
beim Drucken damit ich wusste wann ich ne neue Seite einleiten musste.
Grüße Michael
Hallo Michael,
nochmals dank für deine hilfestellung, mit der es mir nun gelungen ist,
auch gedrehte strings zu drucken. Allerdings kämpfe ich jetzt mit den
werten der strings, sprich _stringwidth_ und _stringheight_, weil ich es
nicht herausbekomme, wie und wo ich sie ermittle, bzw. wie ich sie übergebe.
Danke vorab
enno
