[VB] Share the source code to create visual effects when converting images

Hi mọi người, lâu không ra bài viết vì thời gian bị hạn chế do công việc quá bận rộn :D.

 

Hôm nay lang thang trên internet mình tìm thấy một bài viết khá hay về slide hình ảnh trên ứng dụng Visual Basic, nên mình chôm về chia sẽ lại cho mọi người tìm hiểu.

Chúng ta bắt đầu nhé.

[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.

DEMO: PHÍA DƯỚI KHUNG BÌNH LUẬN.

FULL SOURCE :

  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
  

Nguồn : Laptrinhvb.net
Chúc mọi người thành công với thủ thuật này.