by Muhammad Rafique (4 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 15th November 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Tile Image on the form
'nWidth and nheight are the size of one tile
Function TileImage(frm as form,nWidth as integer, nHeight as integer)
frm.AutoRedraw=True
for x=0 to frm.ScaleWidth step nWidth
for y=0 to frm.ScaleHeight Step nHeight
frm.PaintPicture frm.Picture,x,y,nWidth,nHeight
Next
Next
End Function
'Call it like
Sub Form_Load()
TileImage me,1000,700
End Sub
'Remember me as
'[email protected]