疑問 - VB6.0如何讓程式跳出在第一個

[chung1206]

--------------------
閱讀本主題的最佳解答
--------------------


各位先進們好，我在VB6裡做了一個程式有做Me.WindowState = 0讓他過一段時間視窗會自動跳出來，但如果當我有開瀏覽器或開word時，它跳出來會在這些程式的後面所以看不到，不知要如何才能讓它跳出來時是在程式的第一個？謝謝。

[mini]

可以使用windows視窗定位API函式

Public Const hWnd_NOTOPMOST = -2 '取消置頂
Public Const hWnd_TOPMOST = -1 '將視窗至於桌面視窗最頂部
Public Const hWnd_BOTTOM = 1 '最下面
Public Const SWP_HIDEWINDOW = &H80 '隱藏視窗
Public Const SWP_NOSIZE = &H1 '保持窗口大小
Public Const SWP_NOMOVE = &H2 '保持窗口位置

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


hWnd=Me.hWnd
'先置頂
SetWindowPos hWnd, hWnd_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
'再取消
SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

[chung1206]

作者: mini

可以使用windows視窗定位API函式

Public Const hWnd_NOTOPMOST = -2 '取消置頂
Public Const hWnd_TOPMOST = -1 '將視窗至於桌面視窗最頂部
Public Const hWnd_BOTTOM = 1 '最下面
Public Const SWP_HIDEWINDOW = &H80 '隱藏視窗
Public Const SWP_NOSIZE = &H1 '保持窗口大小
Public Const SWP_NOMOVE = &H2 '保持窗口位置

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


hWnd=Me.hWnd
'先置頂
SetWindowPos hWnd, hWnd_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
'再取消
SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

感謝大大，ＯＫ了，萬分感激。