Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Schriftart
Autor: A.Wirt
Datum: 31.08.05 10:13
Ich habe versuch, und war einbisschen überfordert. Alles lag in ShowFont- wo bei mir nach konventierung 4 Fehlern aufgetretten. Ich habe die Zeile markiert. Wenn Sie haben ein bischen wenig Zeit könnnen sie mir Das weiter helfen? Sonst die Code war ziemlich leicht konventierbar. Public Function ShowFont(ByVal lOwnerHwnd As Integer) As Boolean On Error Resume Next Dim fnt As LOGFONT Dim cf As ChooseFont Dim RetVal As Integer Const PointsPerTwip As Short = 1440 / 72 With fnt .lfHeight = -(vFont.SizeInPoints * (PointsPerTwip / VB6.TwipsPerPixelY)) .lfItalic = vFont.Italic .lfStrikeOut = vFont.Strikeout .lfUnderline = vFont.Underline .lfWeight = vFont.Weight Hier war unkonventierbar End With StrToBytes(fnt.lfFaceName, (vFont.Name)) With cf .lStructSize = Len(cf) .hdc = Printer.hDC Hier war unkonventierbar .lpLogFont = VarPtr(fnt) Hier war unkonventierbar .iPointSize = vFont.SizeInPoints * 10 .Flags = lFlags Or CF_INITTOLOGFONTSTRUCT .hwndOwner = lOwnerHwnd .rgbColors = vColor End With RetVal = ChooseFont_Renamed(cf) If RetVal <> 0 Then vColor = cf.rgbColors With vFont vFont = VB6.FontChangeBold(vFont, cf.nFontType And BOLD_FONTTYPE) vFont = VB6.FontChangeItalic(vFont, fnt.lfItalic) vFont = VB6.FontChangeStrikeout(vFont, fnt.lfStrikeOut) vFont = VB6.FontChangeUnderline(vFont, fnt.lfUnderline) .Weight = fnt.lfWeight Hier war unkonventierbar vFont = VB6.FontChangeSize(vFont, cf.iPointSize / 10) vFont = VB6.FontChangeName(vFont, BytesToStr(fnt.lfFaceName)) End With ShowFont = True End If End Function

Schriftart	707	A.Wirt	28.08.05 09:18
Re: Schriftart	528	vbtricks	28.08.05 14:32
Re: Schriftart	455	A.Wirt	29.08.05 21:11
Re: Schriftart	437	vbtricks	30.08.05 13:11
Re: Schriftart	524	A.Wirt	31.08.05 10:13

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