作者fumizuki (小獅子)
看板Visual_Basic
標題Re: [VB6 ]將下拉式選單內容，自動對應於某txt檔
時間Tue Nov 29 07:09:55 2005
※ 引述《terance (修)》之銘言：
: ※ 引述《fumizuki (小獅子)》之銘言：
: : 1)
: : Shell(pathname[,windowstyle])
: : Shell 函數的語法含有底下這些指名引數：
: : 單元 描述
: : pathname 必要引數，Variant (String)，要執行的程式名稱，以及任何必要的引數
: : 或命令列變數，同可時加上目錄或檔案夾名稱，以及磁碟機名稱。
: : Windowstyle 選擇性引數，此為 Variant (Integer)，表示在程式執行時，視窗的呈現
: : 型態，如果 windowstyle 省略，則程式是以最小化來執行。
: : Windowstyle 可使用常數：
: : vbHide, VbNormalFocus, VbMinimizedFocus, VbMaximizedFocus
: : VbNormalNoFocus, VbMinimizedNoFocus
: : 節錄自 MSDN ...
: : 2)
: : 使用 Timer 物件自動偵測
: : FileDateTime(pathname) 可以得知檔案修改的時間...
: 謝謝，你的意思是，判斷修改時間若是改變
: 將執行程序跳到可以更新選單的程式碼
: 是這樣嗎？
: 可是，抱歉耶，我不會寫時間的判斷耶
: 可以教教我嗎？
Private Sub Form1_Load()
Timer1_Timer
End Sub
Private Sub UpdateCombo() '載入選單資料
...
End Sub
Private Sub Timer1_Timer() '事件
Static FDT As Long '記錄前一次修改時間
If FileDateTime(pathname) > FDT Or FDT = 0 Then
'若是零代表選單資料還沒有被載入過
UpdateCombo
End If
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43