devxlogo

Tile an Image Onto a Form

Tile an Image Onto a Form

Adding this code to a form causes it to tile the image stored in Picture1 across the entire form whenever the form requires a refresh:

 Private Sub Form_Load()	With Picture1		.AutoSize = True		.BorderStyle = 0		.Visible = False	End WithEnd SubPrivate Sub Form_Paint()	Dim i As Long, j As Long	With Picture1		For i = 0 To Me.ScaleWidth Step .Width			For j = 0 To Me.ScaleHeight Step .Height				PaintPicture .Picture, i, j			Next j		Next i	End WithEnd SubPrivate Sub Form_Resize()	Me.RefreshEnd Sub

devx-admin

Share the Post: