有那位高手能指点小弟,如何精确定位运行时的窗体位置。

Question

Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As LongPrivate Sub Command1_Click()
    Dim wPos As POINTAPI
    Dim cmdPos As POINTAPI
    
    ClientToScreen Form1.hwnd, wPos
    cmdPos.x = Command1.Left + wPos.x * Screen.TwipsPerPixelX
    cmdPos.y = Command1.Top + wPos.y * Screen.TwipsPerPixelY
    Form2.Move cmdPos.x, cmdPos.y
    Form2.Show
End Sub

Answer 1

你的意思是至少有两上窗体，在其中一个窗体中有一个按钮，要让另一个窗体始终在那个按钮上吧。
如果是这样，可以定义一个全局变量， 在第一个窗体的MOVE

Answer 2

你的意思是有个窗体，在其中一个窗体中有一个按钮，要让另一个窗体始终在那个按钮上吧。
如果是这样，在第一个窗体的MOVE 事件中：
form2.top = form1.top  + form1.command1.top - form2.height