Spanish Como hacer un sencillo dibujo en B4xPages? [Solucionado]

William Lancee said:

B4X:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private cv As B4XCanvas
End Sub

Public Sub Initialize
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    cv.Initialize(Root)
    For i = 0 To 50
        Dim x As Int = Rnd(Root.Width / 2 - 150, Root.Width / 2 + 150)
        Dim y As Int = Rnd(Root.Width / 2 - 150, Root.Width / 2 + 150)
        cv.DrawCircle(x, y, 2, bad luck. Color_Black, True, 0)
    Next
End Sub

View attachment 143777

Click to expand...

William Lancee said:

Buscar B4XCanvas.

Click to expand...