RetValue=setWindowPos(me.hwnd,HWND_TOPMOST,Me.CurrentX,Me.CurrentY,300,300,3)试试

解决方案 »

  1.   

    让窗体处于最前面 
       
      
        应用SetWindowPos函数可以设置一个窗口的位置和状态,本例正是利用此函数来把一个窗体放在所有窗体之上,使之总是处于最前面。    我们先来看看SetWindowPos函数的定义和参数:  使用API函数之前必须先在程序中声明如下:
      Private 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  其中各参数的意义如下表:参数: 意义 
    hwnd Long,欲定位的窗口 
    hWndInsertAfter Long,窗口句柄。在窗口列表中,窗口hwnd会置于这个窗口句柄的后面 
    x,y Long,窗口新的x,y坐标 
    cx,cy Long,指定新的窗口宽度和高度 
    wFlags Long,包含了旗标的一个整数,是下列之一 
    返回值 Long,非零表示成功,零表示失败   下面是部分wFlags参数和它们的意义:参数  意义和使用方法  
    SWP_DRAWFRAME  围绕窗口画一个框 
    SWP_HIDEWINDOW  隐藏窗口 
    SWP_NOACTIVATE  不激活窗口 
    SWP_NOMOVE  保持当前位置 (x和y设定将被忽略) &H2 
    SWP_NOREDRAW  窗口不自动重画 
    SWP_NOSIZE  保持当前大小 (cx和cy会被忽略) &H1 
    SWP_NOZORDER  保持窗口在列表的当前位置 (hWndInsertAfter将被忽略) 
    SWP_SHOWWINDOW 显示窗口 &H40 
    SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口,即使窗口的大小没有改变   函数的使用很简单,我们只须在Form_Load中加入如下语句即可:  retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)  这样窗体就能保持在所有窗体的前面了。
      

  2.   

    代码应该没错,要么就是存在着一些书写格式上的错误:
    “User32”应为"User32",双引号不能在中文状态下输入。
    ByValhwnd 应为 ByVal hwnd 
      

  3.   

    谢谢各位,海草兄果然心细,原来是“ByValhwnd 应为 ByVal hwnd ”这个问题,又不报错,搞得我真不爽,我还是不会加分阿。