- [C#] Giới thiệu Component WebView2 của Microsoft
- [C#] Hướng dẫn lưu tất cả hình ảnh từ File Excel vào thư mục window
- [DATABASE] Hướng dẫn import và export hình ảnh image từ Sqlserver
- [DATABASE] Hướng dẫn sử dụng Hàm ASCII trong sqlserver
- [C#] Hướng dẫn fix lỗi Visual Studio 2022 not Support Target Net Framework 4.5.2
- [C#] Giới thiệu thư viện Sunny UI thiết kế giao diện trên Winform
- [DATABASE] Hướng dẫn thêm và cập nhật Extended Property Column trong Table Sqlserver
- [DEVEXPRESS] Hướng dẫn sử dụng Vertical Gridview để hiển thị thông tin sản phẩm
- [C#] Hướng dẫn sử dụng Json Schema để Validate chuỗi string có phải json
- [C#] Hướng dẫn sử dụng công cụ Clean Code trên Visual Studio
- [C#] Hướng dẫn Drag and Drop File vào RichTextBox
- [C#] Hướng dẫn tạo hiệu ứng Karaoke Text Effect Winform
- [C#] Sử dụng thư viện ZedGraph vẽ biểu đồ Line, Bar, Pie trên Winform
- [DATABASE] Hướng dẫn sort sắp xếp địa chỉ IP trên sqlserver sử dụng hàm PARSENAME
- [C#] Theo dõi sử kiện process Start hay Stop trên Winform
- [ASP.NET] Chia sẻ source code chụp hình sử dụng camera trên website
- [C#] Chạy ứng dụng trên Virtual Desktop (màn hình ảo) Winform
- [C#] Mã hóa và giải mã Data Protection API trên winform
- [C#] Hướng dẫn tạo Gradient Background trên Winform
- [DATABASE] Hướng dẫn convert Epoch to DateTime trong sqlserver
[VB.NET] Chia sẻ source code tạo hiệu ứng hình ảnh khi chuyển đổi hình ảnh
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!