Small Basic: Eventos del mouse(código)


a1

 

Al igual que los eventos de teclado, puede crear programas en Small Basic que trabajen con eventos basados en clics del mouse. Los eventos del mouse generan acciones en su programa con un clic del mouse.

  1. GraphicsWindow.Title      = “Ventana de gráficos”
  2. GraphicsWindow.MouseDown =      ClicMouse
  3. GraphicsWindow.MouseMove =      ArrastrarMouse
  4. GraphicsWindow.MouseUp   = SoltarBotónMouse
  5. Sub ClicMouse
  6. OrgX = GraphicsWindow.MouseX
  7. OrgY = GraphicsWindow.MouseY
  8. EndSub
  9. Sub ArrastrarMouse
  10. x = GraphicsWindow.MouseX
  11. y = GraphicsWindow.MouseY
  12. If (Mouse.IsLeftButtonDown)      then
  13. GraphicsWindow.DrawLine(OrgX,      OrgY, x, y)
  14. Endif
  15. EndSub
  16. Sub SoltarBotónMouse
  17. GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
  18. GraphicsWindow.PenWidth=Math.GetRandomNumber(5)
  19. EndSub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s