查看單個文章
舊 2009-07-10, 02:23 PM   #2 (permalink)
mini
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:97 | 在線時長:9874小時 | 升級還需:122小時級別:97 | 在線時長:9874小時 | 升級還需:122小時級別:97 | 在線時長:9874小時 | 升級還需:122小時級別:97 | 在線時長:9874小時 | 升級還需:122小時級別:97 | 在線時長:9874小時 | 升級還需:122小時級別:97 | 在線時長:9874小時 | 升級還需:122小時級別:97 | 在線時長:9874小時 | 升級還需:122小時
註冊日期: 2002-12-07
文章: 13348
精華: 0
現金: 26462 金幣
資產: 3024342 金幣
預設



可以使用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
mini 目前線上  
送花文章: 2014, 收花文章: 8004 篇, 收花: 26808 次
回覆時引用此帖