• ¿ Cómo encontrar el coman...
  Foro: General
  Último mensaje por: Shell
  Hoy, 01:20
  » Respuestas: 8
  » Vistas: 312
• software para edición de ...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: alberto-moyano
  Ayer, 22:27
  » Respuestas: 5
  » Vistas: 71
• Quien recuerda la calcula...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: seta43
  22-02-2021, 22:36
  » Respuestas: 6
  » Vistas: 103
• Puerto Paralelo y Gambas3...
  Foro: Hardware & IoT
  Último mensaje por: jguardon
  22-02-2021, 22:17
  » Respuestas: 19
  » Vistas: 1,612
• Problemas en proyecto que...
  Foro: Controles/Librerías/Componentes
  Último mensaje por: Shell
  20-02-2021, 17:00
  » Respuestas: 0
  » Vistas: 35

• Mensajes del foro:1,251
• Temas del foro:267
• Miembros:74
• Último miembro:silex

Buenas!.

Pues comencemos.

Algo que solemos hacer cuando queremos desplazar un sprite por llamarlo de alguna forma.
Ejemplo, un cuadrado dentro de un DrawingArea. Es que si lo hacemos con teclado, tenemos
que crear un grupo de sentencias condicionales, si queremos desplazar a la izquierda, a la derecha..etc.
Eso puede alargar el código.

Podemos usar las colecciones. Imaginar que queremos mediante la pulsación de una tecla
cambiar el color de fondo de un DrawingArea. Si, podemos usar las condicionales también.
Pero podemos ahorrarnos eso.

Bien. El primer problema que me encuentro es:
Usar el evento KeyPress del propio DrawingArea para saber que tecla se ha pulsado y donde lo voy a usar ¿ no ?.
Pues no. Se debe usar el evento KeyPress del formulario.

Tenemos un formulario con tan solo un DrawingArea:

Public Sub Form_KeyPress()
 
  Dim colores As Collection = ["r": Color.red, "a": Color.yellow, "b": Color.blue, "v": Color.Green]
    
  If colores.Exist(Lower(Key.text)) Then drw.Background = colores[Lower(Key.text)]
 
End

Const LADO As Integer = 20
 
Private coordenada As Integer[] = [0, 0]
Private unrectangulo As New Rect
Private movimiento As Boolean
 
Public Sub Form_Open()
 
  Me.Title = "Movimiento por mapeado de teclas"
 
  coordenada[0] = (drw.w - LADO) / 2
  coordenada[1] = (drw.h - LADO) / 2
 
End
 
Public Sub Form_KeyPress()
 
  Dim direccion As Collection = [Str(Key.Left): [-5, 0], Str(Key.Right): [5, 0], Str(Key.up): [0, -5], Str(Key.Down): [0, 5]]
 
  If direccion.Exist(Str(Key.code)) Then
    coordenada[0] += direccion[Key.code][0]
    coordenada[1] += direccion[Key.code][1]
    drw.Refresh
  Endif
 
End
 
Public Sub drw_Draw()
 
  With unrectangulo
    .X = coordenada[0]
    .y = coordenada[1]
    .W = LADO
    .H = LADO
  End With
 
  Paint.LineWidth = 2
  Paint.Brush = Paint.Color(Color.Green)
  Paint.Rectangle(coordenada[0], coordenada[1], LADO, LADO)
  Paint.Stroke
 
End
 
Public Sub drw_MouseDown()
 
  If unrectangulo.Contains(Mouse.x, Mouse.Y) Then movimiento = True    
 
End
 
Public Sub drw_MouseMove()
 
  If movimiento Then
    coordenada[0] = Mouse.x - LADO / 2
    coordenada[1] = Mouse.y - LADO / 2
  Endif
  drw.Refresh
 
End
 
Public Sub drw_MouseUp()
 
  movimiento = False
 
End

Hacía falta y me parece magnífico.

Es curioso que yo, que ya solo soy lector pasivo, sea el primero pero alguien tiene que decirlo:

Gracias Jesús. Magnífico trabajo.

Un saludo a todos.

Bienvenidos a los nuevos foros de gambas-es.org.

Tras un delicado proceso de estudio y evaluación de posibilidades, he decidido dar el paso y cambiar de sistema de foro por los motivos que ya comenté anteriormente. Lamentablemente todos los intentos por importar los contenidos al nuevo foro han fracasado y no merece la pena seguir perdiendo más tiempo en ello, por lo que -no sin bastante esfuerzo- he podido volver a poner en línea el antiguo foro sólo para consultas con la imposibilidad de publicar o registrarse. Es decir, el foro antiguo quedará como herramienta de consulta y referencia por tiempo indefinido (esto quiere decir, mientras pueda funcionar teniendo en cuenta las actualizaciones del servidor). Han sido 11 años hasta la fecha de bastante actividad y valiosísimos contenidos, por lo que haré todo los esfuerzos necesarios por mantenerlo online siempre.

Para futuras referencias, el acceso al foro antiguo es el siguiente: https://foro.gambas-es.org


De ahora en adelante, iré haciendo los ajustes necesarios en este nuevo foro y en base a los problemas que podáis detectar iremos afinando el instrumento.

Espero que todos podamos disfrutar de la sencillez y claridad que se ha pretendido obtener y para cualquier consulta o sugerencia podéis abrir un hilo en el foro de la Comunidad, "Sobre gambas-es". 

Para hacer pruebas de publicación y jugar con el nuevo editor de texto, os recomiendo que uséis el foro Off-topic/Sandbox, ya que no es visible al público y además se purga periódicamente.

Saludos