Autor Tema: Funciones perdidas en el ucIMAGE  (Leído 3277 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Bazooka

  • Terabyte
  • *****
  • Mensajes: 951
  • Reputación: +31/-20
  • El pibe Bazooka
    • Ver Perfil
    • Desof sistemas
Funciones perdidas en el ucIMAGE
« en: Enero 22, 2015, 12:09:28 pm »
Como descargo o limpio un contro ucImage en tiempo de ejecución ?
Seria el equivalente a Set Picture1.Picture = Nothing

y otra hay alguna forma de conocer si hay una imagen cargada para dar un aviso al usuario de que se reemplazara ?

Seria el equivalente de

if Picture1.Picture <> 0 then MsgBox "Desea reemplazar la iamgen ?"

Gracias
Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.

aedEric

  • Megabyte
  • ***
  • Mensajes: 211
  • Reputación: +20/-0
    • Ver Perfil
Re:Funciones perdidas en el ucIMAGE
« Respuesta #1 en: Enero 22, 2015, 12:43:54 pm »
hola gusto en saludarte  mira yo hago lo sig para limpiar dicho control no se si sea lo correcto

Código: [Seleccionar]
Public Function LimpiarUc(PicUc As ucImage)
   Dim bvStream(0) As Byte
    With PicUc
        Call .LoadImageFromStream(bvStream)
        .Refresh
    End With
End Function
y llamo a la funcion asi
Código: [Seleccionar]
Call LimpiarUc(ucImage1)
saludos
No he fracasado. He encontrado 10000 soluciones que no funcionan.

YAcosta

  • Moderador Global
  • Exabyte
  • *****
  • Mensajes: 2853
  • Reputación: +160/-38
  • Daddy de Qüentas y QüeryFull
    • Ver Perfil
    • Personal
Re:Funciones perdidas en el ucIMAGE
« Respuesta #2 en: Enero 22, 2015, 01:48:36 pm »
esta bacan, o quiza como otra alternativa pones una imagen genérica. Yo eso esta forma para mantener el diseño de mi programa, cuando no hay la imagen le pongo una que ya tengo en memoria.
Me encuentras en YAcosta.com

Bazooka

  • Terabyte
  • *****
  • Mensajes: 951
  • Reputación: +31/-20
  • El pibe Bazooka
    • Ver Perfil
    • Desof sistemas
Re:Funciones perdidas en el ucIMAGE
« Respuesta #3 en: Enero 22, 2015, 06:49:50 pm »
hola gusto en saludarte  mira yo hago lo sig para limpiar dicho control no se si sea lo correcto

Código: [Seleccionar]
Public Function LimpiarUc(PicUc As ucImage)
   Dim bvStream(0) As Byte
    With PicUc
        Call .LoadImageFromStream(bvStream)
        .Refresh
    End With
End Function

Genial amigo !! muchas gracias !!!

La solucion de Yvan tbn es valedera !!

Solo me faltaria una forma de reconocer si tiene o no cargada una imagen !!

y llamo a la funcion asi
Código: [Seleccionar]
Call LimpiarUc(ucImage1)
saludos
Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.