Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Enero 22, 2015, 12:09:28 pm

Título: Funciones perdidas en el ucIMAGE
Publicado por: Bazooka 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
Título: Re:Funciones perdidas en el ucIMAGE
Publicado por: aedEric 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
Título: Re:Funciones perdidas en el ucIMAGE
Publicado por: YAcosta 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.
(http://i.snag.gy/6z1RX.jpg)
Título: Re:Funciones perdidas en el ucIMAGE
Publicado por: Bazooka 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