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

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 38 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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