• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This snippet allows your form to a tiled wallpaper just like Windows!

This snippet allows your form to a tiled wallpaper just like Windows!

This snippet allows your form to a tiled wallpaper just like Windows!

API Declarations


Public Const SRCCOPY = &HCC0020




Rate This snippet allows your form to a tiled wallpaper just like Windows!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

ScaleWidth = Screen.Width
ScaleHeight = Screen.Height
Dim x As Integer
    Dim y As Integer
    Dim D As Integer
    Dim PatternHeight As Integer
    Dim PatternWidth As Integer
    Dim SM As Integer
    SM = ScaleMode          'save current value
    ScaleMode = 3           'pixel
    PatternHeight = 16
    PatternWidth = 16 'hard-coded value
    For x = 0 To ScaleWidth Step PatternWidth
        For y = 0 To ScaleHeight Step PatternHeight
            D = BitBlt(hDC, x, y, PatternWidth, PatternHeight, hDC, 0, 0, SRCCOPY)
        Next y
    Next x
    ScaleMode = SM          'reset to previous value

End Sub