Library code snippets
Print 3D text of a form
By Abdul, published on 14 Jul 2001
Print 3D text of a form
This simple code print the 3D text "Abdul Baig" on the top left corner of the form. You can change The text "Abdul Baig" to whatever you like. You can also change the tail of the text. You must set the from's autoredraw property to true.
Dim i As Integer
Dim sx As Integer
Dim sy As Integer
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.ForeColor = vbBlue 'Set the shadow(tail) color to blue. You can set your own colour here
Form1.ScaleMode = 3 'should always set to pixels(3)
Form1.FontBold = True 'It is used to just show the text more clear
sx = 2
sy = 2
For i = 0 To 10 'you can set the end position of i to the length of the shadow(tail)
CurrentX = sx + i
CurrentY = sy + i
If i = 10 Then Form1.ForeColor = vbWhite 'The number of i should always set to the end number of i in the loop
'vbwhite is the forecolour of the text now. You can change the colour here
Form1.Print "Abdul Baig" 'You can change the text to what ever you want
Next
End Sub
Related articles
Related discussion
-
Problem with migration to C# (CoCreateInstanceEx)
by LRollison (1 replies)
-
VB6 Problem Creating Shortcuts
by rb1177 (0 replies)
-
how can i open a file
by kyawswarhtun (0 replies)
-
how to save any one form what i want?
by blackguy (5 replies)
-
Build an MP3 Player
by soybees (4 replies)
Related podcasts
-
Christian Beauclair
14 mai 2008 (�mission #0074) ::.Christian Beauclair: Stratégies de migration VB6 vers .NET Nous discutons avec Christian Beauclair des stratégies de migration VB6 vers .NET. Entre autres, nous discutons comment utiliser le "VB 6 Code Advisor" et le "Interop Forms Toolkit" pour ajouter la puiss...
This thread is for discussions of Print 3D text of a form.