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

[carlos7000]

Deseo hacer un dibujo parecido al que se ve a continuación.

Pero no encuentro el canvas. Alguien me puede, por favor, ayudar?

 

[William Lancee]

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

 

[carlos7000]

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

Muchas gracias.

 

[carlos7000]

Puedo colocar el cv en el layout, por medio del Visual designer?

 

[William Lancee]

No. Tienes que agregarlo por separado. También tenga en cuenta que funciona de forma ligeramente diferente entre B4J y B4A. Buscar B4XCanvas.

 

[carlos7000]

Buscar B4XCanvas.

No encuentro el B4XCanvas.

Aquí si lo veo.

 

[carlos7000]

Aquí tampoco encuentro B4XCanvas

 

[carlos7000]

Bueno.

Creo que no se puede crear un B4XCanvas desde el Visual designer.

Pero se puede hacer algo parecido a lo que deseo. Las instrucciones son las siguientes:

1. Crear un Panel en la posición que se desea aparezca el canvas.
2. Click derecho sobre el panel y click en Generate As B4View
3. Por código crear un B4XCanvas

Private Canvas As B4XCanvas

4. Inicialice el B4XCanvas con el siguiente código:

Canvas.Initialize(Panel)

4. Cambie el tamaño de B4XCanvas con el siguiente código

Canvas.Resize(Panel.Width, Panel.Height)

Y eso es todo.