根据电脑分辨率改变窗体内控件位置及大小

mxg825

你是否因为 多台电脑显示器分辨率不一样！窗体显示不全 而烦恼？
或在找一段 窗体最大化显示 控件比例位置 跟着改变的代码！
那么这段也许可以帮到你！下载试试吧。。。。
分辨率窗体.rar (10.33 KB, 下载次数: 190)

2012-5-25 16:41 上传

点击文件名下载附件
阅读权限: 1

1. 
   
2. Dim ctl As Control    '窗体控件变量
   
3. Dim pos As New Collection    '控件 位置比例参数
   
4. Dim lng As New Collection    '控件 大小比例参数
   
5. 
   
6. Private Sub UserForm_Initialize()
   
7. 
   
8.     '利用集合记录各个控件与窗体比例的参数
   
9.     For Each ctl In Me.Controls
   
10.         pos.Add ctl.Left / Me.Width & " " & ctl.Top / Me.Height, ctl.Name
    
11.         lng.Add ctl.Width / Me.Width & " " & ctl.Height / Me.Height, ctl.Name
    
12.     Next
    
13. 
    
14.     '只需调整窗体的宽高
    
15.     Application.WindowState = xlMaximized    'EXCEL最大化（全屏显示）
    
16.     UserForm1.Width = Application.Width    '窗体宽度（全屏显示）
    
17.     UserForm1.Height = Application.Height    '窗体高度（全屏显示）
    
18.     '根据比例，调整各控件最大化之后的位置、大小
    
19. 
    
20.     For Each ctl In Me.Controls
    
21. 
    
22.         '设置位置
    
23.         ctl.Left = Me.Width * Val(Split(pos(ctl.Name))(0))
    
24.         ctl.Top = Me.Height * Val(Split(pos(ctl.Name))(1))
    
25. 
    
26.         '设置大小
    
27.         ctl.Width = Me.Width * Val(Split(lng(ctl.Name))(0))
    
28.         ctl.Height = Me.Height * Val(Split(lng(ctl.Name))(1))
    
29. 
    
30.     Next
    
31. 
    
32. End Sub

复制代码

爱疯

学习了！

这里通过集合记录的，也可用其他方式。重要的是方法好理解：
1）记录最大化前的（位置和长度）比例
2）最大化
3）按比例，求出最大化后的位置和长度。

ww0000

很好的代码,谢谢
能不能字体也放大呀?

ww0000

另外,这些代码为什么说是未定义呀?能不能改?谢谢 VB如何使控件位置和大小自动适应窗体变化的三种不同模式.rar (4.71 KB, 下载次数: 40)

2014-8-29 15:27 上传

点击文件名下载附件

aloneftp

谢谢

ardu95

向老师学习