作者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