分享一个可以改变窗体大小的小技巧

gxp1986

本贴主要讲的是,同一个窗体,通过设置其高度,实现所谓的"改变窗体大小".没什么技术含量.当然你也可以直接做多个窗体,在多个窗体间跳转,也就没下面什么了...


首先我们需要先设计一个全尺寸与全功能的窗体.之所以可以"改变"窗体的大小,是因为当你设置的宽高,小于窗体实际的宽高时,它会自动的"裁剪"掉多出来的部分
其次是设置窗体的显示位置

1. Private Sub Worksheet_Activate()    '当激活工作表时,同时加载窗体
   
2.    UserForm_Initialize
   
3. End Sub
   
4. 
   
5. Private Sub Worksheet_Deactivate()     '当点到别的工作表时,隐藏窗体
   
6.     菜单命令.Hide
   
7. End Sub
   
8. 
   
9. Private Sub UserForm_Initialize()     '加载窗体前,设置窗体显示位置
   
10.     With 菜单命令
    
11.         .StartUpPosition = 0
    
12.         .Left = ActiveWindow.Width - 130        '屏幕宽度-窗体宽度,大概是最靠右的位置
    
13.         .Top = 50
    
14.     End With
    
15.     菜单命令.Show 0
    
16. End Sub
    

复制代码

然后记下缩小时的宽高,与全尺寸时的宽高.当然,你其实也可以设置成多个档位,比如第一次我显示的高度是100,第二次显示150....

1. Private Sub ToggleButton1_Click()    '这里图方便,就用了个切换控件,如果你有多档的话,需要另外设计
   
2.      If Me.ToggleButton1.Caption = "更多菜单" Then
   
3.         Me.ToggleButton1.Caption = "收起菜单"    '改变按钮的文字
   
4.         Me.Height = 565    '这里是本案例窗体的全尺寸
   
5.      Else
   
6.         Me.ToggleButton1.Caption = "更多菜单"
   
7.         Me.Height = 145     '当点击"收起菜单"时,我设置它的高度只显示145,以达到收缩的目的
   
8.      End If
   
9. End Sub

复制代码

没什么技术含量,我全当是自学笔记,大佬莫笑 ^.^

powerremain

感谢分享！！！！！！！！！！！！！！