CodigoFuente

' Gambas class file

Public ListaObjetos As New Object[]

Public Sub _new()

End

Public Sub Form_Open()

  Me.center 'centra el formulario en la pantalla

End

Public Sub PictureBoxHuevos_MouseDown()

  Dim PictureBoxTMP As Picturebox

  PictureBoxTMP = New Picturebox(HPanelMochila) As "ObjetosEnMochila"
  PictureBoxTMP.Picture = Picture["huevos.jpg"]
  PictureBoxTMP.Stretch = True
  PictureBoxTMP.w = 60
  PictureBoxTMP.h = 60
  PictureBoxTMP.tag = "Huevos nº " & Str(Int(Rnd(1, 1000))) 'idnombre 'no sirve para identificar al objeto

  ListaObjetos.add(PictureBoxTmp)

End

Public Sub PictureBoxPan_MouseDown()

  Dim PictureBoxTMP As Picturebox

  PictureBoxTMP = New Picturebox(HPanelMochila) As "ObjetosEnMochila"
  PictureBoxTMP.Picture = Picture["pan.jpg"]
  PictureBoxTMP.Stretch = True
  PictureBoxTMP.w = 70
  PictureBoxTMP.h = 70
  PictureBoxTMP.tag = "Pan nº " & Str(Int(Rnd(1, 1000))) 'idnombre 'no sirve para identificar al objeto

  ListaObjetos.add(PictureBoxTmp)

End

Public Sub PictureBoxChuleta_MouseDown()

  Dim PictureBoxTMP As Picturebox

  PictureBoxTMP = New Picturebox(HPanelMochila) As "ObjetosEnMochila"
  PictureBoxTMP.Picture = Picture["chuleta.png"]
  PictureBoxTMP.Stretch = True
  PictureBoxTMP.w = 80
  PictureBoxTMP.h = 80
  PictureBoxTMP.tag = "Chuleta nº " & Str(Int(Rnd(1, 1000))) 'idnombre 'no sirve para identificar al objeto

  ListaObjetos.add(PictureBoxTmp)

  HPanelMochila.Refresh

End

Public Sub ObjetosEnMochila_MouseDown()
  'Al pulsar el boton del raton, se muestra información del ultimo objeto que esta observador por "ObjetosEnMochila"
  LabelObjetoSeleccionado.text = "Objeto seleccionado: " & Last.tag

End