我在窗体上放了一个OLE控件，但希望它的空白区域和窗体完全自动吻合。既：随着窗体的拉伸，能自动变化。

Question

我在窗体上放了一个OLE控件，但希望它的空白区域和窗体完全自动吻合。既：随着窗体的拉伸，能自动变化。

Answer 1

在 form resize里写代码控制

Answer 2

Private Sub Form_Resize()
    On Error Resume Next
    OLE1.Top = 0
    OLE1.Left = 0
    OLE1.Width = Me.ScaleWidth
    OLE1.Height = Me.ScaleHeight
End Sub

Answer 3

Private Sub Form_Resize()
    On Error Resume Next
    OLE1.Top = 0
    OLE1.Left = 0
    OLE1.Width = Me.ScaleWidth
    OLE1.Height = Me.ScaleHeight
End Sub

Answer 4

Private Sub Form_Resize()
    ole.width=me.width
    ole.Height=me.height
    ole.Move (Me.Width - ole.Width) / 2, (Me.Height - ole.Height) / 2 '移动到窗体中心
End Sub