- [SQLSERVER] Loại bỏ Restricted User trên database MSSQL
- [C#] Hướng dẫn tạo mã QRcode Style trên winform
- [C#] Hướng dẫn sử dụng temp mail service api trên winform
- [C#] Hướng dẫn tạo mã thanh toán VietQR Pay không sử dụng API trên winform
- [C#] Hướng Dẫn Tạo Windows Service Đơn Giản Bằng Topshelf
- [C#] Chia sẻ source code đọc dữ liệu từ Google Sheet trên winform
- [C#] Chia sẻ source code tạo mã QR MOMO đa năng Winform
- [C#] Chia sẻ source code phần mềm lên lịch tự động chạy ứng dụng Scheduler Task Winform
- [Phần mềm] Tải và cài đặt phần mềm Sublime Text 4180 full version
- [C#] Hướng dẫn download file từ Minio Server Winform
- [C#] Hướng dẫn đăng nhập zalo login sử dụng API v4 trên winform
- [SOFTWARE] Phần mềm gởi tin nhắn Zalo Marketing Pro giá rẻ mềm nhất thị trường
- [C#] Việt hóa Text Button trên MessageBox Dialog Winform
- [DEVEXPRESS] Chia sẻ code các tạo report in nhiều hóa đơn trên XtraReport C#
- [POWER AUTOMATE] Hướng dẫn gởi tin nhắn zalo từ file Excel - No code
- [C#] Chia sẻ code lock và unlock user trong domain Window
- [DEVEXPRESS] Vẽ Biểu Đồ Stock Chứng Khoán - Công Cụ Thiết Yếu Cho Nhà Đầu Tư trên Winform
- [C#] Hướng dẫn bảo mật ứng dụng 2FA (Multi-factor Authentication) trên Winform
- [C#] Hướng dẫn convert HTML code sang PDF File trên NetCore 7 Winform
- [C#] Hướng dẫn viết ứng dụng chat với Gemini AI Google Winform
[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!