十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
CommonDialog 控件(“打开”、“另存为”对话框)
创新互联从2013年成立,先为双桥等服务建站,双桥等地企业,进行企业商务咨询服务。为双桥企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器,目录,文件扩展名和文件名。除对话的标题不同外,另存为对话外观上与打开对话相似。
在运行时,当用户选择一个文件“关闭”对话框时,FileName 属性既为选定的文件名。
可以设置 Filter 属性,这样对话就只显示某种文件类型,如文本文件。Flags
属性可用来改变对话的元素,当诸如覆盖文件之类的动作发生时,还可用来提示用户。
CommonDialog
控件(“打开”、“另存为”对话框)示例
下例显示“打开”对话框然后在信息框中显示所选的文件名:
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.FileName
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
1、首先,点击保存按钮后应检查文本框内容。
2其次,如果在文本框4中输入的值以400开头则保存反之更改为400。
3、最后,再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。
添加一个SaveFileDialog,在保存excle选择时候添加
SaveFileDialog1.show()
用法跟OpenFileDialog相同