怎样控制vb制作的窗体，固定一个位置，总在最上面。

Question

Public Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Answer 1

Public Const SWP_NOMOVE = &H2 '不更动目前视窗位置
Public Const SWP_NOSIZE = &H1 '不更动目前视窗大小
Public Const HWND_TOPMOST = -1 '设定为最上层
Public Const HWND_NOTOPMOST = -2 '取消最上层设定
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Answer 2

函数原型：BOOL SetWindowPos（HWN hWnd，HWND hWndlnsertAfter,int X，int Y,int cx，int cy,UNIT．Flags）；    参数：    hWnd:窗口句柄。    hWndlnsertAfter:在z序中的位于被置位的窗口前的窗口句柄。该参数必须为一个窗口句柄，或下列值之一：    HWND_BOTTOM：将窗口置于Z序的底部。如果参数hWnd标识了一个顶层窗口，则窗口失去顶级位置，并且被置在其他窗口的底部。    HWND_DOTTOPMOST：将窗口置于所有非顶层窗口之上（即在所有顶层窗口之后）。如果窗口己经是非顶层窗口则该标志不起作用。    HWND_TOP:将窗口置于Z序的顶部。    HWND_TOPMOST:将窗口置于所有非顶层窗口之上。即使窗口未被激活窗口也将保持顶级位置。    查g看该参数的使用方法，请看说明部分。    x：以客户坐标指定窗口新位置的左边界。    Y：以客户坐标指定窗口新位置的顶边界。    cx:以像素指定窗口的新的宽度。    cy：以像素指定窗口的新的高度。    uFlags:窗口尺寸和定位的标志。该参数可以是下列值的组合：    SWP_ASNCWINDOWPOS：如果调用进程不拥有窗口，系统会向拥有窗口的线程发出需求。这就防止调用线程在其他线程处理需求的时候发生死锁。    SWP_DEFERERASE：防止产生WM_SYNCPAINT消息。    SWP_DRAWFRAME：在窗口周围画一个边框（定义在窗口类描述中）。    SWP_FRAMECHANGED：给窗口发送WM_NCCALCSIZE消息，即使窗口尺寸没有改变也会发送该消息。如果未指定这个标志，只有在改变了窗口尺寸时才发送WM_NCCALCSIZE。    SWP_HIDEWINDOW;隐藏窗口。    SWP_NOACTIVATE：不激活窗口。如果未设置标志，则窗口被激活，并被设置到其他最高级窗口或非最高级组的顶部（根据参数hWndlnsertAfter设置）。    SWP_NOCOPYBITS：清除客户区的所有内容。如果未设置该标志，客户区的有效内容被保存并且在窗口尺寸更新和重定位后拷贝回客户区。    SWP_NOMOVE：维持当前位置（忽略X和Y参数）。    SWP_NOOWNERZORDER：不改变z序中的所有者窗口的位置。    SWP_NOREDRAW:不重画改变的内容。如果设置了这个标志，则不发生任何重画动作。适用于客户区和非客户区（包括标题栏和滚动条）和任何由于窗回移动而露出的父窗口的所有部分。如果设置了这个标志，应用程序必须明确地使窗口无效并区重画窗口的任何部分和父窗口需要重画的部分。    SWP_NOREPOSITION；与SWP_NOOWNERZORDER标志相同。    SWP_NOSENDCHANGING：防止窗口接收WM_WINDOWPOSCHANGING消息。    SWP_NOSIZE：维持当前尺寸（忽略cx和Cy参数）。    SWP_NOZORDER：维持当前Z序（忽略hWndlnsertAfter参数）。    SWP_SHOWWINDOW：显示窗口。    返回值：如果函数成功，返回值为非零；如果函数失败，返回值为零。若想获得更多错误消息，请调用GetLastError函数。    备注：如果设置了SWP_SHOWWINDOW和SWP_HIDEWINDOW标志，则窗口不能被移动和改变大小。如果使用SetWindowLoog改变了窗口的某些数据，则必须调用函数SetWindowPos来作真正的改变。使用下列的组合标志：SWP_NOMOVEISWP_NOSIZEISWP_FRAMECHANGED。    有两种方法将窗口设为最顶层窗口：一种是将参数hWndlnsertAfter设置为HWND_TOPMOST并确保没有设置SWP_NOZORDER标志；另一种是设置窗口在Z序中的位置以使其在其他存在的窗口之上。当一个窗口被置为最顶层窗口时，属于它的所有窗口均为最顶层窗口，而它的所有者的z序并不改变。    如果HWND_TOPMOST和HWND_NOTOPMOST标志均未指定，即应用程序要求窗口在激活的同时改变其在Z序中的位置时，在参数hWndinsertAfter中指定的值只有在下列条件中才使用：    在hWndlnsertAfter参数中没有设定HWND_NOTOPMOST和HWND_TOPMOST标志。    由hWnd参数标识的窗口不是激活窗口。    如果未将一个非激活窗口设定到z序的顶端，应用程序不能激活该窗口。应用程序可以无任何限制地改变被激活窗口在Z序中的位置，或激活一个窗口并将其移到最高级窗口的顶部或非最高级窗口的顶部。    如果一个顶层窗口被重定位到z序的底部（HWND_BOTTOM）或在任何非最高序的窗口之后，该窗口就不再是最顶层窗口。当一个最顶层窗口被置为非最顶级，则它的所有者窗口和所属者窗口均为非最顶层窗口。    一个非最顶端窗口可以拥有一个最顶端窗口，但反之则不可以。任何属于顶层窗口的窗口（例如一个对话框）本身就被置为顶层窗口，以确保所有被属窗口都在它们的所有者之上。    如果应用程序不在前台，但应该位于前台，就应调用SetForegroundWindow函数来设置。    Windows CE：如果这是一个可见的顶层窗口，并且未指定SWP_NOACTIVATE标志，则这个函数将激活窗口、如果这是当前的激活窗口，并且指定了SWP_NOACTIVATE或SWP_HIDEWINDOW标志，则激活另外一个可见的顶层窗口。    当在这个函数中的nFlags参数里指定了SWP_FRAMECHANGED标志时，WindowsCE重画窗口的整个非客户区，这可能会改变客户区的大小。这也是重新计算客户区的唯一途径，也是通过调用SetwindowLong函数改变窗口风格后通常使用的方法。    SetWindowPos将使WM_WINDOWPOSCHANGED消息向窗口发送，在这个消息中传递的标志与传递给函数的相同。这个函数不传递其他消息。    Windows CE 1.0不支持在hWndlnsertAber参数中的HWND_TOPMOST和HWND_NOTOPMOST常量。    Windows CE1.0不支持在fuFags参数中的SWP_DRAWFRAME和SWP_NOCOPYBITS标志。

Answer 3

窗体置顶:#If Win16 Then
    Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
#Else
    Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End IfSub KeepOnTop(F As Form)
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2    SetWindowPos F.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZEEnd Sub

Answer 4

将窗体的moveable属性置为false，或将BorderStyle属性置为0-None，都可使窗体不能移动。

Answer 5

用 SetWindowPos就可以了，一个基本知识

Answer 6

用SetForegroundWindow 也行吧（我不知道区别）
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" lias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command1_Click()
dim WinWnd as long
'先打开word      
WinWnd = FindWindow(vbNullString, "Microsoft Word")
SetForegroundWindow (winwnd)
End Sub

Answer 7

用setwindowpos后，虽然窗体在最上，但仍可以操作该窗体下面的窗体，如何做到向msgbox那样，只能操作最上窗体？

Answer 8

setwindowpos me.hwnd , -1 ,0,0,0,0,3

Answer 9

用setwindowpos后，虽然窗体在最上，但仍可以操作该窗体下面的窗体，如何做到向msgbox那样，只能操作最上窗体？from2.show 1

Answer 10

from2.show 1后，该表单内的很多操作不能进行了！