• Home
 · 
• Graphics
 · 
• This module creates 3D Text All you have to do is to give the text you want to convert to 3D Text,

This module creates 3D Text All you have to do is to give the text you want to convert to 3D Text,

This module creates 3D Text All you have to do is to give the text you want to convert to 3D Text, the BackColor, the ForeColor, X,Y mode (1

Rate This module creates 3D Text All you have to do is to give the text you want to convert to 3D Text,

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'All you have to do is to give the text you want to
'convert to 3D Text, the BackColor, the ForeColor, X,Y
'mode (1 for UpLeft, 2 for UpRight, 3 for DownLeft, 4 for DownRight)
' and the destination surce (form or picturebox)
'Enjoy
Public Function DDDText(ByVal Text As String, ByVal X As Single, ByVal Y As Single, ByVal BColor As ColorConstants, ByVal FColor As ColorConstants, ByVal Mode As Integer, ByVal Destination)
On Error GoTo err
Select Case Mode
   Case 1:
     GoTo leftu
   Case 2:
     GoTo rightu
   Case 3:
     GoTo downl
   Case 4:
     GoTo downr
   Case Else
    GoTo err
End Select
Exit Function

leftu:
Destination.ForeColor = BColor
Destination.CurrentX = X
Destination.CurrentY = Y
For i = 1 To 100
    Destination.Print Text
    X = X + 1
    Y = Y + 1
    Destination.CurrentX = X
    Destination.CurrentY = Y
Next
Destination.ForeColor = FColor
Destination.Print Text
GoTo enda

rightu:
Destination.ForeColor = BColor
Destination.CurrentX = X
Destination.CurrentY = Y
For i = 1 To 100
    Destination.Print Text
    X = X - 1
    Y = Y + 1
    Destination.CurrentX = X
    Destination.CurrentY = Y
Next
Destination.ForeColor = FColor
Destination.Print Text
GoTo enda

downl:
Destination.ForeColor = BColor
Destination.CurrentX = X
Destination.CurrentY = Y
For i = 1 To 100
    Destination.Print Text
    X = X + 1
    Y = Y - 1
    Destination.CurrentX = X
    Destination.CurrentY = Y
Next
Destination.ForeColor = FColor
Destination.Print Text
GoTo enda

downr:
Destination.ForeColor = BColor
Destination.CurrentX = X
Destination.CurrentY = Y
For i = 1 To 100
    Destination.Print Text
    X = X - 1
    Y = Y - 1
    Destination.CurrentX = X
    Destination.CurrentY = Y
Next
Destination.ForeColor = FColor
Destination.Print Text
GoTo enda

err:
MsgBox "There was an error during creation"
enda:
End Function