主题：求帮忙将这个项目改成打开的时候是折叠的状态的代码，谢谢啦

好哒，谢谢。对这种控件做出来的菜单形状完全一点头绪都没有，所以也不会改代码，慢慢向老师前辈们学习吧。

窗口示例发上来了。用之前的代码在窗口足够大的情况下不会出问题，当把这个窗口不那么长的时候，会出问题，比如，当前窗口后，点击财务管理，下面那些功能就会变到底下，需要拖动右边滚动条如图

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:784512.foxdb

 

如图下图11-22-33-44操作后，顶上会出现很大一块空白，求完善一下。。。。

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


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


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


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

1、panel那里，扩展尺寸，不要设置成2800，改成0

 

2、如果有闪动，在click事件加上

 

e.Form.StopRedraw

 

'代码

e.Form.ResumeRedraw

窗口高度低于窗口内空间的展开宽度时会出2个BUG，一个就是顶端出现空白，二个就是里面会因窗口不够宽导致控件错位。如图。希望帮忙完善一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:7845121111.foxdb

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

Select Case e.Sender.Name
   
    Case "Button1","Button2","Button3","Button4","Button5","Button6","Button7","Button8","Button9"
       
        e.Form.StopRedraw
        Dim p As WinForm.Panel = e.Form.Controls("面板滚动")
        p.AutoScroll = False
        Dim top As Integer = 0
        Dim idx As Integer = e.sender.name.replace("Button", "")
        For i As Integer = 1 To 9
           
            Dim but As winform.button = e.Form.controls("Button" & i)
            Dim   Pnl = e.Form.Controls("Panel" & i)
           
            but.Top = Top
            Top += but.Height + 0 ''10
           
           
            If i = idx Then
                If pnl.visible = False Then
                    Pnl.Top = Top
                    Top += Pnl.height + 0 ''30
                End If
            Else
                Pnl.Visible = False
            End If
           
            Top += 10
           
        Next
       
        e.Form.Controls("Panel" & idx).Visible = Not e.Form.Controls("Panel" & idx).Visible
        p.AutoScroll = True
        'e.Form.Controls("button" & idx).Select
        e.Form.ResumeRedraw
End Select

好的谢谢