Xin chào các bạn, bài viết này mình sẻ chia sẻ các bạn source code tạo hiệu ứng chuyển đổi hình ảnh trên ngôn ngữ VB.NET Winform

[VB.NET] Animation Image Picture Winform

Các bạn có thể sử dụng hiệu ứng này để viết một ứng dụng Slide Image để trình chiếu một danh sách hình ảnh trong Album một cách dễ dàng.

Source code VB.NET:

Imports System.Drawing

Public Class TestForm

    Private bmp As New Bitmap(My.Resources.baby_5)

    Private Sub TestForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AnimationControl1.AnimatedFadeImage = Panel1.BackgroundImage
        AnimationControl1.AnimatedImage = bmp
    End Sub

    Private Sub btnSpiarlBoom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpiarlBoom.Click

        AnimationControl1.AnimationType = AnimationTypes.SpiralBoom
        AnimationControl1.Animate(40)

    End Sub

    Private Sub btnSpin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpin.Click

        AnimationControl1.AnimationType = AnimationTypes.Spin
        AnimationControl1.Animate(60)

    End Sub

    Private Sub btnPanorama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPanorama.Click

        AnimationControl1.AnimationType = AnimationTypes.Panorama
        AnimationControl1.Animate(50)

    End Sub

    Private Sub btnSlide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSlide.Click
        AnimationControl1.AnimationType = AnimationTypes.BottomRightToTopLeft
        AnimationControl1.Animate(30)

    End Sub

    Private Sub btnshape_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshape.Click

        AnimationControl1.AnimationType = AnimationTypes.Rectangular
        AnimationControl1.Animate(20)

    End Sub

    Private Sub btnSplit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSplit.Click

        AnimationControl1.AnimationType = AnimationTypes.SplitBoom
        AnimationControl1.Animate(70)

    End Sub

    Private Sub btnChess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChess.Click

        AnimationControl1.AnimationType = AnimationTypes.ChessBoard
        AnimationControl1.Animate(50)

    End Sub

    Private Sub btnFade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFade.Click

        AnimationControl1.AnimationType = AnimationTypes.Fade2Images
        AnimationControl1.Animate(30)

    End Sub

End Class

Thanks for watching!

DOWNLOAD SOURCE

Founder 1310 bài viết 15,356,694

NGUYỄN THẢO

Founder at LaptrinhVB.net

★★★★★

♥ Tình yêu thương chẳng hề hư mất bao giờ. (Cr 13,4)

=========================================================================

My skills includes .NET(C#, VB.NET), DevExpress, Java, Android, PHP,

Python, Sqlserver, Mysql, Reactjs, Dart, Flutter, API services and lot more...

Phone/Zalo/Telegram/WhatsApp: ☎️ (+84)933.913122

Zalo: https://zalo.me/0933913122

Email: nguyenthao.laptrinhvb@gmail.com

My Github: https://github.com/nguyenthao1988

Facebook: https://fb.com/Lewandowski28031988

Youtube Channel: https://www.youtube.com/@thaomeotv

 

Buy me a cup of beer

 

 

       

=========================================================================