真怪了。气死我了。

Question

StayOnTop insert1.hWnd, size   '设为总在最前
窗体load 有这个，与它冲突吗？若是怎么决。？？、、

Answer 1

Type Rect
   Height As Integer
   Left As Integer
   Top As Integer
   Width As Integer
End Type
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40
Declare Sub 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)
Public Sub StayOnTop(hWnd As Long, size As Rect)
   SetWindowPos hWnd, HWND_TOPMOST, size.Left / 15, size.Top / 15, size.Width / 15, size.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End SubPublic Sub NotStayOnTop(hWnd As Long, size As Rect)
   SetWindowPos hWnd, HWND_NOTOPMOST, size.Left / 15, size.Top / 15, size.Width / 15, size.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
是与这个模块有冲突，这个是实现窗体总在前面的。有没有知道怎么解决这个啊。