主题：OpenFileDialog

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