你控件放上去没有阿 晕死Private Sub Timer1_Timer() File1.Refresh Dir1.Refresh End Sub
放了阿,我基本上能看到控件都放上去了。。 下面的代码,不知道是否正确 Private Sub Dir1_Change() File1.Path = Dir1.Path End SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive End SubPrivate Sub File1_Click() Timer1.Interval = 1000 'DirListBox1.Refresh filelistbos.Refresh End SubPrivate Sub Form_Load() Timer1.Interval = 1000 ' 设置计时器时间间隔。 'DirListBox1.Refresh End SubPrivate Sub Timer1_Timer() Timer1.Interval = 1000 ' 设置计时器时间间隔。 End Sub
你需要做的只是在程序中定时刷新文件控件就行了。
很简单啊。╭═══════════════════╮
║ 免费的源码、工具网站,欢迎大家访问!║
║ http://www.j2soft.cn/ ║
╰═══════════════════╯
你看你控件里面,把这2个东东拖上去。
然后在timer里
DirListBox1.refrer
我在timer里DirListBox1.refrer,好像报错啊?
那位可能把源代码 贴出来啊?
虽然简单,但在网络上找不到
晕死Private Sub Timer1_Timer()
File1.Refresh
Dir1.Refresh
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End SubPrivate Sub File1_Click()
Timer1.Interval = 1000
'DirListBox1.Refresh
filelistbos.Refresh
End SubPrivate Sub Form_Load()
Timer1.Interval = 1000 ' 设置计时器时间间隔。
'DirListBox1.Refresh
End SubPrivate Sub Timer1_Timer()
Timer1.Interval = 1000 ' 设置计时器时间间隔。
End Sub
比如你要看c:\test目录
你就在form_load里面
dir1.path="c:\test"
多谢ASPOWER哥哥!!!
不过发现一个小问题,就是每次新文件生成,在FILEBOX里面确实有,但不是排在第一个,有没有什么方法让新生成的文件放在最前面(即按照时间序列排序) 现有的好像是把最新的文件放到最后,而且每次需要拉动滚动条在能找到,,,, 再次麻烦啦,如果这个比较复杂就算了,毕竟 大功已经告成70%