Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = not Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed If Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = True Forms("窗口1").SetBounds(300,100,167,387) Else Forms("窗口1").SetBounds(300,100,687,387) End If
加好友 
发短信
Post By：2011/5/22 9:33:00 [只看该作者]
