[VISUAL BASIC] Blur effect when exiting the program

Xin chào mọi người, cũng đã lâu rồi mình chưa chia sẽ về thủ thuật làm đẹp cho chương trình của bản thân một cách tốt nhất phải không mọi người.

[VISUAL BASIC] Hiệu ứng làm mờ khi thoát chương trình.

Với thủ thuật này hoàn toàn đơn giản chứ không phức tạp như mọi người nghĩ đâu nhé.

Đối với thủ thuật này mọi người Imports dữ liệu hệ thống bên dưới vào.

Imports System.Threading

Và tiếp đến là thêm bộ mã nguồn này vào button, label hay thoát chương trình nếu bạn muốn.

  Dim loopctr As Integer = 0

  For loopctr = 100 To 5 Step -10
      Me.Opacity = loopctr / 95.0
      Me.Refresh()
      Thread.Sleep(100)
  Next loopctr

  Me.Close()

Như vậy đã hoàn thành rồi nhé và các bạn có thể thay đổi những con số ở trong source để tuỳ biến theo khả năng và sở thích của mỗi người nhé.

Chúc mọi người thành công.