[原创]通过一段学习，做了一个窗体大小均可调的例子，大家看看。

sharpliu

通过一段学习，做了一个窗体大小均可调的例子，大家看看。 希望多提宝贵意见。 CdtoWPwK.rar (21.3 KB, 下载次数: 485)

2006-2-21 20:50 上传

点击文件名下载附件
[原创]通过一段学习，做了一个窗体大小均可的例子，大家看看。

[此贴子已经被作者于2006-2-21 20:52:38编辑过]

青山依旧

不错,用Label做移动条效果不错,收下了.下面这部分代码不要也可以的:

Private Sub Label1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call cal_wid
End Sub
Private Sub Label2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call cal_wid
End Sub
Private Sub Label3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call cal_wid
End Sub
Private Sub Label4_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call cal_wid
End Sub

sharpliu

青山依旧

谢谢指教。

你提出不要的这段代码，其实有用的，单独改变每个控件窗体时确实不起作用，但是在改变用户窗体时就要用到。它计算出每个控件大小的当前比例，在用户窗体整体调整时，各控件窗体的比例保持原状。如果没有了这段代码，用户窗体大小变化时，各控件的窗体比例就会回到初始状态。你可以改变一下用户窗体的大小看看。

[此贴子已经被作者于2006-2-21 21:48:54编辑过]

青山依旧

你是说在窗体最大化和最小化后的变化吗?不受影响的.窗体边框拉大拉小也不受影响.

sharpliu

你先改变一下各控件的大小，再改变用户窗体的大小，如果没有那段代码，各控件就会回到初试比例。

青山依旧

情况确实如此,欠考虑,谢谢指点.

plxmm

谢谢分享。

weimin178

很实用，谢谢分享！

TGB

超强的东东，顶上去大家一起来学习！

三青

很实用，谢谢分享！