3D-Text Realisierung Hier wird gezeigt, wie Sie einen Text mit einem 3D-Effekt und variabler Schattentiefe versehen können.
Autor:   Heinz Prelle	Bewertung:	Views:  21.071
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Der nachfolgende Tipp zeigt, wie Sie einen Text mit einem 3D-Effekt und variabler Schattentiefe versehen können. Übergeben Sie der Funktion fExtrusion den gewünschten Text, die Schattenfarbe (Rotz/Grün/Blau) und optional noch die Schrift, die Größe und Vordergrundfarbe.

Hinweis:
Die Eigenschaft AutoRedraw der Form muß auf True gesetzt werden.

Private Function fExtrusion(objForm As Form, _
  Text As String, iExDepth As Integer, _
  ByVal iRed As Integer, ByVal iGreen As Integer, _
  ByVal iBlue As Integer, Optional iFont As String = "", _
  Optional iSize As Integer = 0, _
  Optional fColor As Long = 0)
 
  On Error Resume Next
  Dim iCount As Integer
 
  With objForm
   If iFont <> "" Then .FontName = iFont
   If iSize > 0 Then .FontSize = iSize
 
    For iCount = 0 To iExDepth
      .CurrentX = iCount
      .CurrentY = iCount
      .ForeColor = RGB(iRed, iGreen, iBlue)
      iRed = iRed + 255 / iExDepth
      iGreen = iGreen + 255 / iExDepth
      iBlue = iBlue + 255 / iExDepth
      objForm.Print Text
    Next
 
    .CurrentX = iCount
    .CurrentY = iCount
    If fColor <> 0 Then .ForeColor = fColor
    objForm.Print Text
  End With
End Function

Beispiel für den Aufruf:

Private Sub Form_Load()
  fExtrusion Me, "vb@rchiv", 5, 0, 0, 0, , 24, &HA56B39
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle 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.