-- 作者:有点甜
-- 发布时间:2015/3/17 17:15:00
--
Dim ck As WinForm.SplitContainer = e.Form.Controls("SplitContainer1") If ck.Panel2.Collapsed=True Then ck.Panel2.Collapsed=False Forms("侧边按钮").BaseForm.width = 250 Forms("侧边按钮").BaseForm.height=500 Else ck.Panel2.Collapsed=True Forms("侧边按钮").BaseForm.width = 500 Forms("侧边按钮").BaseForm.height=500 End If