Drehende Schriften ist der Titel dieses Tipps, aber zum
drehen müssen Sie sie erst noch bringen, der Tipp greift nur die Möglichkeit auf, Schrift
in beliebiger Lage anzuzeigen.
Aber von dieser Möglichkeit bis zu einem Timer, der immer etwas drauf legt, ist es ja
nicht mehr weit und man kann wirklich ganz nette Sachen daraus machen, auch wenn dies eher
in die Rubrik Schnörkel gehört.
Für einen kleinen Test benötigen sie lediglich eine neues Projekt mit einer Form und
einem Command Button.
Unter Allgemein/Deklarationen
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFacename As String * 33
End Type Private Declare Function
CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont
As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal
hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As
Long
Unter Allgemein/FontStuff - wird durch das Code einfügen angelegt
Private Sub FontStuff(grad As Integer, fontsize As Integer)
On Error GoTo GetOut
Dim F As LOGFONT, hPrevFont As Long, hFont As Long, FontName As String
F.lfEscapement = 10 * grad
FontName = "Arial Black" + Chr$(0)
F.lfFacename = FontName
F.lfHeight = (fontsize * -20) / Screen.TwipsPerPixelY
hFont = CreateFontIndirect(F)
hPrevFont = SelectObject(Me.hdc, hFont)
CurrentX = Me.Width / 2 'mittig
CurrentY = Me.Height / 2 'mittig
Print " VB-Homepage Tipp"
hFont = SelectObject(Me.hdc, hPrevFont)
DeleteObject hFont
Exit Sub
GetOut:
Exit Sub
End Sub
Damit ist alles notwendige definiert und Sie können nun Ihre Anforderungen zur
Fontdarstellung angeben. Untenstehend ein Beispiel.
Command1_Click
Call FontStuff(60, 20)
Call FontStuff(120, 20)
Call FontStuff(180, 20)
Call FontStuff(240, 20)
Call FontStuff(300, 20)
Call FontStuff(360, 20)
Starten Sie Ihr Projekt mit F5 und Klicken auf den Command Button.
Ausgangspunkt der Darstellung ist der Formmittelpunkt, dies läßt sich natürlich auch
noch umdefinieren. Ggf. ließe sich die Funktion FontStuff auch gleich noch zur Übergabe
des Fontnamens und der Fontfarbe modifizieren. |
