to hhjjhjhj(大头): SetParent me.hwnd,0 me.top=-500怎麽不管用?
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Command1_Click() SetParent Me.hWnd, 0 Me.Top = -500 '不应是-500,这里应该是绝对位置了 End Sub
form1.Show
form1.Move 0, -400
me.top=-500怎麽不管用?
Private Sub Command1_Click()
SetParent Me.hWnd, 0
Me.Top = -500 '不应是-500,这里应该是绝对位置了
End Sub