Printing pixels around the name.

by vinodkumar (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 13^th December 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Dim tw As Single Dim th As Single

Rate Printing pixels around the name.



Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
DrawWidth = 2
Me.FontSize = 30
CurrentX = Me.ScaleWidth / 2
CurrentY = Me.ScaleHeight / 2
str = "Vinod"
tw = TextWidth(str)
th = TextHeight(str)
Print str
stx = Me.ScaleWidth / 2
sty = Me.ScaleHeight / 2
For lft = stx To (stx + tw) Step 70
For wd = sty To (sty + th) Step 70
PSet (lft, wd), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents
Next
DoEvents
Next
End Sub

Download this snippet Add to My Saved Code

Printing pixels around the name. Comments

No comments have been posted about Printing pixels around the name.. Why not be the first to post a comment about Printing pixels around the name..

Printing pixels around the name.

Printing pixels around the name. Comments

Post your comment

Difficulty