以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  OpenFileDialog  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118578)
--  作者：qinjh18935180888
--  发布时间：2018/5/6 14:26:00
--  OpenFileDialog
老师：打开文件对话，能象自己做的窗口，能使用定时器吗？比如我要判断如果对话框如打开10秒种没有关闭，用代码强行关闭。
--  作者：有点甜
--  发布时间：2018/5/6 19:19:00
--  

1、为什么要做这种设定？

 

2、如果确实要做，这样做

 

计划管理

 

MyTimers("计划1").Enabled = False
ShowAppWindow("打开",5)

 

调用代码

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
MyTimers("计划1").Enabled = True
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
--  作者：qinjh18935180888
--  发布时间：2018/5/6 19:26:00
--  
谢谢，明白了。