none
Imagem animada ou video em VB RRS feed

  • Pergunta

  • Bom galera é o seguinte, eu fiz uma aplicação que pega 10 frames por segundo, e salva todos eles( em uma pasta, ou banco de dados) temporariamente.

    Por enquanto, estou testando então estou usando o metodo de colocar em uma pasta, então eu gostaria de saber o seguinte, tem como eu pegar e fazer por exemplo:

    picturebox1.image = imageanimator("c:/pastaComImagens")

    picturebox1.image.save("teste.gif")

    eu sei que este comando não funciona, mas da uma ideia do que eu quero fazer.

    o codigo ate o momento e este:

    Public Class Form1
        Dim frames As Int64
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Timer1.Enabled = True
        End Sub
    
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            frames = 0
        End Sub      
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Try
    
             SendKeys.SendWait("{prtsc}")
            Clipboard.GetImage.Save("c:/users/usuario/Desktop/teste/imagem" & frames & ".jpg")
            frames = frames + 1
            Catch ex As Exception
    
            End Try
    
        End Sub
    
    
         
    End Class
    

    Ai quando eu clico no botao Mostrar video, ele pega essas imagens 1 por 1 e coloca na picturebox(10 por segundo) e fica como um video.

    Mas eu quero que a aplicação salve todas as imagens como uma só, pode ser em .gif ou outro formato de video.

    VLW

    quinta-feira, 13 de junho de 2013 03:22