C# と VB.NET の質問掲示板

ContextMenuStripでトグル式のV字のチェックマークを付けたいのですが
（複数項目があり、一つにチェックを入れると他のチェックを外れるラジオボタンタイプのもの）

https://dobon.net/vb/dotnet/control/menuradiocheck.html

このサイトでは、
ToolStripMenuItem.CheckStateプロパティをCheckedにすると良い
と書かれてあります。

しかし
ToolStripMenuItem.CheckStateプロパティ
というものが見当たりませんがどこにありますか？

また、トグルでチェックマークを付けたいのですが

以下のようなコードを試してみても
ContextMenuStripとToolStripMenuに互換性がないようで
うまくいきません。

どのようにすれば良いでしょうか？



    Private Sub ContextMenuStrip1_Click(sender As Object, e As EventArgs) _
        Handles ContextMenuStrip1.Click
        Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
        'チェック状態を反転させる
        item.Checked = Not item.Checked
    End Sub


    'ToolStripMenuItem1のClickイベントハンドラ
    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ContextMenuStrip1.Click
        'グループのToolStripMenuItemを配列にしておく
        Dim groupMenuItems As ToolStripMenuItem() = New ToolStripMenuItem() {Me.ContextMenuStrip1}

        'グループのToolStripMenuItemを列挙する
        For Each item As ToolStripMenuItem In groupMenuItems
            If Object.ReferenceEquals(item, sender) Then
                'ClickされたToolStripMenuItemならば、Indeterminateにする
                item.CheckState = CheckState.Indeterminate
            Else
                'ClickされたToolStripMenuItemでなければ、Uncheckedにする
                item.CheckState = CheckState.Unchecked
            End If
        Next
    End Sub

> 利用規約（抜粋）

> 一貫して同じハンドルを使用し、場を混乱させないようにしましょう。同じハンドルの方が
> 質問の背景がわかりやすいです (自作自演をしたり別人を装うのは回答者の善意を裏切る
> 行為です)。

すいません、次から気をつけます

> 一般にはクリックイベントはToolStripMenuItemの方で扱います。
> 考え方的には、
> ・自分(sender)のOwnerのItemsを列挙し、
> ・それが自分であるかどうかでCheckStateを変更する
> という処理になります。

    Private Sub ContextMenuStrip1_Click(sender As Object, e As EventArgs) Handles ContextMenuStrip1.ItemClicked
        Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
        'チェック状態を反転させる
        item.Checked = Not item.Checked
    End Sub

こんな感じでしょうか？
やはりキャストできないというエラーが出てしまうのですが

ありがとうございます。


    Private Sub test2(ByVal sender As System.Object, ByVal e As EventArgs)


        For Each s As ToolStripMenuItem In CType(sender, ToolStripItem).Owner.Items

            If s IsNot Nothing Then

                s.CheckState = CheckState.Unchecked

            End If

        Next

        Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
        'チェック状態を反転させる
        item.Checked = Not item.Checked

    End Sub

これでできました。
なんか冗長的な気もしますが
こんなもんでしょうか？

これなら良さそうです
どうもありがとうございました


        Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)

        For Each s As ToolStripMenuItem In CType(sender, ToolStripItem).Owner.Items

            If s IsNot Nothing AndAlso s IsNot item Then

                s.CheckState = CheckState.Unchecked

            Else

                s.CheckState = CheckState.Checked

            End If

        Next