在一个窗体中调用另一个无边框窗体，怎么定位第二个窗体位置？？

[michaeliao]

我在一个Form1中调用另外一个无边框Form2，Form2在Form1窗体上显示，但是每次启动Form1的时候，Form2的位置都不同。什么原因？代码如下：

Form1窗体代码如下：

Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Dim frmArray(20) As Form

Private Sub Form_Load()
Dim i As Integer

For i = 0 To 4
    Set frmArray(i) = New frmBFForm
    SetParent frmArray(i).hWnd, Form1.hWnd
    frmArray(i).lblNum.Caption = (i + 1)
    frmArray(i).Show
Next i

End Sub

Private Sub Form_Resize()
Dim i As Integer
Dim dWidth As Double

dWidth = (Me.Width - 240) / 5

For i = 0 To 4
    frmArray(i).Top = 0
    frmArray(i).Width = dWidth
    frmArray(i).Left = i * frmArray(i).Width

Next i
'
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim frm As Form
For Each frm In Forms
    Unload frm
Next
End Sub

Form2窗体如下，窗体名是：frmBFForm，窗体上有6个Label，一个Shape，窗体界面如下图：

窗体frmBFForm中的代码主要是给窗体中的控件定位：

Private Sub Form_Resize()
Dim dTemp As Double
Dim dWidth As Double, dHeight As Double
Dim dPicRowHeight As Double
Dim i As Integer

dHeight = Me.Height
dWidth = Me.Width

lblNum.Top = 0
lblNum.Left = 10
lblNum.Width = dWidth - 20

shpCircle.Top = lblNum.Top + lblNum.Height + 10
If dWidth * 0.23 > dHeight * 0.23 Then
    dTemp = dHeight * 0.23
Else
    dTemp = dWidth * 0.23
End If
shpCircle.Width = dTemp
shpCircle.Height = dTemp
shpCircle.Left = (dWidth - shpCircle.Width) / 2

lblTip.Left = 10
lblTip.Width = dWidth - 20
lblTip.Top = shpCircle.Top + (shpCircle.Height - lblTip.Height) / 2

picRect.Left = 10
picRect.Width = dWidth - 20
picRect.Top = shpCircle.Top + shpCircle.Height + 20
picRect.Height = dHeight - picRect.Top - 30

dPicRowHeight = picRect.Height / 4
For i = 0 To 3
    lblItem(i).Left = 10
    lblItem(i).Width = picRect.Width - 20
    lblItem(i).Top = i * dPicRowHeight + (dPicRowHeight - lblItem(i).Height) / 2
Next i

End Sub

[lyserver]

使用setwindowpos函数固定窗口位置。

[michaeliao]

引用 3 楼 spt_petrolor 的回复:

vb系统弄的,2个窗体是相同的类的话就一个比一个低一点并且靠右边一点,低到一定程度就又上去了. 你自己设计form1和form2的位置,比如form2的位置是form1的left,top加上***.

这个我设计了啊，看我代码里面有Form2.top我全部设置成0，但是Top就不是0.所以才迷惑，才不知道原因啊

[michaeliao]

引用 4 楼 lyserver 的回复:

使用setwindowpos函数固定窗口位置。

这个我试了，好像可以，非常感谢，结贴给分！！！

[michaeliao]

下图是第一次启动的：

下面是第二次启动时的样子：

下面是第三次启动时的样子：

中间的几个小窗体，越来越下面，到底是什么原因啊。高手请指教！

[王二.麻子]

vb系统弄的,2个窗体是相同的类的话就一个比一个低一点并且靠右边一点,低到一定程度就又上去了. 你自己设计form1和form2的位置,比如form2的位置是form1的left,top加上***.