Autor Tema: Desaparecer Picturebox (Leído 1661 veces)

Sagma · « **en:** Sábado 29 de Septiembre de 2007, 15:14 »

hola a todos, he realizado una aplicación que cuando digito el código de la persona, este me despliega los datos de dicha persona y también pongo su foto, esto en un picturebox. todo ok.

Pero ...

cuando quiero ver otro dato de otra persona y su imagen, solo me despliega los datos y no asi la imagen o la foto.

me puse un boton cancelar, pero aun asi no se borra la imagen.

he usado el codigo siguiente.

Código: Text

me.picturebox1.imagen = nothing
 

de lo cual no se pierde la imagen, me lo sigue mostrando aunque este con otros datos.

he tambien puesto el codigo:

Código: Text

me.picturebox1.dispose
 

en este caso me lo hace perder, pero, ya tambien no me muestra nada de nadita de lo que es las fotos o imagenes de las persona.

gracias por su colaboración.

Scherzo

Hola, en teoría cuando haces un

Código: Text

 
oPictureBox.Image = Nothing

Debería limpiarte la imagen, prueba a añadir después un

Código: Text

 
oPictureBox.Refresh()

Por si acaso no te la estuviera refrescando.

En las pruebas que he hecho, con esto que te digo funciona sin problemas.

Y si quieres cambiar a otra imagen, con un

Código: Text

 
oPictureBox.Load(&#34;C:&#092;&#092;ruta&#092;&#092;de&#092;&#092;la&#092;&#092;imagen&#092;&#092;imagen.jpg&#34;)

La cargarías sin problemas.

Si no te funciona, pega el código si quieres, por si fuera otro el motivo por el que te está dando problemas y a lo mejor viéndolo lo detectamos.

Saludos

Sagma

gracias por contestar, pero sigue todo igual.

fijate, con este código levanto los datos y a la vez llamo la imagen:

Código: Text

 
    Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave
 
        If IsNumeric(Me.txt_codigo.Text) Then
            If Pint.existe(CInt(Me.txt_codigo.Text)) Then
                Pint.datos(CInt(Me.txt_codigo.Text))
 
                Me.txt_codigo.Text = Pint.CodigoPintor
                Me.cmb_mesa.SelectedValue = Pint.CodMesa
                Me.cmb_asiste.SelectedValue = Pint.Asistio
                Me.DateTimePicker1.Value = Pint.Fecha_Nac
                Me.txt_nombre.Text = Pint.Nombre
                Me.txt_direccion.Text = Pint.Direccion
                Me.txt_quien.Text = Pint.Representa
                Me.txt_telefono.Text = Pint.Telefono
                Me.txt_celular.Text = Pint.Celular
                Me.txt_cedula.Text = Pint.Cedula_Iden
                Me.cmd_ciudadci.SelectedValue = Pint.Lugar_Cedula
                Me.cmb_anfitrion.SelectedValue = Pint.CodAnfitrion
 
                ShowFilesInFolder()
                Me.btn_aceptar.Enabled = False
                Me.btn_modificar.Enabled = True
 
            End If
        End If
 
    End Sub
 
 

y con este código despliego o muestro la imagen:

Código: Text

 
    Private Sub ShowFilesInFolder()
        Dim file As String
        Dim FI As FileInfo
        Dim PBox As PictureBox, Img As Image
        Dim Left As Integer = ThumbnailPadding
        Dim Top As Integer = ThumbnailPadding
        Dim ThispBox As Control
        Dim ThumbWidth As Integer = 90   ''antes era 90
        Dim ThumbHeight As Integer = 120 ''antes era 120
 
        If PictureBox1.Controls.Count &#62; 0 Then Exit Sub
 
        Me.Invalidate()
 
        'For Each file In Directory.GetFiles(DirListBox1.Path)
        Try
            FI = New FileInfo(&#34;c:&#092;sagmasoft&#092;fotos&#092;pintores&#092;&#34; + CStr(Pint.CodigoPintor) + &#34;.jpg&#34;)
        Catch err As Exception
            FI = New FileInfo(&#34;c:&#092;sagmasoft&#092;fotos&#092;pintores&#092;555.png&#34;)
        End Try
 
        If FI.Extension = &#34;.gif&#34; Or FI.Extension = &#34;.jpg&#34; Or _
                    FI.Extension = &#34;.bmp&#34; Then
            PBox = New PictureBox
            'PBox.BorderStyle = BorderStyle.FixedSingle
            PBox.SizeMode = PictureBoxSizeMode.CenterImage
 
            If FI.Extension &#60;&#62; &#34;.cdr&#34; Then
                Try
                    Img = Image.FromFile(FI.FullName)
                Catch err As Exception
                    Img = Image.FromFile(&#34;c:&#092;sagmasoft&#092;fotos&#092;pintores&#092;555.png&#34;)
                End Try
            End If
 
            If Left &#62; PictureBox1.Width - PictureBox1.Left + ThumbnailPadding + ThumbWidth Then
                Left = ThumbnailPadding
                Top = Top + 10  '' antes era 80, ubicacion de la parte de arriba
 
            End If
            With PBox
                .Left = Left
                .Top = Top
                .Width = 120 'Ubicacion del ancho hacia la derecha de la foto
                .Height = 120 'Ubicacion de la foto en la parte superior TOP
                .Image = CalculateThumbnailSize(Img, PBox.Width, PBox.Height)
                .Visible = True
                .Tag = FI.FullName
                PictureBox1.Controls.Add(PBox)
                AddHandler PBox.Click, New System.EventHandler(AddressOf OpenImage)
                Left = Left + 124    '' antes era 74
            End With
 
        End If
 
    End Sub
 
 

SoloCodigo

Autor Tema: Desaparecer Picturebox (Leído 1661 veces)

Sagma

Desaparecer Picturebox

Scherzo

Re: Desaparecer Picturebox

Sagma

Re: Desaparecer Picturebox