资源下载地址:点击下载
大家可能在编程时经常遇到的一个问题是设体好的窗体最大化后,窗体的控件并没有随窗体的变大而按相应比例变化,最近在网上发现了一段代码,在VB模块中加入代码,再在窗体后台代码调用一下就能实现这个令大家头疼的问题。
我们设计了2个窗体form1和form2,其中form1没有调用代码,而form2调用了module代码,所以当form1最大化时窗体上按钮的位置是没有变化的,而form2则不一样了,完全按比例放大
@H_502_8@Public Sub Resize_ALL(Form_Name As Form) Dim OBJ As Object For Each OBJ In Form_Name ResizeControl OBJ,Form_Name Next OBJ End Sub在module定义了很多函数,而Resize_ALL函数则对每一个功数的功能实现进行遍历进而实现按比例放大功能,模块中的代码比较复杂,大家可以不用读懂,只要记得在窗体中加入以上代码就可以了