为什么这样还无法使得图像控件随着窗体的最大化依然紧贴状态栏

Question

我是这样常识的，似乎无效：       If IsZoomed(frmmain.hwnd) Then
     frmmain.ImgZhhz.Top = frmmain.Height - frmmain.StatusBar1.Height
     End If

Answer 1

首先，改变大小最好使用窗体的 Resize 事件。
其次，窗体的 Height 属性包括了窗体的标题和边框，应使用 ScaleHeight 获得实际有效高度。
所以我认为是这样：
frmmain.ImgZhhz.Top = frmmain.ScaleHeight - frmmain.StatusBar1.Height

Answer 2

' 你是想永远让PictureBox在StatusBar里面吗?
' 可以这样Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Form_Resize()
SetParent Picture1.hWnd, StatusBar1.hWnd
Picture1.Top = 0
End Sub

Answer 3

谢谢你们，我的意思是这样的：
我把窗体设计为可以最大最小化，在合适大小时imgzhhz对象恰好在状态栏下方，
可是最大化后还是在原位置，这样不好看，我想随着最大化事件的触发，
图象自动调整位置，依然恰好在状态栏上方