jueves, 27 de junio de 2013

Dibujo1(Línea)



bueno primeras pruebas de dibujo en Gambas3 y lo comparto con ustedes


' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()
Me.Center
Draw.Begin(DrawingArea1) ' si en esta línea salta el error
'cannot paint outside Of draw Event handler
'tienen que poner en las propiedades de DrawingArea1 lo siguiente:
'Cached=true
Draw.Line(10, 100, 90, 80)
Draw.End
End
---------------------------------------------------------------------------------------------------------------------




' Gambas class file

'Declaramos la variable que determinara el ancho de la línea
'y para empezar le damos el valor 5, el tipo de dato
' que tendra la variable es numérico por tanto la declaramos de tipo integer
Public anchodelinea As Integer = 5

Public Sub Form_Open()
'centramos el formulario
Me.Center
'limpiamos el DrawingArea para poder redibujar
' y ver adecuadamente los nuevos resultados
DrawingArea1.Clear
'comenzamos a dibujar en el DrawingArea
Draw.Begin(DrawingArea1) ' si en esta línea salta este error
'cannot paint outside Of draw Event handler
'tienen que poner en las propiedades de DrawingArea1 lo siguiente:
'Cached=true
Draw.LineWidth = anchodelinea
Draw.Line(10, 100, 90, 80)
Draw.End ' finaliza el trazado
End

Public Sub BtnDibujar_Click()
'le asignamos el valor a la variable anchodelinea
'antes ingresado en el textbox
  anchodelinea = TxtAnchoLinea.Text
  'se vuelve a cargar el formulario para asi poder ver los resultados
  Form_Open()

End

2 comentarios: