- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- NavBar控件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106534)
-- 发布时间：2017/9/11 10:30:00
-- NavBar控件
此主题相关图片如下：qq图片20170911101515.png
如何通过代码 修改NavBar下的这个边框高度为1
-- 发布时间：2017/9/11 10:41:00
--
那个无法设置。你把控件的停靠设置成none，然后把高度拉高一点，用窗口遮住它就行了。最后设置锚定。
-- 发布时间：2017/9/11 10:43:00
--
借贴请教下，如何让这条不能拉动？谢谢
-- 发布时间：2017/9/11 10:45:00
--
以下是引用zhy400137在2017/9/11 10:43:00的发言：
借贴请教下，如何让这条不能拉动？谢谢
借贴请教下，如何让这条不能拉动？谢谢
窗口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
-- 发布时间：2017/9/11 10:48:00
--
谢谢！
-- 发布时间：2017/9/11 11:04:00
--
多谢甜老师，搞定!
甜老师，这个按钮标题的字体颜色修改不？
-- 发布时间：2017/9/11 11:24:00
--
在命令窗口执行下面代码，可以看到控件的各个属性
Dim o = Forms("窗口1").Controls("NavBar1") \'.basecontrol
For Each c As object In o.Gettype.getproperties
output.show(c.name)
Next
不过，字体颜色是无法修改的。
-- 发布时间：2017/9/11 11:30:00
--
谢谢
