史萊姆論壇

史萊姆論壇 (http://forum.slime.com.tw/)
-   程式語言討論區 (http://forum.slime.com.tw/f76.html)
-   -   VB6.0如何讓程式跳出在第一個 (http://forum.slime.com.tw/thread250313.html)

chung1206 2009-07-10 10:00 AM

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

mini 2009-07-10 02:23 PM

可以使用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 2009-07-11 09:18 AM

引用:

作者: mini (文章 2174678)
可以使用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

感謝大大,OK了,萬分感激。


所有時間均為台北時間。現在的時間是 06:13 PM

Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.

『服務條款』

* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *


SEO by vBSEO 3.6.1