帮帮忙大哥！

Question

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 LongPrivate Sub Command1_Click()
ret = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End SubPrivate Sub Command2_Click()
ret = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End Sub要那么麻烦干什么名啊？

Answer 1

你的代码没有问题啊只是注意 你的 hwnd 要改为 me.hwnd 或者 form1.hwnd（假设是 form1）

Answer 2

把　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 
写在函数外。

Answer 3

在句柄前使用me
就是me.hwnd

Answer 4

    各位大哥，首先小弟有礼了，但为什么照你们的方法做还是老毛病啊，难道是我的vb光盘出问题了么？可是我又买了一张还是一样啊：“编译错误：无效外部过程”。我非常着急！！！你们还有什么其他高招能达到Always On Top 吗？
    另外，dick8125朋友的程序能通过但是不能达到Always On Top 的功能。