La ruta de la fuente y del mapa las encuentra bien porque tengo los archivos en el mismo directorio si bien deberia anteponerle el app.path (en vb .net-> Application.StartupPath).
La zona de impacto se crea cuando se posiciona haciendo una llamada al método:
y se actualiza cuando se dibuja y se clica y pulsa a la vez:
por otra parte no entiendo eso que dices de hacer la clase lo más autonoma posible si las variables las tengo declaradas dentro de la propia clase...
Gracias
La zona de impacto se crea cuando se posiciona haciendo una llamada al método:
Código (vbnet) [Seleccionar]
Public Sub posicionar(ByVal x As Long, ByVal y As Long)
top = y : left = x
nueva_zona_impacto()
End Sub
Código (vbnet) [Seleccionar]
Private Sub nueva_zona_impacto()
rec_zona_impacto.X = left : rec_zona_impacto.Y = top
rec_zona_impacto.Width = 30 : rec_zona_impacto.Height = 30
End Sub
y se actualiza cuando se dibuja y se clica y pulsa a la vez:
Código (vbnet) [Seleccionar]
Public Sub draw(ByVal texto As String)
m_gfx.DRAW_Map(gfx_ficha, left, top, -8, 0, 0)
m_gfx.DRAW_Text(fnt_system1, texto, left, top + 35, -8, m_gfx.ARGB_Set(255, 0, 0, 0), Text_Align.Align_Left)
'update
If m_system.MATH_PointInRect(m_input.Mouse.X, m_input.Mouse.Y, rec_zona_impacto) Then
Cursor.Current = Cursors.Hand
If HitEvent.Mouse_Hit(Mouse_Button.Left_Button) And m_input.Mouse_Press = 1 Then
left = m_input.Mouse.X
top = m_input.Mouse.Y
m_gfx.DRAW_Map(gfx_ficha, left, top, -8, 0, 0)
m_gfx.DRAW_Text(fnt_system1, texto, left, top + 35, -8, m_gfx.ARGB_Set(255, 0, 0, 0), Text_Align.Align_Left)
nueva_zona_impacto()
End If
End If
End Sub
por otra parte no entiendo eso que dices de hacer la clase lo más autonoma posible si las variables las tengo declaradas dentro de la propia clase...
Gracias