cách tạo nút chuyển đổi trong vb.net

Bạn có thể sử dụng một hộp kiểm cho mục đích này.
Bạn cũng có thể sử dụng nút (đẩy) thông thường, trong trình xử lý sự kiện nhấp chuột chỉ cần chuyển nút Visible Thuộc tính của nhãn:

myLabel.Visible = Not myLabel.Visible

Nút chuyển đổi không gì khác hơn là một Nút đơn giản
yêu cầu một giá trị (ví dụ: giá trị boolean này có đúng không)
và sau đó một if(boolean == true) đơn giản làm điều này, làm điều đó

boolean boo = false;

buttonPressed()
{
  if(boo == true)
  {
    boo = false;
    doSomething.Visible = true;
  }
  else
  {
    boo = true;
    doSomething.Visible = false;
  }
}

chỉ cần sử dụng mã này

checkBox.Appearance = System.Windows.Forms.Appearance.Button

Tôi lấy cái này từ đâu đó và nó hoạt động rất quyến rũ !!!
1. Nhấp chuột phải vào dự án trong VS và chọn ‘Thêm’ rồi chọn ‘Kiểm soát người dùng…’
2. Đặt tên cho tệp mới của bạn là “Toggle.vb”
3. Dán mã bên dưới (vui lòng Chú ý đến bước 4):

VB.NET
Hệ thống nhập khẩu.Bản vẽ
Hệ thống nhập khẩu.Bản vẽ
Hệ thống nhập khẩu. Draw. Draw2D
Nhập khẩu System.Windows.Forms

Sử dụng đường dẫn = GraphicsPath mới()
Dim d = Đệm.Tất cả
Dim r = Me.Chiều cao – 2 * d
path.AddArc(d, d, r, r, 90, 180)
path.AddArc(Me.Width – r – d, d, r, r, -90, 180)
path.Closefigure()
e.Graphics.FillPath(If(Đã chọn, Brushes.DarkGray, Brushes.LightGray), đường dẫn)
r = Chiều cao – 1
Dim trực tràng = If(Đã chọn, New System.draw.Rectangle(Width – r – 1, 0, r, r), New System.draw.Rectangle(0, 0, r, r))
e.Graphics.FillEllipse(If(Đã chọn, Brushes.Green, Brushes.LightSlateGray), trực tràng)
Kết thúc sử dụng
Kết thúc phụ
Kết thúc lớp học

4. Chuyển sang biểu mẫu của bạn và kéo điều khiển ‘chuyển đổi’ từ Hộp công cụ sang biểu mẫu (trong một số trường hợp, nút chuyển đổi không xuất hiện ngay trên Hộp công cụ. Trong trường hợp đó, hãy làm như sau:
Đi đến Công cụ > Tùy chọn > Windows Forms Designer > Chung
Ở cuối danh sách, bạn sẽ tìm thấy Hộp công cụ > AutoToolboxPopulate mà khi cài đặt mới sẽ mặc định là Sai. Đặt nó đúng và sau đó xây dựng lại giải pháp của bạn. Các điều khiển người dùng trong giải pháp của bạn sẽ được tự động thêm vào hộp công cụ. Bạn cũng có thể phải tải lại giải pháp.

Nếu Kiểm soát người dùng của bạn nằm trong thư viện, bạn có thể thêm phần này vào Hộp công cụ bằng cách sử dụng
Hộp công cụ -> nhấp chuột phải -> Chọn Mục -> Duyệt
Chọn tổ hợp của bạn bằng Điều khiển người dùng.
5. Kích thước và cài đặt có thể được thay đổi như điều khiển tiêu chuẩn
6. Màu sắc có thể được thay đổi trong phương thức OnPaint của Toggle Class
Mã C#:
sử dụng System.draw;
sử dụng System.draw.draw2d;
sử dụng System.Windows.Forms;

không gian tên Your_Project_Name
{
chuyển đổi lớp: Hộp kiểm
{
chuyển đổi công khai()
{
SetStyle(ControlStyles.UserPaint | ControlStyles.AllPaintingInWmPaint, true);
Phần đệm = Phần đệm mới(6);
}
ghi đè được bảo vệ void OnPaint(PaintEventArgs e)
{
this.OnPaintBackground(e);
e.Graphics.SmoothingMode = SmoothingMode.AntiAlias;
sử dụng (var path = new GraphicsPath())
{
var d = Padding.All;
var r = this.Height – 2 * d;
path.AddArc(d, d, r, r, 90, 180);
path.AddArc(this.Width – r – d, d, r, r, -90, 180);
path.Closefigure();
e.Graphics.FillPath(Đã kiểm tra? Brushes.DarkGray : Brushes.LightGray, path);
r = Chiều cao – 1;
var reg = Đã kiểm tra chưa? System.draw.Rectangle mới(Chiều rộng – r – 1, 0, r, r)
: mới System.draw.Rectangle(0, 0, r, r);
e.Graphics.FillEllipse(Đã kiểm tra? Brushes.Green : Brushes.LightSlateGray, trực tràng);
}
}
}
}

bên dưới là liên kết đến Nguồn gốc:

Attention Required! | Cloudflare

stackoverflow.com

xem liên kết này bạn sẽ nhận được ý tưởng

http://www.asp.net/ajaxLibrary/AjaxControlToolkitSampleSite/ToggleButton/ToggleButton.aspx

www.asp.net