|
| |
Visual-Basic Einsteiger| Re: Ich schon wieder! | |  | Autor:  Dieter (Moderator) | | Datum: 06.01.02 12:53 |
| Hi Webmassa,
probier's mal mit diesem Code
(wurde von einem User ein wenig überarbeitet):
<code><font color=green>' API - Deklaration</font>
<font color=#000099>Public</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> SelectObject <font color=#000099>Lib</font> _
"gdi32" (<font color=#000099>ByVal</font> hdc <font color=#000099>As</font> _
<font color=#000099>Long</font>, _
<font color=#000099>ByVal</font> hObject <font color=#000099>As</font> <font _
color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Public</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> DeleteObject <font color=#000099>Lib</font> _
"gdi32" (<font color=#000099>ByVal</font> hObject <font color=#000099>As</font> _
<font color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Public</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> TextOut <font color=#000099>Lib</font> "gdi32" _
<font color=#000099>Alias</font> "TextOutA" (<font color=#000099>ByVal</font> _
hdc <font color=#000099>As</font> <font color=#000099>Long</font>, _
<font color=#000099>ByVal</font> X <font color=#000099>As</font> <font _
color=#000099>Long</font>, <font color=#000099>ByVal</font> Y <font _
color=#000099>As</font> <font color=#000099>Long</font>, <font _
color=#000099>ByVal</font> lpString <font color=#000099>As</font> <font _
color=#000099>String</font>, _
<font color=#000099>ByVal</font> nCount <font color=#000099>As</font> <font _
color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Public</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> CreateFontIndirect <font color=#000099>Lib</font> _
"gdi32" <font color=#000099>Alias</font> _
"CreateFontIndirectA" (lpLogFont <font color=#000099>As</font> LOGFONT) <font _
color=#000099>As</font> <font color=#000099>Long</font>
<font color=green>' Konstanten</font>
<font color=#000099>Public</font> <font color=#000099>Const</font> LF_FACESIZE _
= 32
<font color=green>' Variablen Typen</font>
<font color=#000099>Type</font> LOGFONT
lfHeight <font color=#000099>As</font> <font color=#000099>Long</font>
lfWidth <font color=#000099>As</font> <font color=#000099>Long</font>
lfEscapement <font color=#000099>As</font> <font color=#000099>Long</font>
lfOrientation <font color=#000099>As</font> <font color=#000099>Long</font>
lfWeight <font color=#000099>As</font> <font color=#000099>Long</font>
lfItalic <font color=#000099>As</font> <font color=#000099>Byte</font>
lfUnderline <font color=#000099>As</font> <font color=#000099>Byte</font>
lfStrikeOut <font color=#000099>As</font> <font color=#000099>Byte</font>
lfCharSet <font color=#000099>As</font> <font color=#000099>Byte</font>
lfOutPrecision <font color=#000099>As</font> <font color=#000099>Byte</font>
lfClipPrecision <font color=#000099>As</font> <font color=#000099>Byte</font>
lfQuality <font color=#000099>As</font> <font color=#000099>Byte</font>
lfPitchAndFamily <font color=#000099>As</font> <font _
color=#000099>Byte</font>
lfFaceName <font color=#000099>As</font> <font color=#000099>String</font> * _
LF_FACESIZE
<font color=#000099>End</font> <font color=#000099>Type</font>
<font color=#000099>Public</font> <font color=#000099>Sub</font> Text_<font _
color=#000099>Print</font>(ByRef Object, _
<font color=#000099>ByVal</font> PosX, _
<font color=#000099>ByVal</font> PosY, _
<font color=#000099>ByVal</font> Text <font color=#000099>As</font> <font _
color=#000099>String</font>, _
Optional <font color=#000099>ByVal</font> Winkel, _
Optional <font color=#000099>ByVal</font> Grösse, _
Optional <font color=#000099>ByVal</font> Fett <font color=#000099>As</font> _
<font color=#000099>Boolean</font>, _
Optional <font color=#000099>ByVal</font> Unterstrichen <font _
color=#000099>As</font> <font color=#000099>Boolean</font>, _
Optional <font color=#000099>ByVal</font> Kursiv <font _
color=#000099>As</font> <font color=#000099>Boolean</font>, _
Optional <font color=#000099>ByVal</font> Druchgestrichen <font _
color=#000099>As</font> <font color=#000099>Boolean</font>, _
Optional <font color=#000099>ByVal</font> FontName <font _
color=#000099>As</font> <font color=#000099>String</font>)
<font color=#000099>Dim</font> hPrinterDC <font color=#000099>As</font> _
<font color=#000099>Long</font>
<font color=#000099>Dim</font> FontOld <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Dim</font> Ret <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Dim</font> hFont <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=green>' Druckt Text in einer X-Beliebigen Position aus</font>
<font color=green>' ----------------------------------------------</font>
'
<font color=green>' Parameter: Object Ausgabe- Object</font>
<font color=green>' PosX X-Koordinate in
' Twips</font>
<font color=green>' PosY Y-Koordinate in
' Twips</font>
<font color=green>' Text$ Text zum drucken</font>
<font color=green>' Optional Winkel Winkel (0 - 360)</font>
<font color=green>' Optional Grösse Textgrösse in Punkten (1
' - 250)</font>
<font color=green>' Optional Fett Ja/Nein</font>
<font color=green>' Optional Unterstrichen Ja/Nein</font>
<font color=green>' Optional Kursiv Ja/Nein</font>
<font color=green>' Optional Durchgestrichen Ja/Nein</font>
<font color=green>' Optional Fontname$ Schrifttyp</font>
'
<font color=green>' 11. Oktober 2001</font>
<font color=green>' R.Kaufmann</font>
<font color=green>' Parameter prüfen</font>
<font color=green>' ----------------</font>
<font color=#000099>If</font> IsMissing(Winkel) <font _
color=#000099>Then</font> Let Winkel = 0
<font color=#000099>If</font> IsMissing(Grösse) <font _
color=#000099>Then</font> Let Grösse = 12
<font color=#000099>If</font> IsMissing(Fett) <font _
color=#000099>Then</font> Let Fett = <font color=#000099>False</font>
<font color=#000099>If</font> IsMissing(Unterstrichen) <font _
color=#000099>Then</font> Let Unterstrichen = <font _
color=#000099>False</font>
<font color=#000099>If</font> IsMissing(Kursiv) <font _
color=#000099>Then</font> Let Kursiv = <font color=#000099>False</font>
<font color=#000099>If</font> IsMissing(FontName) <font _
color=#000099>Then</font>
Let FontName = "Arial"
<font color=#000099>Else</font>
<font color=#000099>If</font> FontName = "" <font _
color=#000099>Then</font> Let FontName = "Arial"
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=green>' Handle vom Printer in Variable einlesen</font>
<font color=green>' ---------------------------------------</font>
Let hPrinterDC = Object.hdc
Let PosX = PosX / Object.TwipsPerPixelX
Let PosY = PosY / Object.TwipsPerPixelY
<font color=#000099>If</font> Text$ = "" <font color=#000099>Then</font> _
<font color=#000099>Exit</font> <font color=#000099>Sub</font>
<font color=green>' Neuer Font kreieren</font>
<font color=#000099>Dim</font> Schrift <font color=#000099>As</font> LOGFONT
Schrift.lfHeight = (Grösse * -60) / Screen.TwipsPerPixelY <font _
color=green>' -20 should work</font>
Schrift.lfEscapement = Winkel * 10
Schrift.lfOrientation = Winkel * 10
Schrift.lfWeight = IIf(Fett = <font color=#000099>True</font>, 700, 400)
Schrift.lfItalic = Kursiv
Schrift.lfUnderline = Unterstrichen
Schrift.lfStrikeOut = Druchgestrichen
Schrift.lfCharSet = DEFAULT_CHARSET
Schrift.lfFaceName = FontName + Chr$(0)
hFont = CreateFontIndirect(Schrift)
FontOld = SelectObject(hPrinterDC, hFont)
<font color=green>' Text ausdrucken</font>
Ret = TextOut(hPrinterDC, PosX, PosY, Text, Len(Text))
<font color=green>' Alter Font wieder herstellen</font>
Ret = SelectObject(hPrinterDC, FontOld)
<font color=green>' Neuer Font löschen</font>
Ret = DeleteObject(hFont)
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=green>' === Ende Code ====</font></code>Cu
Dieter | |
 | 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 |
 |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
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
|
|
November 2025
Sie sind aktuell nicht angemeldet.
