|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial

____________________________

67.- Dibujar trazos en la pantalla.

- Vamos a dibujar líneas en la pantalla. En este caso en un dibujo de fondo.

- Normalmente se crea un Panel y dentro del Panel un Canvas que será el elemento donde se pueda dibujar.

- Cuando "Toquemos - Touch" el Panel, se podrán hacer varias actividades, pulsar, mover o dejar de pulsar.

- En este proyecto podriamos quitar la parte de Select Action, la he puesto para que se vea que tiene varias posibilidades.

Designer - Layout


cartadeajuste.jpg

Baja esta imagen y cópiala en la carpeta Files del proyecto.

 


_______________
- Código.

Copia y pega este código en un nuevo proyecto
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' marzo 2013
End Sub

Sub Globals
    Dim Panel1 As Panel
    Dim Canvas1 As Canvas
    Dim rectangulo As Rect
    Dim boton As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ' Crea el Panel1 con un fondo
    Panel1.Initialize("Panel1")
    Activity.AddView(Panel1, 0, 0, 100%x, 100%y)
    Panel1.SetBackgroundImage(LoadBitmap(File.DirAssets, "cartadeajuste.jpg"))
    
    ' Crea un Canvas y un rectangulo
    rectangulo.Initialize(0, 0, Panel1.Width, Panel1.Height)
    Canvas1.Initialize(Panel1)

    ' Crea Botón (Button)
    boton.Initialize("boton")
    boton.TextColor = Colors.Red
    boton.Text = "Pulsa para borrar"
    Activity.AddView(boton, 0dip, 10dip, 100%x, 10%y)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Panel1_Touch (Action As Int, x As Float, y As Float)
    Select Action
    Case Activity.ACTION_DOWN
        ' Cuando Pulsa
        ' ............
    Case Activity.ACTION_MOVE
        ' Cuando Mueve
        Canvas1.DrawCircle(x, y, 6dip, Colors.Blue, True, 3dip)
        Panel1.Invalidate
    Case Activity.ACTION_UP
       ' Cuando Deja de pulsar
       ' ..............
    End Select
End Sub

Sub boton_Click
    ' Borra el Canvas1
    Canvas1.DrawRect(rectangulo, Colors.Transparent, True, 1dip)
    Panel1.SetBackgroundImage(LoadBitmap(File.DirAssets, "cartadeajuste.jpg"))
    Canvas1.Initialize(Panel1)
End Sub

- Ver:

Drawing - Core de Basic4android

________________________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información