控件移动问题？？？？？？？？？？？

[sl_szk]

窗体Form1中有image 控件，有菜单，有工具条，有状态栏，启动时Form1最大化，显示器分辨率是800*600，代码怎么写能使image占有窗体其他部分。

[glsoft4]

up

[Leekey]

最重要的是不要被其他的窗体或控件挡住!
用 Object.ZOrder 0

[qiangsheng]

private sub form1_OnResize()

if me.windowstates<>vbminimized then
image1.width=me.scalewidth
image1.height=me.scalewidth
end if

end sub

凭印象写的，某些拼写可能不对，请原谅。

[tztz520]

Private Sub Form_Resize()
Image1.Width = Me.Width
Image1.Height = Me.Height
Image1.Left = 0
Image1.Top = 0
End Sub

[leolan]

Option Explicit

Private Sub Form_Activate()
Image1.Move Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight - StatusBar1.Height
End Sub

Private Sub Form_Load()
Me.WindowState = vbMaximized
End Sub

[sl_szk]

但窗体中有toolbar和statusbar，以上仁兄好象没有包括进去啊。

[leolan]

Image1.Move Me.ScaleLeft, Me.ScaleTop + ToolBar1.Height, Me.ScaleWidth, Me.ScaleHeight - StatusBar1.Height - ToolBar1.Height

[立在心间]

简单实现!

[qidaozhilong]

Object.Move Object.Left, Object.Top, Object.Width, Object.Height
编写在resize()中
Object为操作对象，Left和Top定义了对象的左上顶点（VB中的坐标系以窗体的左上为原点（0，0）），Width/Height定义了对象宽和高。
例如，编写一个文本随窗体变化
Private sub Form1_resize()
text1.move 0,0,ScaleWidth,ScaleHeight
End Sub