主题：NavBar控件

此主题相关图片如下：qq图片20170911101515.png

如何通过代码 修改NavBar下的这个边框高度为1

那个无法设置。你把控件的停靠设置成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

 

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

谢谢