这个是比较笨的方法
Private Sub Form_Resize()
Frame1.Width = ScaleWidth
Frame1.Height = (8 * ScaleHeight) / 9
Frame2.Width = ScaleWidth + 3500
goodslist.Top = Frame2.Height + 220
goodslist.Width = ScaleWidth + 3000
goodslist.Height = ((2 * Frame1.Height) / 3) + 1000
cmdchange.Top = Frame1.Height + 300
cmdfind.Top = Frame1.Height + 300
cmdadd.Top = Frame1.Height + 300
cmddelete.Top = Frame1.Height + 300
cmdexit.Top = Frame1.Height + 300
End Sub
[此贴子已经被作者于2005-10-24 10:32:30编辑过]