FoxPro/Visual FoxPro - _screen agregar objeto

   
Vista:

_screen agregar objeto

Publicado por marcelo  (139 intervenciones) el 19/07/2010 22:52:25
tengo este codigo para agregar una imagen al _screen de entrada :

_screen.addobject("oImg", "image")

_screen.oImg.picture = 'escudo.bmp' &&FOTO FONDO
_screen.oImg.visible = .T.
_screen.oImg.stretch = 2 && ESTIRA
_screen.oImg.width =120
_screen.oImg.height = 120 && ALTO
_screen.oImg.Top=150
_screen.oImg.Left=400

lo que no puedo resolver es que me sale un mensaje que dice qeue l objeto que quiero agregar ya existe .
hay alguna funcion o codigo que me permita preguntar previo a agregar la imagen si el objeto oImg ya existe?
desde ya gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:_screen agregar objeto

Publicado por es_binario (757 intervenciones) el 20/07/2010 01:37:38
para evitar errores usa el try catch

try && intenta poner la imagen
_screen.addobject("oImg", "image")

_screen.oImg.picture = 'escudo.bmp' &&FOTO FONDO
_screen.oImg.visible = .T.
_screen.oImg.stretch = 2 && ESTIRA
_screen.oImg.width =120
_screen.oImg.height = 120 && ALTO
_screen.oImg.Top=150
_screen.oImg.Left=400

catch
&& ya existe no hace nada
endtry

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:_screen agregar objeto

Publicado por alberto (399 intervenciones) el 20/07/2010 06:18:11
tienes que poner este comando despues del read events
_SCREEN.REMOVEOBJECT("oImg", "Image")

esto te quita de memoria el objeto agregado asi cuando entras de nuevo no te dice que ya existe el objeto.
saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:_screen agregar objeto

Publicado por Edgar Zambrano (31 intervenciones) el 21/07/2010 18:20:22
local _verificar

_verificar = "_screen.oImg"
if !(vartype(&_verificar)#"U")
_screen.addobject("oImg", "image")

_screen.oImg.picture = 'escudo.bmp' &&FOTO FONDO
_screen.oImg.visible = .T.
_screen.oImg.stretch = 2 && ESTIRA
_screen.oImg.width =120
_screen.oImg.height = 120 && ALTO
_screen.oImg.Top=150
_screen.oImg.Left=400
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar