VB中窗口置顶的问题

[叫我灰太狼]

写了一个小程序,但是要求窗口置顶,就是像QQ那样,不会被其他窗口覆盖.

Public Class Form1

    Private 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

    Private Delegate Sub CmdYesClick(ByVal sender As Object, ByVal e As System.EventArgs)
    Private Const HWND_TOPMOST& = -1
    Private Const SWP_NOSIZE& = &H1
    Private Const SWP_NOMOVE& = &H2

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim str As String = Now.ToString
        MsgBox("Honey,欢迎使用!")
        Me.TxtBox.Select()
        SetWindowPos(Me.Handle.ToInt32, HWND_TOPMOST, 0, 0, 200, 100, SWP_NOMOVE Or SWP_NOSIZE)
    End Sub
End Class

这是截取其中的一段代码,但是还是无法使窗口置顶啊,求解.

[AntingZ]

把 SetWindowPos 申明中的 long 全部改成 Integer 即可。

[wohaorende]

Form属性,TOPMOST=true

[鸭梨山大帝]

不需要,如果是VB.NET,每个Form都有一个内置属性,直接修改该属性为TOPMOST=true就OK了.

[threenewbee]

TOPMOST属性封装了这个API。

[叫我灰太狼]

真的这么简单....
我去试试....

[叫我灰太狼]

再问一下 为什么我上面的代码不能实现窗口置顶啊?

[QQRN]

返回值是多少？
如果函数成功，返回值为非零；如果函数失败，返回值为零。若想获得更多错误消息，请调用GetLastError函数。

[feile922]

对的 楼上正解