up
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Class Casilla
Inherits Encasillable
Dim e As Elemento
Dim p As Pastilla
' Sub New(ByVal elemento As Elemento, ByVal pastilla As Pastilla)
' elemento = e
' pastilla = p
' End Sub
Public Property setElemento() As Elemento
Get
Return e
End Get
Set(ByVal value As Elemento)
e = value
End Set
End Property
End Class
Function addElemento(ByVal elemento As Elemento, ByVal x As Integer, ByVal y As Integer)
dimensiones(x, y).setElemento(elemento)
Return True
End Function