Resize Example

[boxgaming]

A simple example to demonstrate dynamically resizing the QBJS main canvas.

View in QBJS

DomGetImage(0).style.border = "0"
Do
    If _Resize Then
        DomGetImage(0).width = _ResizeWidth
        DomGetImage(0).height = _ResizeHeight
    End If
    Dim i
    Cls
    For i = 1 To 100
        Circle (Rnd * _Width, Rnd * _Height), 10 + Rnd * 100, 1 + Rnd * 14
    Next i
    _Limit 10
Loop

[boxgaming]

This example is a bit obsolete at this point. The Dom methods have now been moved into their own module. An up-to-date version can be found on the Samples page.