急 ~~ 30分在线等 ！ Frame在窗体中位置的问题!!!

Question

、 一个很基本的问题：
    Frame在窗体中， 若窗体最大化， Frame也要跟着变化 ！
比如说Command，         Command1.top=form1.top-2000
  但Frame为什么这样写没用额 ？请各位老师给个答案，  谢谢 ！！！

Answer 1

Dim fTop As Long
Dim fLeft As Long
Dim fRight As Long
Dim fBottom  As LongPrivate Sub Form_Load()
   fTop = Frame1.Top
   fLeft = Frame1.Left
   fRight = Me.Width - Frame1.Width
   fBottom = Me.Height - Frame1.Height
End SubPrivate Sub Form_Resize()
    Frame1.Top = fTop
    Frame1.Left = fLeft
    Frame1.Width = IIf(Me.Width - fRight >= 0, Me.Width - fRight, 0)
    Frame1.Height = IIf(Me.Height - fBottom >= 0, Me.Height - fBottom, 0)
End Sub

Answer 2

ActiveResizeLite,我有这个控件可以做到

Answer 3

Private Sub Form_resize()
Frame1.Top = Form1.Height - 2888
Frame1.Left = Form1.Width - 1688
End Sub
  这个下也行的，  简单点。 ^_^