110,538
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Private Sub ToolStripDropDownButton1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
CType(sender, ToolStripDropDownButton).DropDown.Visible = False
End Sub
Private Sub ToolStripDropDownButton1_MouseEnter(ByVal sender As Object, ByVal e As EventArgs)
CType(sender, ToolStripDropDownButton).DropDown.Visible = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Test As New ToolStrip
Test.Dock = DockStyle.None '可放置在任意位置
Test.Left = 150
Test.Top = 100
Dim TestButton As New ToolStripDropDownButton("Test")
AddHandler TestButton.MouseEnter, AddressOf Me.ToolStripDropDownButton1_MouseEnter
AddHandler TestButton.MouseLeave, AddressOf Me.ToolStripDropDownButton1_MouseLeave
TestButton.DisplayStyle = ToolStripItemDisplayStyle.Text
For i As Integer = 0 To 5
TestButton.DropDown.Items.Add("Item" + i.ToString)
Next
Test.Items.Add(TestButton)
Me.Controls.Add(Test)
End Sub
End Class
public class Form1
{
private void ToolStripDropDownButton1_MouseLeave(object sender, System.EventArgs e)
{
((ToolStripDropDownButton)sender).DropDown.Visible = false;
}
private void ToolStripDropDownButton1_MouseEnter(object sender, EventArgs e)
{
((ToolStripDropDownButton)sender).DropDown.Visible = true;
}
private void Form1_Load(object sender, System.EventArgs e)
{
ToolStrip Test = new ToolStrip();
Test.Dock = DockStyle.None;
//可放置在任意位置
Test.Left = 150;
Test.Top = 100;
ToolStripDropDownButton TestButton = new ToolStripDropDownButton("Test");
TestButton.MouseEnter += this.ToolStripDropDownButton1_MouseEnter;
TestButton.MouseLeave += this.ToolStripDropDownButton1_MouseLeave;
TestButton.DisplayStyle = ToolStripItemDisplayStyle.Text;
for (int i = 0; i <= 5; i++) {
TestButton.DropDown.Items.Add("Item" + i.ToString);
}
Test.Items.Add(TestButton);
this.Controls.Add(Test);
}
}