Tiling a Bitmap across a forms Background

This sample program show's how to tile a bitmap across a forms background. Any picture can be used - just remember that if you resize the form, you'll need to re-tile the bitmap again.

Screen shot

Download Zipped Project File (3k)



Comments

  • More Dynamic Way

    Posted by Legacy on 11/28/2001 12:00am

    Originally posted by: Andrew Leonard

    Make a new Sub that will perform the same function.
    
    Let's say, ShowBitmap

    Private Sub ShowBitmap

    Dim HorizantalLimit As Integer
    Dim VerticalLimit As Integer
    Dim ii As Integer
    Dim jj As Integer

    HorizantalLimit = Width / Picture1.Width
    VerticalLimit = Height / Picture1.Height

    For ii = 0 To VerticalLimit
    For jj = 0 To HorizantalLimit
    PaintPicture Picture1, jj * Picture1.Width, ii * Picture1.Height, Picture1.Width, Picture1.Height
    Next
    Next

    End Sub

    Call this Sub in Form Load, and also on Form Resize. That way it will automatically load for you, and will resize itself as the dialog is resized.

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Live Event Date: January 28, 2015 @ 11:00 a.m. ET / 8:00 a.m. PT Check out this upcoming live webcast and join Jeff Sloyer, IBM Developer Evangelist and Master Inventor, for a tutorial for building cloud-based applications. Using IBM's platform as a service, Bluemix, Jeff will show you how to architect and assemble cloud-based applications built for cloud scale. Leveraging the power of microservices, developers can quickly translate monolithic applications to a cloud-based microarchitecture. This hour-long …

  • Data integrity and ultra-high performance dictate the success and growth of many companies. One of these companies is BridgePay Network Solutions, a recently launched and rapidly growing financial services organization that allows merchants around the world to process millions of daily credit card transactions. Due to the nature of their business, their IT team needed to strike the perfect balance between meeting regulatory-mandated data security measures with the lowest possible levels of latency and …

Most Popular Programming Stories

More for Developers

RSS Feeds

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