Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
        Next
    Next
End Sub

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

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