none
Problema con LineShape RRS feed

  • Pregunta

  • Estimados:

    En un PictureBox dibujo una serie de segmentos con el procedimiento:

        Private Sub Dibuja_Segmentos(dato As estructura)
            Dim canvas As New ShapeContainer
            Try
                canvas.Parent = PicBox1
                Dim segmento As New LineShape
                With segmento
                    .Parent = canvas
                    .BorderWidth = ANCHO
                    .X1 = dato.x1
                    .X2 = dato.x2
                    .Y1 = dato.y1
                    .Y2 = dato.y2
                    .BorderColor = Color.FromArgb(dato.color_32)
                    .Tag = dato.ident
                End With
            Catch
                MsgBox("Dibuja seg.: " + Err.Description)
            End Try
        End Sub

    Donde la estructura datos posee lo necesario para el dibujo (posición, color). Este procedimiento lo llamo varias veces y dibujo varios segmentos.

    El problema (que no es tan grave) surge cuando quiero modificar un segmento. Lo borro (esto no está en este procedimiento y no ofrece problemas) y lo redibujo. Esto hace que todos los segmentos ya dibujados parpadeen breve pero perceptiblemente. Esto parece ser "culpa" de la línea

     Dim canvas As New ShapeContainer

    Pero parece que hay que generar una instancia nueva de ShapeContainer por cada segmento.  Alguna idea??

    Muchas gracias de antemano


    Daniel_tango

    • Cambiado Enrique M. Montejo jueves, 12 de octubre de 2017 14:56 Pregunta relacionada con controles de Windows Forms.
    jueves, 5 de octubre de 2017 12:47