- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 模拟导航栏 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78240)
-- 发布时间：2015/12/4 21:06:00
-- 模拟导航栏
[此贴子已经被作者于2015/12/5 10:09:02编辑过]
-- 发布时间：2015/12/5 9:21:00
--
QQmenu函数加多一个判断:
Dim WinF As WinForm.Form = Args(0)
Dim But As WinForm.Button = Args(1)
Dim ButCount As Integer = Args(2)
Dim Pan0 As WinForm.Panel = WinF.Controls("Panel0")
Dim Int As Integer = Val(But.Name)
Dim Top As Integer
Dim ButHeight As Integer = But.Height
For i As Integer = 1 To ButCount
Dim Pan As WinForm.Panel = WinF.Controls("Panel" & i)
Pan.Top = -1+Top
If int = i Then
If Pan.Height = ButHeight Then
If i = 1 Then
Pan.Height = Pan0.Height-ButHeight*(ButCount-Int)-Top+1
Else
Pan.Height = Pan0.Height-ButHeight*(ButCount-Int)-Top
End If
Else
Pan.Height = ButHeight
End If
Else
Pan.Height = ButHeight
End If
Top += Pan.Height-1
Next
-- 发布时间：2015/12/5 10:09:00
--
谢谢老师。
-- 发布时间：2015/12/5 10:37:00
--
不要习惯删除问题，保留给别人做参考。
-- 发布时间：2015/12/8 10:02:00
--
老师，在qq菜单的这个例子上能不能加上图标呀，类似这样的，控件合上是一种图标，展开又是另一种图标。
此主题相关图片如下：111.png
-- 发布时间：2015/12/8 10:04:00
--
什么例子啊，发上来。
-- 发布时间：2015/12/8 10:20:00
--
例子在此
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:qq菜单栏 - 副本.table |
-- 发布时间：2015/12/8 10:51:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:qq菜单栏 - 副本.zip |
-- 发布时间：2015/12/8 10:57:00
--
谢谢老师。
-- 发布时间：2016/8/5 14:30:00
--
大红袍老师，学习中看到这个示例，觉得用来做导航栏非常好，这个可否改进一下？当点击其中任何一个Button展开后，如果显示不完下面的项目，可否增加滚动条？
已解决，自动滚动设置为true就可以了，谢谢老师。
[此贴子已经被作者于2016/8/5 14:38:14编辑过]