 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
小賴
註冊時間: 2004-12-27
文章: 476
第 1 樓
|
 發表於: 星期二 四月 26, 2016 9:24 am 文章主題: 請教如何讓最小化存於工作列的圖示閃爍 |
 |
|
電腦版Line; 在最小化當中如有訊息傳入; 工作列的Line圖示會閃爍;
請教各位先進是否了解; 有那些相關API可用; 請不吝賜教 |
|
| 回頂端 |
|
 |
215001
註冊時間: 2003-06-11
文章: 393
第 2 樓
|
| 發表於: 星期二 四月 26, 2016 4:50 pm 文章主題: |
|
|
加一個 Timer
| 代碼: |
IF MOD( SEC( DATETIME() ) , 2 )=0
thisform.caption="測試"
ELSE
thisform.caption=".."
ENDIF
|
|
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 476
第 3 樓
|
| 發表於: 星期三 四月 27, 2016 12:06 pm 文章主題: |
|
|
感謝 215001 的指點
先試試
直覺上用於XP應該可行
但用於 Window 7 改變 Form.Caption 應該不行吧 ?
Window 7 的工作列只看到圖示(Icon) 咧 |
|
| 回頂端 |
|
|
perry
註冊時間: 2014-07-20
文章: 203
第 4 樓
|
| 發表於: 星期三 四月 27, 2016 1:18 pm 文章主題: |
|
|
*main.prg
_screen.icon='c:\test\ico1.ico'
ismin=0
decl long FindWindow in user32 string,string
decl long IsIconic in user32 long
.
.
read even
clear dlls
*timer1 &&interval=1000 &&1秒
proc timer
if isiconic(findwindow(null,_screen.caption))#0
ismin=iif(ismin=0,1,0)
c_icon=iif(ismin=0,'c:\test\ico1.ico','c:\test\ico2.ico')
_screen.icon=c_icon
else
if uppe(_screen.icon)#uppe('c:\test\ico1.ico')
_screen.icon='c:\test\ico1.ico'
endi
endi |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
