- [VB.NET] Hướng dẫn giải captcha sử dụng dịch vụ AZCaptcha API trên winform
- [C#] Hướng dẫn chứng thực đăng nhập ứng dụng bằng vân tay (Finger Print) trên máy tính
- [C#] Color Thief cách xuất màu sắc thiết kế từ hình ảnh
- [C#] Cách tạo bản quyền và cho phép dùng thử ứng dụng Winform
- [C#] Hướng dẫn sử dụng trình duyệt web Chrome convert HTML sang tập tin file PDF
- [C#] Kết nôi điện thoại Android, IOS với App Winform via Bluetooth
- [DATABASE] Cách query cộng trừ dồn dần trong Sqlserver
- [C#] Thiết kế ứng dụng Console đẹp với thư viện Spectre.Console
- [C#] Thiết kế ứng dụng Single Instance và đưa ứng dụng lên trước nếu kiểm tra ứng dụng đang chạy
- [C#] Giới thiệu JSON Web Token và cách đọc chuỗi token
- [C#] Cách tăng giảm font chữ tất cả các control trên winform
- [DEVEXPRESS] Tích hợp chức năng Tìm kiếm Search vào CheckedComboboxEdit
- [C#] Gởi email Metting Calendar Reminder kèm nhắc thời gian lịch họp
- [C#] Tìm kiếm xem danh sách từ khóa có tồn tại trong đoạn văn bản hay không
- [C#] Thiết kế giao diện ứng dụng trên Console sử dụng thư viện Terminal.Gui
- [C#] Hướng dẫn tạo mã VietQR Payment API Winform
- [C#] Sử dụng thư viện BenchmarkDotNet đo hiệu năng của hảm Method
- [DEVEXPRESS] Tìm kiếm không dấu tô màu highlight có dấu trên C# Winform
- [C#] Chia sẻ source code tạo hiệu ứng pixel Image trên winform
- [C#] Hướng dẫn kiểm tra số Container hợp lệ hay không
[VB.NET] Hiệu ứng Acrylic, Mica, Tabbed Blur Effect trên Winform
Xin chào các bạn, bài viết hôm nay mình tiếp tục hướng dẫn các bạn tạo hiệu ứng Blur Effect Acrylic, Mica and Tabbed của Windows 11 trên Winform bằng ngồn ngữ VB.NET
[VB.NET] How to Blur Effect Acrylic, Mica, Tabbed Windows 11
Giao diện demo ứng dụng:
Ở màn hình này, các bạn có thể chọn giao diện Theme Dark/Light ở nút button.
Video demo ứng dụng Blur Effect VB.NET:
Đầu tiên các bạn tạo 1 class Pinvoke.vb
:
Imports System.Runtime.InteropServices
Public Class PInvoke
Public Class ParameterTypes
<Flags>
Public Enum DWMWINDOWATTRIBUTE
DWMWA_USE_IMMERSIVE_DARK_MODE = 20
DWMWA_SYSTEMBACKDROP_TYPE = 38
End Enum
<StructLayout(LayoutKind.Sequential)>
Public Structure MARGINS
Public cxLeftWidth As Integer
Public cxRightWidth As Integer
Public cyTopHeight As Integer
Public cyBottomHeight As Integer
End Structure
End Class
Public Class Methods
<DllImport("DwmApi.dll")>
Public Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef pMarInset As ParameterTypes.MARGINS) As Integer
End Function
<DllImport("dwmapi.dll")>
Public Shared Function DwmSetWindowAttribute(ByVal hwnd As IntPtr, ByVal dwAttribute As ParameterTypes.DWMWINDOWATTRIBUTE, ByRef pvAttribute As Integer, ByVal cbAttribute As Integer) As Integer
End Function
Public Shared Function ExtendFrame(ByVal hwnd As IntPtr, ByVal margins As ParameterTypes.MARGINS) As Integer
Return DwmExtendFrameIntoClientArea(hwnd, margins)
End Function
Public Shared Function SetWindowAttribute(ByVal hwnd As IntPtr, ByVal attribute As ParameterTypes.DWMWINDOWATTRIBUTE, ByVal parameter As Integer) As Integer
Return DwmSetWindowAttribute(hwnd, attribute, parameter, Marshal.SizeOf(Of Integer)())
End Function
End Class
End Class
Và tiếp theo là source code cho Form1.vb
Imports System.Net
Imports System.Windows.Interop
Imports AcrylicBlurWindows11.PInvoke.ParameterTypes
Imports AcrylicBlurWindows11.PInvoke.Methods
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim bounds As MARGINS = New MARGINS
Dim hwnd As IntPtr = Handle
With bounds
.cxLeftWidth = 0
.cxRightWidth = 0
.cyTopHeight = Me.Height - 105 'Screen.PrimaryScreen.Bounds.Height - 60
.cyBottomHeight = 0
End With
Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, bounds)
Me.BackColor = Color.Black
Dim Panel As New Panel
With Panel
.Size = New Size(Me.Width, Me.Height - 60)
.Location = New Point(0, 0)
.Anchor = AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top Or AnchorStyles.Bottom
.BackColor = Color.FromKnownColor(KnownColor.Control)
End With
'Panel.Dock = DockStyle.Fill
' Me.Controls.Add(Panel)
End Sub
Private Sub rdoArcylic_CheckedChanged(sender As Object, e As EventArgs) Handles rdoArcylic.CheckedChanged
If rdoArcylic.Checked Then
SetWindowAttribute(Me.Handle, DWMWINDOWATTRIBUTE.DWMWA_SYSTEMBACKDROP_TYPE, 3)
End If
End Sub
Private Sub rdoMica_CheckedChanged(sender As Object, e As EventArgs) Handles rdoMica.CheckedChanged
If rdoMica.Checked Then
SetWindowAttribute(Me.Handle, DWMWINDOWATTRIBUTE.DWMWA_SYSTEMBACKDROP_TYPE, 2)
End If
End Sub
Private Sub rdoTabbed_CheckedChanged(sender As Object, e As EventArgs) Handles rdoTabbed.CheckedChanged
If rdoTabbed.Checked Then
SetWindowAttribute(Me.Handle, DWMWINDOWATTRIBUTE.DWMWA_SYSTEMBACKDROP_TYPE, 4)
End If
End Sub
Private Sub rdoNone_CheckedChanged(sender As Object, e As EventArgs) Handles rdoNone.CheckedChanged
If rdoNone.Checked Then
SetWindowAttribute(Me.Handle, DWMWINDOWATTRIBUTE.DWMWA_SYSTEMBACKDROP_TYPE, 1)
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Button1.Tag.ToString() = "0" Then
SetWindowAttribute(
Me.Handle,
DWMWINDOWATTRIBUTE.DWMWA_USE_IMMERSIVE_DARK_MODE,
1)
Button1.Tag = "1"
Button1.Text = "Light"
Else
SetWindowAttribute(
Me.Handle,
DWMWINDOWATTRIBUTE.DWMWA_USE_IMMERSIVE_DARK_MODE,
0)
Button1.Tag = "0"
Button1.Text = "Dark"
End If
End Sub
End Class
Thanks for watching!