如何在ToolStripItem上设置Region的等效项-HowtosettheequivalentofRegiononaToolStripItem

You need to create you own ToolStripRenderer, and paint buttons in your code. With such approach you can simulate any shape, and in general almost anything.

您需要创建自己的ToolStripRenderer,并在代码中绘制按钮。通过这种方法,您可以模拟任何形状,通常几乎任何形状。

Then after custom renderer is complete, you will need to assign your renderer to toolstrip and thats it.

然后在自定义渲染器完成后,您需要将渲染器分配给工具条,就是这样。

An article describing writing custom renderers.

一篇描述编写自定义渲染器的文章。

Update: You can also check this article, it can be useful for your task.

更新:您还可以查看这篇文章,它对您的任务非常有用。

I guess this is possible, after seeing the second link in arbiter's post, but I will keep my solution. With time being short because of deadlines, I've changed the type of control to a plain button. Here I can set the region, and have been able to reproduce the required look by setting the region to what I call the chevron path. The top two buttons are derived from Windows.Forms.Button with custom paint and region set. The bottom two buttons are the toolstrip buttons with custom renderer and custom paint.

我想这是可能的,在看到仲裁员帖子中的第二个链接后,我会保留我的解决方案。由于截止日期时间很短,我已将控制类型更改为普通按钮。在这里,我可以设置区域,并且能够通过将区域设置为我称为V形路径的区域来重现所需的外观。前两个按钮派生自Windows.Forms.Button,带有自定义绘制和区域设置。底部的两个按钮是带有自定义渲染器和自定义绘制的工具条按钮。

alt text http://store.ezburn.com/images/productimages/toolstripbuttonshapes-final.jpg

替代文字http://store.ezburn.com/images/productimages/toolstripbuttonshapes-final.jpg

I don't know if this will be helpful to anyone. But here's the code I use to set the region:

我不知道这对任何人都有帮助。但这是我用来设置区域的代码:

    Private Sub setRegion()

        Dim r As Rectangle = ClientRectangle
        Me.Region = New Region(getChevronPath(r.X, r.Y, r.Width, r.Height))

    End Sub

 Private Function getChevronPath(ByVal X As Single, ByVal Y As Single, _
       ByVal width As Single, ByVal height As Single) As GraphicsPath

        Dim w As Integer = Convert.ToInt32(X + width - ChevronHeight)
        Dim hh As Integer = Convert.ToInt32(height / 2)

        Dim gp As New GraphicsPath()
        'top
        gp.AddLine(X, Y, w, Y)
        'arrowtop, on the right
        gp.AddLine(w, Y, w + ChevronHeight, hh)
        'arrowbottom, on the right
        gp.AddLine(w + ChevronHeight, hh, w, Y + height)
        'bottom
        gp.AddLine(w, Y + height, X, Y + height)

        If EndButton Then
            'left
            gp.AddLine(X, Y + height, X, Y)
        Else
            'arrowbottom, on the left
            gp.AddLine(X, Y + height, ChevronHeight, hh)
            'arrowtop on the left
            gp.AddLine(ChevronHeight, hh, X, Y)
        End If

        gp.CloseFigure()

        Return gp
    End Function