none
Dibujar Curva o Arco // Vb.Net

    Pregunta

  • Hola a todos.

    dim cc as integer = 0 dim tt as integer = 0 Sub CrearLinea() cc += 1 TT += 1 '>> Crear línea << dim gr as Graphics = Me.CreateGraphics()

    gr.DrawArc(Pens.Black, New Rectangle(0, 0, CInt(Me.Size.Width - Int(LineHeight / 2)), CInt(Me.Size.Height - Int(LineHeight / 2))), CC, TT) End Sub

    Como puedo hacer para llamar al sub 'CrearLinea' mediante un timer (cada cierto tiempo) y que me muestre el dibujo de la curva en el formulario?


    Saludos. Atentamente Pablo Fac.


    viernes, 25 de noviembre de 2016 14:14

Respuestas

  • Hola Admin Pablo Fac

    Podrías crear una variable int para que sirva de contador, configurar el timer con un intervalo y listo:

    Dim cont as Integer = 0

    '''En el evento load podrías establecer que el intervalo sea de 1000 ms, con eso, cada 10 segundos se ejecutará CrearLinea() Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If cont = 10 Then CrearLinea() cont = 0

    Else cont +=1 End If End Sub


    El intervalo del timer lo puedes establecer a tu antojo.

    Saludos y suerte!

     

    Javier

    viernes, 25 de noviembre de 2016 15:04