如何:在 MenuStrip 中顯示選項按鈕 (Windows Form)
選項按鈕也稱為選項按鈕,類似于核取方塊,不同之處在于使用者一次只能選取一個。 雖然類別預設 ToolStripMenuItem 不提供選項按鈕行為,但 類別會提供核取方塊行為,您可以自訂以實作控制項中 MenuStrip 功能表項目的選項按鈕行為。
CheckOnClick當功能表項目的 屬性是 true
時,使用者可以按一下專案來切換核取記號的顯示。 屬性 Checked 表示專案的目前狀態。 若要實作基本選項按鈕行為,您必須確定選取專案時,請將先前選取之專案的 屬性設定 Checked 為 false
。
下列程式描述如何在繼承 ToolStripMenuItem 類別的類別中實作這項功能和其他功能。 類別 ToolStripRadioButtonMenuItem
會覆寫 和 之類的 OnCheckedChangedOnPaint 成員,以提供選項按鈕的選取行為和外觀。 此外,這個類別會 Enabled 覆寫 屬性,因此除非選取父專案,否則子功能表上的選項會停用。
實作選項按鈕選取行為
CheckOnClick將 屬性初始化為
true
,以啟用專案選取。// Called by all constructors to initialize CheckOnClick. private void Initialize() { CheckOnClick = true; }
' Called by all constructors to initialize CheckOnClick. Private Sub Initialize() CheckOnClick = True End Sub
覆寫 方法, OnCheckedChanged 以在選取新專案時清除先前選取之專案的選取範圍。
protected override void OnCheckedChanged(EventArgs e) { base.OnCheckedChanged(e); // If this item is no longer in the checked state or if its // parent has not yet been initialized, do nothing. if (!Checked || this.Parent == null) return; // Clear the checked state for all siblings. foreach (ToolStripItem item in Parent.Items) { ToolStripRadioButtonMenuItem radioItem = item as ToolStripRadioButtonMenuItem; if (radioItem != null && radioItem != this && radioItem.Checked) { radioItem.Checked = false; // Only one item can be selected at a time, // so there is no need to continue. return; } } }
Protected Overrides Sub OnCheckedChanged(ByVal e As EventArgs) MyBase.OnCheckedChanged(e) ' If this item is no longer in the checked state or if its ' parent has not yet been initialized, do nothing. If Not Checked OrElse Me.Parent Is Nothing Then Return ' Clear the checked state for all siblings. For Each item As ToolStripItem In Parent.Items Dim radioItem As ToolStripRadioButtonMenuItem = _ TryCast(item, ToolStripRadioButtonMenuItem) If radioItem IsNot Nothing AndAlso _ radioItem IsNot Me AndAlso _ radioItem.Checked Then radioItem.Checked = False ' Only one item can be selected at a time, ' so there is no need to continue. Return End If Next End Sub
OnClick覆寫 方法,以確保按一下已選取的專案將不會清除選取範圍。
protected override void OnClick(EventArgs e) { // If the item is already in the checked state, do not call // the base method, which would toggle the value. if (Checked) return; base.OnClick(e); }
Protected Overrides Sub OnClick(ByVal e As EventArgs) ' If the item is already in the checked state, do not call ' the base method, which would toggle the value. If Checked Then Return MyBase.OnClick(e) End Sub
修改選項按鈕專案的外觀
使用 類別覆 OnPaint 寫 方法,以選項按鈕 RadioButtonRenderer 取代預設核取記號。
// Let the item paint itself, and then paint the RadioButton // where the check mark is normally displayed. protected override void OnPaint(PaintEventArgs e) { if (Image != null) { // If the client sets the Image property, the selection behavior // remains unchanged, but the RadioButton is not displayed and the // selection is indicated only by the selection rectangle. base.OnPaint(e); return; } else { // If the Image property is not set, call the base OnPaint method // with the CheckState property temporarily cleared to prevent // the check mark from being painted. CheckState currentState = this.CheckState; this.CheckState = CheckState.Unchecked; base.OnPaint(e); this.CheckState = currentState; } // Determine the correct state of the RadioButton. RadioButtonState buttonState = RadioButtonState.UncheckedNormal; if (Enabled) { if (mouseDownState) { if (Checked) buttonState = RadioButtonState.CheckedPressed; else buttonState = RadioButtonState.UncheckedPressed; } else if (mouseHoverState) { if (Checked) buttonState = RadioButtonState.CheckedHot; else buttonState = RadioButtonState.UncheckedHot; } else { if (Checked) buttonState = RadioButtonState.CheckedNormal; } } else { if (Checked) buttonState = RadioButtonState.CheckedDisabled; else buttonState = RadioButtonState.UncheckedDisabled; } // Calculate the position at which to display the RadioButton. Int32 offset = (ContentRectangle.Height - RadioButtonRenderer.GetGlyphSize( e.Graphics, buttonState).Height) / 2; Point imageLocation = new Point( ContentRectangle.Location.X + 4, ContentRectangle.Location.Y + offset); // Paint the RadioButton. RadioButtonRenderer.DrawRadioButton( e.Graphics, imageLocation, buttonState); }
' Let the item paint itself, and then paint the RadioButton ' where the check mark is normally displayed. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) If Image IsNot Nothing Then ' If the client sets the Image property, the selection behavior ' remains unchanged, but the RadioButton is not displayed and the ' selection is indicated only by the selection rectangle. MyBase.OnPaint(e) Return Else ' If the Image property is not set, call the base OnPaint method ' with the CheckState property temporarily cleared to prevent ' the check mark from being painted. Dim currentState As CheckState = Me.CheckState Me.CheckState = CheckState.Unchecked MyBase.OnPaint(e) Me.CheckState = currentState End If ' Determine the correct state of the RadioButton. Dim buttonState As RadioButtonState = RadioButtonState.UncheckedNormal If Enabled Then If mouseDownState Then If Checked Then buttonState = RadioButtonState.CheckedPressed Else buttonState = RadioButtonState.UncheckedPressed End If ElseIf mouseHoverState Then If Checked Then buttonState = RadioButtonState.CheckedHot Else buttonState = RadioButtonState.UncheckedHot End If Else If Checked Then buttonState = RadioButtonState.CheckedNormal End If Else If Checked Then buttonState = RadioButtonState.CheckedDisabled Else buttonState = RadioButtonState.UncheckedDisabled End If End If ' Calculate the position at which to display the RadioButton. Dim offset As Int32 = CInt((ContentRectangle.Height - _ RadioButtonRenderer.GetGlyphSize( _ e.Graphics, buttonState).Height) / 2) Dim imageLocation As Point = New Point( _ ContentRectangle.Location.X + 4, _ ContentRectangle.Location.Y + offset) ' Paint the RadioButton. RadioButtonRenderer.DrawRadioButton( _ e.Graphics, imageLocation, buttonState) End Sub
OnMouseEnter覆寫 、 OnMouseLeave 、 OnMouseDown 和 OnMouseUp 方法來追蹤滑鼠的狀態,並確保 OnPaint 方法繪製正確的選項按鈕狀態。
private bool mouseHoverState = false; protected override void OnMouseEnter(EventArgs e) { mouseHoverState = true; // Force the item to repaint with the new RadioButton state. Invalidate(); base.OnMouseEnter(e); } protected override void OnMouseLeave(EventArgs e) { mouseHoverState = false; base.OnMouseLeave(e); } private bool mouseDownState = false; protected override void OnMouseDown(MouseEventArgs e) { mouseDownState = true; // Force the item to repaint with the new RadioButton state. Invalidate(); base.OnMouseDown(e); } protected override void OnMouseUp(MouseEventArgs e) { mouseDownState = false; base.OnMouseUp(e); }
Private mouseHoverState As Boolean = False Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs) mouseHoverState = True ' Force the item to repaint with the new RadioButton state. Invalidate() MyBase.OnMouseEnter(e) End Sub Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs) mouseHoverState = False MyBase.OnMouseLeave(e) End Sub Private mouseDownState As Boolean = False Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs) mouseDownState = True ' Force the item to repaint with the new RadioButton state. Invalidate() MyBase.OnMouseDown(e) End Sub Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs) mouseDownState = False MyBase.OnMouseUp(e) End Sub
在未選取父專案時停用子功能表的選項
Enabled覆寫 屬性,讓專案在具有 值為 的父專案 CheckOnClick
true
和 Checked 值false
時停用。// Enable the item only if its parent item is in the checked state // and its Enabled property has not been explicitly set to false. public override bool Enabled { get { ToolStripMenuItem ownerMenuItem = OwnerItem as ToolStripMenuItem; // Use the base value in design mode to prevent the designer // from setting the base value to the calculated value. if (!DesignMode && ownerMenuItem != null && ownerMenuItem.CheckOnClick) { return base.Enabled && ownerMenuItem.Checked; } else { return base.Enabled; } } set { base.Enabled = value; } }
' Enable the item only if its parent item is in the checked state ' and its Enabled property has not been explicitly set to false. Public Overrides Property Enabled() As Boolean Get Dim ownerMenuItem As ToolStripMenuItem = _ TryCast(OwnerItem, ToolStripMenuItem) ' Use the base value in design mode to prevent the designer ' from setting the base value to the calculated value. If Not DesignMode AndAlso ownerMenuItem IsNot Nothing AndAlso _ ownerMenuItem.CheckOnClick Then Return MyBase.Enabled AndAlso ownerMenuItem.Checked Else Return MyBase.Enabled End If End Get Set(ByVal value As Boolean) MyBase.Enabled = value End Set End Property
覆寫 OnOwnerChanged 方法以訂閱 CheckedChanged 父專案的事件。
// When OwnerItem becomes available, if it is a ToolStripMenuItem // with a CheckOnClick property value of true, subscribe to its // CheckedChanged event. protected override void OnOwnerChanged(EventArgs e) { ToolStripMenuItem ownerMenuItem = OwnerItem as ToolStripMenuItem; if (ownerMenuItem != null && ownerMenuItem.CheckOnClick) { ownerMenuItem.CheckedChanged += new EventHandler(OwnerMenuItem_CheckedChanged); } base.OnOwnerChanged(e); }
' When OwnerItem becomes available, if it is a ToolStripMenuItem ' with a CheckOnClick property value of true, subscribe to its ' CheckedChanged event. Protected Overrides Sub OnOwnerChanged(ByVal e As EventArgs) Dim ownerMenuItem As ToolStripMenuItem = _ TryCast(OwnerItem, ToolStripMenuItem) If ownerMenuItem IsNot Nothing AndAlso _ ownerMenuItem.CheckOnClick Then AddHandler ownerMenuItem.CheckedChanged, New _ EventHandler(AddressOf OwnerMenuItem_CheckedChanged) End If MyBase.OnOwnerChanged(e) End Sub
在父專案 CheckedChanged 事件的處理常式中,使專案失效,以新的啟用狀態更新顯示。
// When the checked state of the parent item changes, // repaint the item so that the new Enabled state is displayed. private void OwnerMenuItem_CheckedChanged( object sender, EventArgs e) { Invalidate(); }
' When the checked state of the parent item changes, ' repaint the item so that the new Enabled state is displayed. Private Sub OwnerMenuItem_CheckedChanged( _ ByVal sender As Object, ByVal e As EventArgs) Invalidate() End Sub
範例
下列程式碼範例提供完整的 ToolStripRadioButtonMenuItem
類別和 Form 類別 Program
,以示範 option-button 行為。
using System;
using System.Drawing;
using System.Windows.Forms;
using System.Windows.Forms.VisualStyles;
public class ToolStripRadioButtonMenuItem : ToolStripMenuItem
{
public ToolStripRadioButtonMenuItem()
: base()
{
Initialize();
}
public ToolStripRadioButtonMenuItem(string text)
: base(text, null, (EventHandler)null)
{
Initialize();
}
public ToolStripRadioButtonMenuItem(Image image)
: base(null, image, (EventHandler)null)
{
Initialize();
}
public ToolStripRadioButtonMenuItem(string text, Image image)
: base(text, image, (EventHandler)null)
{
Initialize();
}
public ToolStripRadioButtonMenuItem(string text, Image image,
EventHandler onClick)
: base(text, image, onClick)
{
Initialize();
}
public ToolStripRadioButtonMenuItem(string text, Image image,
EventHandler onClick, string name)
: base(text, image, onClick, name)
{
Initialize();
}
public ToolStripRadioButtonMenuItem(string text, Image image,
params ToolStripItem[] dropDownItems)
: base(text, image, dropDownItems)
{
Initialize();
}
public ToolStripRadioButtonMenuItem(string text, Image image,
EventHandler onClick, Keys shortcutKeys)
: base(text, image, onClick)
{
Initialize();
this.ShortcutKeys = shortcutKeys;
}
// Called by all constructors to initialize CheckOnClick.
private void Initialize()
{
CheckOnClick = true;
}
protected override void OnCheckedChanged(EventArgs e)
{
base.OnCheckedChanged(e);
// If this item is no longer in the checked state or if its
// parent has not yet been initialized, do nothing.
if (!Checked || this.Parent == null) return;
// Clear the checked state for all siblings.
foreach (ToolStripItem item in Parent.Items)
{
ToolStripRadioButtonMenuItem radioItem =
item as ToolStripRadioButtonMenuItem;
if (radioItem != null && radioItem != this && radioItem.Checked)
{
radioItem.Checked = false;
// Only one item can be selected at a time,
// so there is no need to continue.
return;
}
}
}
protected override void OnClick(EventArgs e)
{
// If the item is already in the checked state, do not call
// the base method, which would toggle the value.
if (Checked) return;
base.OnClick(e);
}
// Let the item paint itself, and then paint the RadioButton
// where the check mark is normally displayed.
protected override void OnPaint(PaintEventArgs e)
{
if (Image != null)
{
// If the client sets the Image property, the selection behavior
// remains unchanged, but the RadioButton is not displayed and the
// selection is indicated only by the selection rectangle.
base.OnPaint(e);
return;
}
else
{
// If the Image property is not set, call the base OnPaint method
// with the CheckState property temporarily cleared to prevent
// the check mark from being painted.
CheckState currentState = this.CheckState;
this.CheckState = CheckState.Unchecked;
base.OnPaint(e);
this.CheckState = currentState;
}
// Determine the correct state of the RadioButton.
RadioButtonState buttonState = RadioButtonState.UncheckedNormal;
if (Enabled)
{
if (mouseDownState)
{
if (Checked) buttonState = RadioButtonState.CheckedPressed;
else buttonState = RadioButtonState.UncheckedPressed;
}
else if (mouseHoverState)
{
if (Checked) buttonState = RadioButtonState.CheckedHot;
else buttonState = RadioButtonState.UncheckedHot;
}
else
{
if (Checked) buttonState = RadioButtonState.CheckedNormal;
}
}
else
{
if (Checked) buttonState = RadioButtonState.CheckedDisabled;
else buttonState = RadioButtonState.UncheckedDisabled;
}
// Calculate the position at which to display the RadioButton.
Int32 offset = (ContentRectangle.Height -
RadioButtonRenderer.GetGlyphSize(
e.Graphics, buttonState).Height) / 2;
Point imageLocation = new Point(
ContentRectangle.Location.X + 4,
ContentRectangle.Location.Y + offset);
// Paint the RadioButton.
RadioButtonRenderer.DrawRadioButton(
e.Graphics, imageLocation, buttonState);
}
private bool mouseHoverState = false;
protected override void OnMouseEnter(EventArgs e)
{
mouseHoverState = true;
// Force the item to repaint with the new RadioButton state.
Invalidate();
base.OnMouseEnter(e);
}
protected override void OnMouseLeave(EventArgs e)
{
mouseHoverState = false;
base.OnMouseLeave(e);
}
private bool mouseDownState = false;
protected override void OnMouseDown(MouseEventArgs e)
{
mouseDownState = true;
// Force the item to repaint with the new RadioButton state.
Invalidate();
base.OnMouseDown(e);
}
protected override void OnMouseUp(MouseEventArgs e)
{
mouseDownState = false;
base.OnMouseUp(e);
}
// Enable the item only if its parent item is in the checked state
// and its Enabled property has not been explicitly set to false.
public override bool Enabled
{
get
{
ToolStripMenuItem ownerMenuItem =
OwnerItem as ToolStripMenuItem;
// Use the base value in design mode to prevent the designer
// from setting the base value to the calculated value.
if (!DesignMode &&
ownerMenuItem != null && ownerMenuItem.CheckOnClick)
{
return base.Enabled && ownerMenuItem.Checked;
}
else
{
return base.Enabled;
}
}
set
{
base.Enabled = value;
}
}
// When OwnerItem becomes available, if it is a ToolStripMenuItem
// with a CheckOnClick property value of true, subscribe to its
// CheckedChanged event.
protected override void OnOwnerChanged(EventArgs e)
{
ToolStripMenuItem ownerMenuItem =
OwnerItem as ToolStripMenuItem;
if (ownerMenuItem != null && ownerMenuItem.CheckOnClick)
{
ownerMenuItem.CheckedChanged +=
new EventHandler(OwnerMenuItem_CheckedChanged);
}
base.OnOwnerChanged(e);
}
// When the checked state of the parent item changes,
// repaint the item so that the new Enabled state is displayed.
private void OwnerMenuItem_CheckedChanged(
object sender, EventArgs e)
{
Invalidate();
}
}
public class Form1 : Form
{
private MenuStrip menuStrip1 = new MenuStrip();
private ToolStripMenuItem mainToolStripMenuItem = new ToolStripMenuItem();
private ToolStripMenuItem toolStripMenuItem1 = new ToolStripMenuItem();
private ToolStripRadioButtonMenuItem toolStripRadioButtonMenuItem1 =
new ToolStripRadioButtonMenuItem();
private ToolStripRadioButtonMenuItem toolStripRadioButtonMenuItem2 =
new ToolStripRadioButtonMenuItem();
private ToolStripRadioButtonMenuItem toolStripRadioButtonMenuItem3 =
new ToolStripRadioButtonMenuItem();
private ToolStripRadioButtonMenuItem toolStripRadioButtonMenuItem4 =
new ToolStripRadioButtonMenuItem();
private ToolStripRadioButtonMenuItem toolStripRadioButtonMenuItem5 =
new ToolStripRadioButtonMenuItem();
private ToolStripRadioButtonMenuItem toolStripRadioButtonMenuItem6 =
new ToolStripRadioButtonMenuItem();
public Form1()
{
mainToolStripMenuItem.Text = "main";
toolStripRadioButtonMenuItem1.Text = "option 1";
toolStripRadioButtonMenuItem2.Text = "option 2";
toolStripRadioButtonMenuItem3.Text = "option 2-1";
toolStripRadioButtonMenuItem4.Text = "option 2-2";
toolStripRadioButtonMenuItem5.Text = "option 3-1";
toolStripRadioButtonMenuItem6.Text = "option 3-2";
toolStripMenuItem1.Text = "toggle";
toolStripMenuItem1.CheckOnClick = true;
mainToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] {
toolStripRadioButtonMenuItem1, toolStripRadioButtonMenuItem2,
toolStripMenuItem1});
toolStripRadioButtonMenuItem2.DropDownItems.AddRange(
new ToolStripItem[] {toolStripRadioButtonMenuItem3,
toolStripRadioButtonMenuItem4});
toolStripMenuItem1.DropDownItems.AddRange(new ToolStripItem[] {
toolStripRadioButtonMenuItem5, toolStripRadioButtonMenuItem6});
menuStrip1.Items.AddRange(new ToolStripItem[] {mainToolStripMenuItem});
Controls.Add(menuStrip1);
MainMenuStrip = menuStrip1;
Text = "ToolStripRadioButtonMenuItem demo";
}
}
static class Program
{
[STAThread]
static void Main()
{
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Form1());
}
}
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles
Public Class ToolStripRadioButtonMenuItem
Inherits ToolStripMenuItem
Public Sub New()
MyBase.New()
Initialize()
End Sub
Public Sub New(ByVal text As String)
MyBase.New(text, Nothing, CType(Nothing, EventHandler))
Initialize()
End Sub
Public Sub New(ByVal image As Image)
MyBase.New(Nothing, image, CType(Nothing, EventHandler))
Initialize()
End Sub
Public Sub New(ByVal text As String, ByVal image As Image)
MyBase.New(text, image, CType(Nothing, EventHandler))
Initialize()
End Sub
Public Sub New(ByVal text As String, _
ByVal image As Image, ByVal onClick As EventHandler)
MyBase.New(text, image, onClick)
Initialize()
End Sub
Public Sub New(ByVal text As String, ByVal image As Image, _
ByVal onClick As EventHandler, ByVal name As String)
MyBase.New(text, image, onClick, name)
Initialize()
End Sub
Public Sub New(ByVal text As String, ByVal image As Image, _
ByVal ParamArray dropDownItems() As ToolStripItem)
MyBase.New(text, image, dropDownItems)
Initialize()
End Sub
Public Sub New(ByVal text As String, ByVal image As Image, _
ByVal onClick As EventHandler, ByVal shortcutKeys As Keys)
MyBase.New(text, image, onClick)
Initialize()
Me.ShortcutKeys = shortcutKeys
End Sub
' Called by all constructors to initialize CheckOnClick.
Private Sub Initialize()
CheckOnClick = True
End Sub
Protected Overrides Sub OnCheckedChanged(ByVal e As EventArgs)
MyBase.OnCheckedChanged(e)
' If this item is no longer in the checked state or if its
' parent has not yet been initialized, do nothing.
If Not Checked OrElse Me.Parent Is Nothing Then Return
' Clear the checked state for all siblings.
For Each item As ToolStripItem In Parent.Items
Dim radioItem As ToolStripRadioButtonMenuItem = _
TryCast(item, ToolStripRadioButtonMenuItem)
If radioItem IsNot Nothing AndAlso _
radioItem IsNot Me AndAlso _
radioItem.Checked Then
radioItem.Checked = False
' Only one item can be selected at a time,
' so there is no need to continue.
Return
End If
Next
End Sub
Protected Overrides Sub OnClick(ByVal e As EventArgs)
' If the item is already in the checked state, do not call
' the base method, which would toggle the value.
If Checked Then Return
MyBase.OnClick(e)
End Sub
' Let the item paint itself, and then paint the RadioButton
' where the check mark is normally displayed.
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If Image IsNot Nothing Then
' If the client sets the Image property, the selection behavior
' remains unchanged, but the RadioButton is not displayed and the
' selection is indicated only by the selection rectangle.
MyBase.OnPaint(e)
Return
Else
' If the Image property is not set, call the base OnPaint method
' with the CheckState property temporarily cleared to prevent
' the check mark from being painted.
Dim currentState As CheckState = Me.CheckState
Me.CheckState = CheckState.Unchecked
MyBase.OnPaint(e)
Me.CheckState = currentState
End If
' Determine the correct state of the RadioButton.
Dim buttonState As RadioButtonState = RadioButtonState.UncheckedNormal
If Enabled Then
If mouseDownState Then
If Checked Then
buttonState = RadioButtonState.CheckedPressed
Else
buttonState = RadioButtonState.UncheckedPressed
End If
ElseIf mouseHoverState Then
If Checked Then
buttonState = RadioButtonState.CheckedHot
Else
buttonState = RadioButtonState.UncheckedHot
End If
Else
If Checked Then buttonState = RadioButtonState.CheckedNormal
End If
Else
If Checked Then
buttonState = RadioButtonState.CheckedDisabled
Else
buttonState = RadioButtonState.UncheckedDisabled
End If
End If
' Calculate the position at which to display the RadioButton.
Dim offset As Int32 = CInt((ContentRectangle.Height - _
RadioButtonRenderer.GetGlyphSize( _
e.Graphics, buttonState).Height) / 2)
Dim imageLocation As Point = New Point( _
ContentRectangle.Location.X + 4, _
ContentRectangle.Location.Y + offset)
' Paint the RadioButton.
RadioButtonRenderer.DrawRadioButton( _
e.Graphics, imageLocation, buttonState)
End Sub
Private mouseHoverState As Boolean = False
Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
mouseHoverState = True
' Force the item to repaint with the new RadioButton state.
Invalidate()
MyBase.OnMouseEnter(e)
End Sub
Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
mouseHoverState = False
MyBase.OnMouseLeave(e)
End Sub
Private mouseDownState As Boolean = False
Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
mouseDownState = True
' Force the item to repaint with the new RadioButton state.
Invalidate()
MyBase.OnMouseDown(e)
End Sub
Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
mouseDownState = False
MyBase.OnMouseUp(e)
End Sub
' Enable the item only if its parent item is in the checked state
' and its Enabled property has not been explicitly set to false.
Public Overrides Property Enabled() As Boolean
Get
Dim ownerMenuItem As ToolStripMenuItem = _
TryCast(OwnerItem, ToolStripMenuItem)
' Use the base value in design mode to prevent the designer
' from setting the base value to the calculated value.
If Not DesignMode AndAlso ownerMenuItem IsNot Nothing AndAlso _
ownerMenuItem.CheckOnClick Then
Return MyBase.Enabled AndAlso ownerMenuItem.Checked
Else
Return MyBase.Enabled
End If
End Get
Set(ByVal value As Boolean)
MyBase.Enabled = value
End Set
End Property
' When OwnerItem becomes available, if it is a ToolStripMenuItem
' with a CheckOnClick property value of true, subscribe to its
' CheckedChanged event.
Protected Overrides Sub OnOwnerChanged(ByVal e As EventArgs)
Dim ownerMenuItem As ToolStripMenuItem = _
TryCast(OwnerItem, ToolStripMenuItem)
If ownerMenuItem IsNot Nothing AndAlso _
ownerMenuItem.CheckOnClick Then
AddHandler ownerMenuItem.CheckedChanged, New _
EventHandler(AddressOf OwnerMenuItem_CheckedChanged)
End If
MyBase.OnOwnerChanged(e)
End Sub
' When the checked state of the parent item changes,
' repaint the item so that the new Enabled state is displayed.
Private Sub OwnerMenuItem_CheckedChanged( _
ByVal sender As Object, ByVal e As EventArgs)
Invalidate()
End Sub
End Class
Public Class Form1
Inherits Form
Private menuStrip1 As New MenuStrip()
Private mainToolStripMenuItem As New ToolStripMenuItem()
Private toolStripMenuItem1 As New ToolStripMenuItem()
Private toolStripRadioButtonMenuItem1 As New ToolStripRadioButtonMenuItem()
Private toolStripRadioButtonMenuItem2 As New ToolStripRadioButtonMenuItem()
Private toolStripRadioButtonMenuItem3 As New ToolStripRadioButtonMenuItem()
Private toolStripRadioButtonMenuItem4 As New ToolStripRadioButtonMenuItem()
Private toolStripRadioButtonMenuItem5 As New ToolStripRadioButtonMenuItem()
Private toolStripRadioButtonMenuItem6 As New ToolStripRadioButtonMenuItem()
Public Sub New()
Me.mainToolStripMenuItem.Text = "main"
toolStripRadioButtonMenuItem1.Text = "option 1"
toolStripRadioButtonMenuItem2.Text = "option 2"
toolStripRadioButtonMenuItem3.Text = "option 2-1"
toolStripRadioButtonMenuItem4.Text = "option 2-2"
toolStripRadioButtonMenuItem5.Text = "option 3-1"
toolStripRadioButtonMenuItem6.Text = "option 3-2"
toolStripMenuItem1.Text = "toggle"
toolStripMenuItem1.CheckOnClick = True
mainToolStripMenuItem.DropDownItems.AddRange(New ToolStripItem() { _
toolStripRadioButtonMenuItem1, toolStripRadioButtonMenuItem2, _
toolStripMenuItem1})
toolStripRadioButtonMenuItem2.DropDownItems.AddRange( _
New ToolStripItem() {toolStripRadioButtonMenuItem3, _
toolStripRadioButtonMenuItem4})
toolStripMenuItem1.DropDownItems.AddRange(New ToolStripItem() { _
toolStripRadioButtonMenuItem5, toolStripRadioButtonMenuItem6})
menuStrip1.Items.AddRange(New ToolStripItem() {mainToolStripMenuItem})
Controls.Add(menuStrip1)
MainMenuStrip = menuStrip1
Text = "ToolStripRadioButtonMenuItem demo"
End Sub
End Class
Public Class Program
<STAThread()> Public Shared Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.Run(New Form1())
End Sub
End Class
編譯程式碼
這個範例需要:
- System、System.Drawing 和 System.Windows.Forms 組件的參考。
另請參閱
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應