' 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 NextEnd Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
