README.md

Description

Quickly Tile a Form Background using VB PaintPicture

More Info

Submitted On
By	·Phil·
Level	Beginner
User Rating	5.0 (15 globes from 3 users)
Compatibility	VB 6.0
Category	Graphics
World	Visual Basic
Archive File

Source Code

Explanation:- Tiling is a way of using a single graphic source to cover an entire area
or background without stretching a picture. This method is also very low on memory use.

The following example shows a very simple and quick way to tile a forms background using
Visual Basics' built-in PaintPicture command

Example Code:

'** Quickly Tile a Form Background using VB PaintPicture
'** Assumes: You have a picture on screen called "Image1"
' obv change this to suit your program.
'** Level: Beginner
'** Author: P.Glancey
Private Sub Form_Load()
 Image1.Visible = False 	' Hide the image
 Call TileIt(Me, Image1)	' Call the tiling function
End Sub
Private Sub Form_Resize()
 Call TileIt(Me, Image1)	'Call again when resized
End Sub
Function TileIt(TheForm As Form, ImageSource As Image)
 Dim I As Integer, J As Integer
 Dim Result1 As Integer, Result2 As Integer
 TheForm.AutoRedraw = True ' Set the form autoredraw
 TheForm.Refresh	  ' and refresh
 Result1 = TheForm.Height / ImageSource.Height
 Result2 = TheForm.Width / ImageSource.Width
 For I = 0 To Result1
  For J = 0 To Result2
   TheForm.PaintPicture ImageSource.Picture, J * _
   ImageSource.Width, I * ImageSource.Height, _
   ImageSource.Width, ImageSource.Height
  Next
 Next
End Function