VB.Net - 工具条按钮鼠标悬停事件答案

【问题标题】：VB.Net - Toolstrip Button Mousehover EventVB.Net - 工具条按钮鼠标悬停事件
【发布时间】：2013-12-05 05:10:16
【问题描述】：

有没有办法在鼠标悬停事件中更改工具条按钮的大小？
我试过了，但没有用。

Private Sub tsDriver_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsDriver.MouseHover
    Dim pt As Point
    pt.X = 60
    pt.Y = 70
    tsDriver.Size = pt

End Sub

我想要这样的效果，当鼠标悬停在按钮上时，它会变大，当鼠标离开时，它会恢复到原来的大小。

【问题讨论】：

有了 mousehover 事件，我认为离开时按钮不会再次缩小。

标签： vb.net toolstrip

【解决方案1】：

你应该实例化一个大小，它是一个单独的对象。试试这个，它应该可以工作；

Private Sub tsDriver_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsDriver.MouseHover

    Dim pt As New System.Drawing.Point 
    pt.X = 60
    pt.Y = 70
    tsDriver.Size = New System.Drawing.Size(pt)

End Sub

请注意，MouseHover 事件仅在鼠标光标进入控件位置时触发。
所以，要让按钮缩小到原来的大小，就需要对 MouseLeave 事件进行编码；

Private Sub tsDriver_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsDriver.MouseLeave

    Dim pt As New System.Drawing.Point 
    pt.X = 40  ' Original size
    pt.Y = 50
    tsDriver.Size = New System.Drawing.Size(pt)
End Sub

【讨论】：

Dim pt As New System.Drawing.Point pt.X = 60 pt.Y = 70 tsDriver.Size = New System.Drawing.Size(pt) MsgBox("asdsa") 谢谢nadeem，我试过了，但对我没用。 msgbox 将会出现
怎么样，我刚刚在一个虚拟应用程序上进行了测试，它适合我。我希望您的 tsDriver 不在容器中或已停靠
如果在普通按钮上它可以工作，但在我的工具条按钮上它不工作
它停靠在左侧
我发现它在面板内。这会影响我的工具条上的任何内容吗？

【解决方案2】：

应该只调整按钮的大小吗？或者其他按钮也可以调整大小？

如果是这样，您可以操作工具提示窗口的 ImageScalingSize 属性

       Dim pt2 As Point
       pt2.X = 100
       pt2.Y = 100

       ToolStrip1.ImageScalingSize = pt2

这假设其余按钮也可以增长。

【讨论】：