主题：NavBar控件

那个无法设置。你把控件的停靠设置成none，然后把高度拉高一点，用窗口遮住它就行了。最后设置锚定。

 

窗口AfterLoad 写

e.Form.Controls("NavBar1").StackButtonCount = 0

 

控件中

MouseMove中写

 

If e.Button = MouseButtons.Left Then
    e.Sender.StackButtonCount = 0
End If

 

 

MouseUp中写

 

e.Sender.StackButtonCount = 0

在命令窗口执行下面代码，可以看到控件的各个属性

 

Dim o = Forms("窗口1").Controls("NavBar1") '.basecontrol
For Each c As object In o.Gettype.getproperties
    output.show(c.name)
Next

 

不过，字体颜色是无法修改的。