![]() |
VB6.0如何讓程式跳出在第一個
各位先進們好,我在VB6裡做了一個程式有做Me.WindowState = 0讓他過一段時間視窗會自動跳出來,但如果當我有開瀏覽器或開word時,它跳出來會在這些程式的後面所以看不到,不知要如何才能讓它跳出來時是在程式的第一個?謝謝。
|
可以使用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 |
引用:
|
所有時間均為台北時間。現在的時間是 06:13 PM。 |
Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.
『服務條款』
* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *