艾克斯贝塔火花形态:VB里面什么代码可以让窗体总在顶端显示

来源:百度文库 编辑:高考问答 时间:2024/04/28 04:45:10
请告诉我代码
顺便告诉我该怎么使用

setwindowpos me.hwnd,hwnd_topmost,0,0,0,0,swp_nosize or swp_nomove
函数与常数定义在api浏览器中找

或者。。。网上搜索现成的吧~~~

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOPMOST = -1
Public 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

SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE