Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Dec 9, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

TileBitmap - Tile a bitmap using the PaintPicture method

' Tile a bitmap to a form or a Bitmap box
' Target can be a Form or a BitmapBox control
' Bitmap can be the Bitmap property of a PictureBox or an Image control,
' or the return value of a LoadPicture function
' Example: TileBitmap Form1, LoadPicture("C:\myimage.bmp")

Sub TileBitmap(Target As Object, Bitmap As StdPicture)
    Dim x As Single
    Dim y As Single
    Dim bmpWidth As Single
    Dim bmpHeight As Single

    ' get Bitmap's size, in the coordinate system
    ' of the target Form or BitmapBox
    bmpWidth = Target.ScaleX(Bitmap.Width, vbHimetric, Target.ScaleMode)
    bmpHeight = Target.ScaleY(Bitmap.Height, vbHimetric, Target.ScaleMode)
    ' tile the Bitmap
    For x = 0 To Target.Width Step bmpWidth
        For y = 0 To Target.Height Step bmpHeight
            Target.PaintPicture Bitmap, x, y
End Sub

Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date