Các bước thực hiện

Tổng kết

[C#] Viết ứng dụng Auto Fill list Textbox from clipboard Winform

Video demo ứng dụng:

Full source code C#:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Text.RegularExpressions;
using System.Threading.Tasks;
using System.Windows.Forms;



namespace FillFormClipboard
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            foreach (Control control in panel1.Controls)
            {
                if (control is TextBox)
                {                   
                    TextBox textBox = (TextBox)control;
                    textBox.KeyDown += TextBox_KeyDown;
                    textBox.KeyPress += TextBox_KeyPress;
                }
            }
        }

        private void TextBox_KeyPress(object sender, KeyPressEventArgs e)
        {
            // chỉ cho phép nhập số
            if (!char.IsDigit(e.KeyChar) && !char.IsControl(e.KeyChar))
            {                
                e.Handled = true;
            }
        }

        private void Form1_Load(object sender, EventArgs e)
        {

        }

        private void TextBox_KeyDown(object sender, KeyEventArgs e)
        {
           
            if (e.Control && e.KeyCode == Keys.V)
            {               
                HandlePasteEvent((TextBox)sender);
            }
        }

        private void HandlePasteEvent(TextBox textBox)
        {
           
            if (Clipboard.ContainsText())
            {
                string clipboardText = Clipboard.GetText().Trim().Replace(" ","");
                var regex = new Regex(@"^\d{12}$");
                if (clipboardText.Length == 12 && regex.IsMatch(clipboardText))
                {
                    char[] characters = clipboardText.ToCharArray();

                    foreach (Control control in panel1.Controls)
                    {
                        if (control is TextBox)
                        {
                            var nameControl = control.Name;
                            var i = Convert.ToInt16(nameControl.Split('_').LastOrDefault()) - 1;
                            control.Text = characters[i].ToString();
                        }
                    }
                }
            }
        }

    }
}

1. Đầu tiên chúng ta cần import thư viện

using System.Threading;

Imports System.Threading

2. Viết sự kiện cho button Close tạo hiệu ứng fade khi đóng form

private void btnFade_Click(object sender, EventArgs e)
{
     int loopctr = 0;
 
     for (loopctr = 100; loopctr >= 5; loopctr -= 10)
     {
          this.Opacity = loopctr/95.0;
          this.Refresh();
          Thread.Sleep(100);
      }
 
      this.Close();
}

Private Sub btnFade_Click(ByVal sender As Object, ByVal e As EventArgs)
                  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()
End Sub

[VB.NET] Hướng dẫn giải captcha sử dụng dịch vụ AZCaptcha API trên winform

Imports System.IO
Imports System.Net
Imports System.Text

Public Class AZCaptchaHelper

    Public Shared Function GetHTMLForm(ByVal Url As String) As String
        Dim myRequest As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
        myRequest.Method = "GET"
        Dim myResponse As WebResponse = myRequest.GetResponse()
        Dim sr As StreamReader = New StreamReader(myResponse.GetResponseStream(), System.Text.Encoding.UTF8)
        Dim result As String = sr.ReadToEnd()
        sr.Close()
        myResponse.Close()
        Return result
    End Function
    Public Shared Function ImageToBase64(img As Image) As String
        Return Convert.ToBase64String(ImageToByteArray(img))
    End Function
    Public Shared Function ImageToByteArray(img As Image) As Byte()
        Using strm As New MemoryStream
            img.Save(strm, img.RawFormat)
            Return strm.GetBuffer()
        End Using
    End Function
    Public Shared Function GetStringFromCaptcha(base64string As String, API_KEY As String) As String
        Try
            System.Net.ServicePointManager.Expect100Continue = False
            Dim request = CType(WebRequest.Create("http://azcaptcha.com/in.php"), HttpWebRequest)

            Dim postData = "method=base64&key=" & API_KEY & "&body=" + WebUtility.UrlEncode(base64string)
            Dim data = Encoding.ASCII.GetBytes(postData)
            request.Method = "POST"
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = data.Length

            Using stream = request.GetRequestStream()
                stream.Write(data, 0, data.Length)
            End Using

            Dim response = CType(request.GetResponse(), HttpWebResponse)
            Dim responseString As String = New StreamReader(response.GetResponseStream()).ReadToEnd()

            If responseString.Contains("OK|") Then
                Dim captcha As String = ""

                While True
                    captcha = GetHTMLForm("http://azcaptcha.com/res.php?key=" & API_KEY & "&action=get&id=" & responseString.Split("|"c)(1))

                    If captcha = "CAPCHA_NOT_READY" Then
                        System.Threading.Thread.Sleep(500)
                        Continue While
                    End If

                    If captcha = "_" Then
                        System.Threading.Thread.Sleep(500)
                        Continue While
                    End If

                    If captcha.Contains("OK|") Then
                        captcha = captcha.Replace("OK|", "")
                    End If

                    Return captcha
                End While
            End If

            Return ""
        Catch e As Exception
            Dim tt As String = e.Message
            Return tt
        End Try
    End Function
End Class

Imports System.IO
Imports System.Net
Imports System.Text

Public Class AZCaptchaHelper

    Public Shared Function GetHTMLForm(ByVal Url As String) As String
        Dim myRequest As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
        myRequest.Method = "GET"
        Dim myResponse As WebResponse = myRequest.GetResponse()
        Dim sr As StreamReader = New StreamReader(myResponse.GetResponseStream(), System.Text.Encoding.UTF8)
        Dim result As String = sr.ReadToEnd()
        sr.Close()
        myResponse.Close()
        Return result
    End Function
    Public Shared Function ImageToBase64(img As Image) As String
        Return Convert.ToBase64String(ImageToByteArray(img))
    End Function
    Public Shared Function ImageToByteArray(img As Image) As Byte()
        Using strm As New MemoryStream
            img.Save(strm, img.RawFormat)
            Return strm.GetBuffer()
        End Using
    End Function
    Public Shared Function GetStringFromCaptcha(base64string As String, API_KEY As String) As String
        Try
            System.Net.ServicePointManager.Expect100Continue = False
            Dim request = CType(WebRequest.Create("http://azcaptcha.com/in.php"), HttpWebRequest)

            Dim postData = "method=base64&key=" & API_KEY & "&body=" + WebUtility.UrlEncode(base64string)
            Dim data = Encoding.ASCII.GetBytes(postData)
            request.Method = "POST"
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = data.Length

            Using stream = request.GetRequestStream()
                stream.Write(data, 0, data.Length)
            End Using

            Dim response = CType(request.GetResponse(), HttpWebResponse)
            Dim responseString As String = New StreamReader(response.GetResponseStream()).ReadToEnd()

            If responseString.Contains("OK|") Then
                Dim captcha As String = ""

                While True
                    captcha = GetHTMLForm("http://azcaptcha.com/res.php?key=" & API_KEY & "&action=get&id=" & responseString.Split("|"c)(1))

                    If captcha = "CAPCHA_NOT_READY" Then
                        System.Threading.Thread.Sleep(500)
                        Continue While
                    End If

                    If captcha = "_" Then
                        System.Threading.Thread.Sleep(500)
                        Continue While
                    End If

                    If captcha.Contains("OK|") Then
                        captcha = captcha.Replace("OK|", "")
                    End If

                    Return captcha
                End While
            End If

            Return ""
        Catch e As Exception
            Dim tt As String = e.Message
            Return tt
        End Try
    End Function
End Class

[C#] Hướng dẫn tạo file PDF sử dụng thư viện QuestPDF

NuGet\Install-Package QuestPDF -Version 2023.10.2

Full source code c#:

using EmployeeDataExample;
using QuestPDF.Elements;
using QuestPDF.Fluent;
using QuestPDF.Helpers;
using QuestPDF.Infrastructure;
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Data.Common;
using System.Diagnostics;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using ZXing;

namespace QuestPDFTester
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            QuestPDF.Settings.License = LicenseType.Community;
        }

        private async void button1_Click(object sender, EventArgs e)
        {

            //var image = QRCodeGenerator.GenerateQRCodeBytes("https://laptrinhvb.net/bai-viet/chuyen-de-csharp/---Csharp----Huong-dan-tao-ung-dung-dock-windows-giong-Taskbar/2f0a9a79ff1bafd4.html", 80, 80);
            //var ddd = (Bitmap)((new ImageConverter()).ConvertFrom(image));
            //pictureBox1.Image = (ddd);


            var listEmployee = await new EmployeeData().GetEmployeesAsync();

            Document.Create(container =>
            {
                container.Page(page =>
                {
                    page.Size(PageSizes.A4);
                    page.Margin(4, Unit.Millimetre);
                    page.PageColor(Colors.White);
                    
                    page.DefaultTextStyle(x => x.FontSize(9));
                    page.DefaultTextStyle(x => x.FontFamily("Tahoma"));

                    //page.Header()
                    //    .Text("Hello PDF!")
                    //    .SemiBold().FontSize(36).FontColor(Colors.Blue.Medium);

                      page.Content()
                        .PaddingVertical(1, Unit.Centimetre)
                        .Column(x =>
                        {
                            x.Item().Row(
                                row =>
                                {


                                    row.RelativeItem().AlignLeft()

                                      .Row(rowitem =>
                                      {
                                          rowitem.AutoItem().Width(65).Height(65).Image(QRCodeGenerator.ReadImageFileToBytes("logo.png"));


                                          rowitem.AutoItem().Container().Width(4);
                                          rowitem.RelativeItem().Padding(2).Column(column =>
                                          {
                                              column.Item().Container().Height(2);
                                              column.Item().Row(row2 =>
                                              {
                                                  row2.Spacing(8);
                                                  row2.AutoItem().Text($"CÔNG TY PHÁT TRIỂN CÔNG NGHỆ TPHCM").FontSize(9).FontColor("#000");

                                              });
                                              column.Item().Row(row2 =>
                                              {
                                                  row2.Spacing(8);
                                                  row2.AutoItem().Text($"LẬP TRÌNH VB.NET").FontSize(9).FontColor("#000");

                                              });
                                             
                                              column.Item().Row(row2 =>
                                              {
                                                  row2.Spacing(8);
                                                  row2.RelativeItem().Hyperlink("https://laptrinhvb.net").Text("https://laptrinhvb.net").FontSize(9).FontColor("#0958d9");

                                              });

                                          });
                                      });



                                    row.RelativeItem().AlignRight().Width(250).Height(65)
                                           
                                        .Row(rowitem =>
                                        {
                                            rowitem.AutoItem().Width(65).Height(65).Image(QRCodeGenerator.GenerateQRCodeBytes("https://laptrinhvb.net/bai-viet/chuyen-de-csharp/---Csharp----Huong-dan-tao-ung-dung-dock-windows-giong-Taskbar/2f0a9a79ff1bafd4.html", 170, 170));


                                            rowitem.AutoItem().Container().Width(4);
                                            rowitem.RelativeItem().Border(0.5f).Padding(2).Column(column =>
                                             {
                                                 column.Item().Container().Height(2);
                                                column.Item().Row(row2 =>
                                                {                                                  
                                                    row2.Spacing(12);
                                                    row2.AutoItem().Text($"Mã tài liệu: LAPTRINHVB-03-BCT/02").FontSize(9).Italic();

                                                });
                                                 column.Item().Row(row2 =>
                                                 {
                                                     row2.Spacing(12);
                                                     row2.AutoItem().Text($"Ngày ban hành: 21/11/2023").FontSize(9).Italic();

                                                 });
                                                 column.Item().Row(row2 =>
                                                 {
                                                     row2.Spacing(12);
                                                     row2.AutoItem().Text($"Ngày sửa đổi: 22/03/2023").FontSize(9).Italic();
                                                     
                                                 });
                                                 column.Item().Row(row2 =>
                                                 {
                                                     row2.Spacing(5);
                                                     row2.AutoItem().Text($"Sửa đổi lần: 01").FontSize(9).Italic()  ; 
                                                    
                                                 });

                                             });
                                        });
                                     
                                }
                            );

                            // x.Item().LineHorizontal(1);
                            x.Spacing(10);
                            x.Item().AlignCenter().Text("DANH SÁCH NHÂN VIÊN")
                            
                            .SemiBold().FontSize(16).FontColor(Colors.Orange.Medium);
                            x.Spacing(10);



                           // x.Item().Text(Placeholders.LoremIpsum());
                           

                            x.Item().MinimalBox();
                          //  x.Item().Border(0.5F);
                            x.Item().Table(table =>
                               {
                                   QuestPDF.Infrastructure.IContainer DefaultCellStyle(QuestPDF.Infrastructure.IContainer containers, string backgroundColor)
                                   {
                                       return containers
                                           .Border(0.5f)
                                           .BorderColor(Colors.Grey.Lighten1)
                                           .Background(backgroundColor)
                                          
                                           .PaddingVertical(5)
                                           .PaddingHorizontal(10)
                                           .AlignCenter()
                                           .AlignMiddle();
                                   }

                                   QuestPDF.Infrastructure.IContainer DefaultCellStyle2(QuestPDF.Infrastructure.IContainer containers, string backgroundColor)
                                   {
                                       return containers
                                           .Border(0.5f)
                                           .BorderColor(Colors.Grey.Lighten1)
                                           .Background(Colors.White)

                                           .PaddingVertical(5)
                                           .PaddingHorizontal(10);
                                        
                                   }

                                   QuestPDF.Infrastructure.IContainer DefaultCellStyleGroup(QuestPDF.Infrastructure.IContainer containers, string backgroundColor)
                                   {
                                       return containers
                                           .Border(0.5f)
                                             .BorderColor(Colors.Grey.Lighten1)
                                           .Background("#f0f0f0")

                                           .PaddingVertical(5)
                                           .PaddingHorizontal(10);

                                   }

                                   table.ColumnsDefinition(columns =>
                                   {
                                       columns.ConstantColumn(40);
                                       columns.ConstantColumn(70);
                                       columns.ConstantColumn(120);
                                       columns.ConstantColumn(100);
                                       columns.RelativeColumn();


                                   });


                                   table.Header(header =>
                                   {

                                       header.Cell().Element(CellStyle).Text("#").FontSize(10).FontColor(Colors.White).Bold();
                                       header.Cell().Element(CellStyle).Text("Mã NV").FontSize(10).FontColor(Colors.White).Bold();
                                       header.Cell().Element(CellStyle).Text("Tên nhân viên").FontSize(10).FontColor(Colors.White).Bold();
                                       header.Cell().Element(CellStyle).Text("Nơi sinh").FontSize(10).FontColor(Colors.White).Bold();
                                       header.Cell().Element(CellStyle).Text("Địa chỉ").FontSize(10).FontColor(Colors.White).Bold();

                                       QuestPDF.Infrastructure.IContainer CellStyle(QuestPDF.Infrastructure.IContainer containers) => DefaultCellStyle(containers, Colors.Blue.Medium);

                                       
                                   });

                                   var list50Item = listEmployee.Where(u => u.BirthPlace !="Trung Quốc").ToList().Take(50);

                                   var groupedProducts = list50Item.GroupBy(p => p.BirthPlace);
                                   int i = 1;
                                   foreach (var group in groupedProducts)
                                   {
                                       table.Cell().ColumnSpan(5).Element(CellStyleGroup).Text(group.Key).FontSize(10).FontColor("#000000");

                                       
                                       foreach (var item in group)
                                       {
                                           table.Cell().Element(CellStyle2).AlignCenter().Text(i.ToString() + ".").FontSize(10);
                                           table.Cell().Element(CellStyle2).Text(item.Code).FontSize(10);
                                           table.Cell().Element(CellStyle2).Text(item.Name).FontSize(10);
                                           table.Cell().Element(CellStyle2).Text(item.BirthPlace).FontSize(10);
                                           table.Cell().Element(CellStyle2).Text(item.Address).FontSize(10);
                                           i++;
                                       }
                                   }

                                  
                                   QuestPDF.Infrastructure.IContainer CellStyle2(QuestPDF.Infrastructure.IContainer containers) => DefaultCellStyle2(containers, Colors.Blue.Medium);
                                   QuestPDF.Infrastructure.IContainer CellStyleGroup(QuestPDF.Infrastructure.IContainer containers) => DefaultCellStyleGroup(containers, Colors.Blue.Medium);

                                   table.ExtendLastCellsToTableBottom();
                                   
                                  
                               });
                        });


                  
                  


                    page.Footer()
                        .AlignCenter()
                        .Text(x =>
                        {
                            x.Span("Page ");
                            x.CurrentPageNumber();
                        });
                });
            })
                .GeneratePdf("test.pdf");


            Process.Start("test.pdf");
        }


    }

 
    public static class SimpleExtension
    {
        private static QuestPDF.Infrastructure.IContainer Cell(this QuestPDF.Infrastructure.IContainer container, bool dark)
        {
            return container
                .Border(1)
                .Background(dark ? Colors.Grey.Lighten2 : Colors.White)
                .Padding(10);
        }
        
        public static void LabelCell(this QuestPDF.Infrastructure.IContainer container, string text) => container.Cell(true).Text(text).Medium();      
        public static QuestPDF.Infrastructure.IContainer ValueCell(this QuestPDF.Infrastructure.IContainer container) => container.Cell(false);

        public static QuestPDF.Infrastructure.IContainer Block(this QuestPDF.Infrastructure.IContainer container)
        {
            return container
                .Border(1)
                .Background(Colors.Grey.Lighten3)
                .ShowOnce()
                .MinWidth(50)
                .MinHeight(50)
                .AlignCenter()
                .AlignMiddle();
        }

    }

    class QRCodeGenerator
    {
        public static byte[] GenerateQRCodeBytes(string text, int width = 100, int height = 100, int margin = 0)
        {          
            BarcodeWriter barcodeWriter = new BarcodeWriter();
            barcodeWriter.Format = BarcodeFormat.QR_CODE;          
            barcodeWriter.Options = new ZXing.Common.EncodingOptions
            {
                Width = width, 
                Height = height, 
                Margin = margin 
            };          
            Bitmap qrCodeBitmap = barcodeWriter.Write(text);         
            byte[] byteArray = BitmapToByteArray(qrCodeBitmap);
            return byteArray;
        }      
        private static byte[] BitmapToByteArray(Bitmap bitmap)
        {
            using (var stream = new System.IO.MemoryStream())
            {
                bitmap.Save(stream, System.Drawing.Imaging.ImageFormat.Png);
                return stream.ToArray();
            }
        }

        public static byte[] ReadImageFileToBytes(string filePath)
        {
            try
            {              
                if (!File.Exists(filePath))
                {
                    throw new FileNotFoundException($"File not found: {filePath}");
                }              
                byte[] fileBytes = File.ReadAllBytes(filePath);
                return fileBytes;
            }
            catch (Exception ex)
            {               
                Console.WriteLine($"Error reading image file: {ex.Message}");
                return null; 
            }
        }
    }
}

[C#] Hướng dẫn tạo ứng dụng dock windows giống Taskbar

NuGet\Install-Package tip2tail.WinFormAppBarLib -Version 1.2.1

Full source code c#:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using tip2tail.WinFormAppBarLib;

namespace AppBarDesktop
{
    public partial class Form1 : Form
    {
        public Form1()
        {
          //  AppBarHelper.PreventShowDesktop(this.Handle);
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            AppBarHelper.AppBarMessage = "HUNG.PRO.VN";
            AppBarHelper.SetAppBar(this, AppBarEdge.None);
        }

        private void button2_Click(object sender, EventArgs e)
        {
            AppBarHelper.SetAppBar(this, AppBarEdge.None);
        }

        private void button5_Click(object sender, EventArgs e)
        {
            AppBarHelper.SetAppBar(this, AppBarEdge.Left);
        }

        private void button3_Click(object sender, EventArgs e)
        {
            AppBarHelper.SetAppBar(this, AppBarEdge.Right);
        }

        private void button4_Click(object sender, EventArgs e)
        {
            AppBarHelper.SetAppBar(this, AppBarEdge.Bottom);
        }

        private void button1_Click(object sender, EventArgs e)
        {
            AppBarHelper.SetAppBar(this, AppBarEdge.Top);
        }
    }
}

1. Sử dụng module string

>>> import string

>>> string.letters
'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'

>>> string.punctuation
'!"#$%&\'()*+,-./:;<=>?@[\\]^_`{|}~'

>>> string.digits
'0123456789'

2. Sử dụng module random

>>> import string, random
>>> chars = string.letters
>>> random.choice(chars)
't'
>>> random.choice(chars)
'V'
>>> random.choice(chars)
'J'
>>> random.choice(chars)
'a'

3. Code khởi tạo mật khẩu ngẫu nhiên

import string
import random

chars_fixed = string.letters + string.digits
min_size_pass = 8
max_size_pass = 15

password = "".join(random.choice(chars_fixed) for x in range(random.randint(min_size_pass, max_size_pass)))
print "This is your password : %s" % password

This is your password : DZ2b6wjXj8mD
This is your password : 6wiu7pcgb

[C#] Hiệu ứng gõ phím Smooth typing Effect RichTextBox giống MS Word 2013

Thread.Sleep(20); // set speed effect slow or fast

Full source code Smooth Typing Effect C#:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace SmoothTypingText
{
    public partial class Form1 : Form
    {       
        [DllImport("user32.dll")] static extern bool SetCaretPos(int x, int y);
        [DllImport("user32.dll")] static extern Point GetCaretPos(out Point point);
        public int speed = 20;
        public Form1()
        {
            InitializeComponent();
            Point targetCaretPos;
            GetCaretPos(out targetCaretPos);            
            richTextBox1.TextChanged += (s, e) =>
            {               
                Point temp;
                GetCaretPos(out temp);
                SetCaretPos(targetCaretPos.X, targetCaretPos.Y);
                targetCaretPos = temp;
            };
          
            Thread t = new Thread(() =>
            {
                Point current = targetCaretPos;
                while (true)
                {
                    if (current != targetCaretPos)
                    {
                       
                        if (Math.Abs(current.X - targetCaretPos.X) + Math.Abs(current.Y - targetCaretPos.Y) > 30)
                            current = targetCaretPos; 
                        else
                        {
                            current.X += Math.Sign(targetCaretPos.X - current.X);
                            current.Y += Math.Sign(targetCaretPos.Y - current.Y);
                        }

                      
                        richTextBox1.Invoke((Action)(() => SetCaretPos(current.X, current.Y)));
                    }                    
                    Thread.Sleep(20); // set speed effect slow or fast
                }
            });
            t.IsBackground = true; 
            t.Start();
        }
        
    }
}

Video demo ứng dụng smooth effect typing c#:

[VB.NET] Hiệu ứng Acrylic, Mica, Tabbed Blur Effect trên Winform

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

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

[DEVEXPRESS] Chia sẻ tool Winform UI Templates Early Access Preview (EAP)

CHI TIẾT CÁC TEMPLATE: