窗体控件大小随窗体大小变化而变化
日期：2007年8月4日 作者： 相关tags: 窗体 大小 变化- [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] 下一页
- 窗体控件大小随窗体大小变化而变化
- word中调整字体大小的几种方法
- 魔法门：英雄交锋兵种、道具变化及应对战术
- VB中控件大小随窗体大小变化而变化
- VB中让窗体始终处于最前面
- VBA让Excel中的日期时间随数据变化自动更新
- 悄然松松调整Win7工作栏预览窗口大小
- PHP上传文件类型完全 判断方案及PHP＋nginx上传大小完全 控制方案
- 模拟屏幕浏览器(屏幕大小模拟器) V1.0 绿色版
- PmScale(视频大小处理工具) V2.1.1005 绿色版
- Tail.NET 2.6.1271 绿色版_监视系统内文件变化的软件
- 人民币大小写转换程序单文件版 V1.2 绿色版
- 《我是千斤大小姐》
- ajxpform窗体换肤控件 2.0
- 大小美男子
- 《猎杀潜航5：大西洋战役》生涯1939年就可以开VIIC41型的mod补丁+增加天气变化的MOD+夜晚加亮MOD
- 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com
有时窗体变化后，如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦，下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。
在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如：
Private Sub Form_Resize()
Dim H, i As Integer
On Error Resume Next
Resize_ALL Me 'Me是窗体名，Form1,Form2等等都可以
End Sub
在模块中添加以下代码：
Public Type ctrObj
Name As String
Index As Long
Parrent As String
Top As Long
Left As Long
Height As Long
Width As Long
ScaleHeight As Long
ScaleWidth As Long
End Type
Private FormRecord() As ctrObj
Private ControlRecord() As ctrObj
Private bRunning As Boolean
Private MaxForm As Long
Private MaxControl As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long