标题: 急求窗口问题，请高手指教 [打印本页]

---

作者: sparrow8397    时间: 2006-3-31 20:18     标题: 急求窗口问题，请高手指教

想让窗口始终在最上面，而且不能操作其他窗口
请问代码怎么写呢
我是新手，请人指教。

---

作者: Nothing    时间: 2006-3-31 21:49

建一个全屏的窗口，将窗口设计为最上层就可以了。

在窗体的代码最上面加上下面的声明：
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

Const HWND_TOPMOST = -1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40

在窗体启动的时候(Form_Load事件中)加上代码
    SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left \ Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0