2007-03-14 15:02:32| 分类: Visual Basic | 标签: |举报 |字号大中小 订阅
下午,把上次做的控件适应窗体变化的效果再修改了一下,感觉比以前的好多了,只是让我觉得可惜的是,我必须要对窗体内的控件自己定义,这样的话,一旦控件很多,我做的工作就跟着多了,但是暂时又没找到更好的办法。
代码如下:
Option Explicit
Dim intWidth, intHeight As Integer
Private Sub Form_Resize()
intWidth = Me.ScaleWidth
intHeight = Me.ScaleHeight
If intWidth < 8370 Then intWidth = 8370
If intHeight < 4395 Then intHeight = 4395
MSFlexGrid1.Move 120, 120, intWidth - 240, intHeight - 975 - 120
Command1.Move intWidth - 120 - Command1.Width, 360 + MSFlexGrid1.Height
Command2.Move intWidth - 120 - Command2.Width - 120 - Command1.Width, 360 + MSFlexGrid1.Height
End Sub
评论