| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关闭文件对话框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55061) |
| -- 作者：ccbbdlzj -- 发布时间：2014/8/9 20:58:00 -- 关闭文件对话框 Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Output.Show(dlg.filename) End If Forms("进度显示").Open Dim Book As New XLS.Book(dlg.filename) Dim Sheet As XLS.Sheet = Book.Sheets(0) Tables("产品销售记录表").StopRedraw() 。。。。 求助：想在用户点击“取消”按钮时，关闭文件对话框而不执行后续的代码，咋写代码？
|
| -- 作者：lsy -- 发布时间：2014/8/10 7:45:00 -- 一、
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show(dlg.filename)
Else
Return
End If
Forms("进度显示").Open
Dim Book As New XLS.Book(dlg.filename)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("产品销售记录表").StopRedraw() 。。。。
二、
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show(dlg.filename)
Forms("进度显示").Open
Dim Book As New XLS.Book(dlg.filename)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("产品销售记录表").StopRedraw() 。。。。 End If |
| -- 作者：y2287958 -- 发布时间：2014/8/10 7:46:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Output.Show(dlg.filename) 加执行代码 End If
|
| -- 作者：ccbbdlzj -- 发布时间：2014/8/10 16:53:00 -- 谢了！ |