送分。。。。。。动态改变窗口中的控件位置。

Question

没有问题呀？看下面的代码：
Private Sub Form_Resize()
    Command1.Move (Me.ScaleWidth - Command1.Width) \ 2
End Sub
在我的机器上正常。

Answer 1

Private Sub Form_Resize()
    PostMessage hWnd, &H208, 0, ByVal 0
End SubPrivate Sub Form_MouseUp(...
    If Button = vbMiddleButton Then        CallOrgResizeProc    Else    End If
End Sub

Answer 2

应该说是容器内的控件，变化应该设置控件当前位置所在的容器，比如：Pictrue1_Resize()

Answer 3

将form1.autoredraw属性设为true试试