VB中通用对话框的代码什么意思?有什么作用
我根据教材编写的通用对话框中的许多语句不知是什么作用见下面:请指教PrivateSubCommand1_Click()CommonDialog1.FileName=""C...
我根据教材编写的通用对话框中的许多语句不知是什么作用见下面:
请指教
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Flags = vbOFNFileMustExist(这一句删除了,运行的时候好像没有什么影响,不知它起什么作用?)
CommonDialog1.Filter = "All Files︱*.*︱Word文档︱*.doc︱文本文件︱*.txt"(这句是过滤器,可是我改了过滤器中的文件类型,打开供选择的文件类型没有变化,好像这句没有用,删除了,运行的时候好像没有变化)
CommonDialog1.DialogTitle = "打开文件(Open)"
CommonDialog1.FilterIndex = 2(这句话中的2有什么作用?我换成了其他任何数效果是一样的)
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then
Label2.Caption = "你没有选中文件。"
Else
Label1.Caption = "文件名显示框,你要打开的文件是:"
Label2.Caption = CommonDialog1.FileName
End If
End Sub
另外:CommonDialog1的属性页中对话框标题和过滤器中输入的内容好像可有可无?
问题太多,敬请朋友耐心指教,十分感谢!!! 展开
请指教
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Flags = vbOFNFileMustExist(这一句删除了,运行的时候好像没有什么影响,不知它起什么作用?)
CommonDialog1.Filter = "All Files︱*.*︱Word文档︱*.doc︱文本文件︱*.txt"(这句是过滤器,可是我改了过滤器中的文件类型,打开供选择的文件类型没有变化,好像这句没有用,删除了,运行的时候好像没有变化)
CommonDialog1.DialogTitle = "打开文件(Open)"
CommonDialog1.FilterIndex = 2(这句话中的2有什么作用?我换成了其他任何数效果是一样的)
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then
Label2.Caption = "你没有选中文件。"
Else
Label1.Caption = "文件名显示框,你要打开的文件是:"
Label2.Caption = CommonDialog1.FileName
End If
End Sub
另外:CommonDialog1的属性页中对话框标题和过滤器中输入的内容好像可有可无?
问题太多,敬请朋友耐心指教,十分感谢!!! 展开
3个回答
展开全部
CommonDialog1.Flags = vbOFNFileMustExist(这一句删除了,运行的时候好像没有什么影响,不知它起什么作用?)
这句意思是说,您必须选择一个存在的文件名,如果自己在文件名那个框里随便输入,对话框会自动报错,这样就可保证对话框不会返回错误的文件名。
文件选择过滤器的效果是这样的,必须自己拉下来选择。如果没设置过滤器,就不会有这个下拉,就不能过滤了。
CommonDialog1.FilterIndex = 2(这句话中的2有什么作用?我换成了其他任何数效果是一样的)
看样子就是选择第二个过滤器了。序号是从0开始的,所以按你的例子,应该是文本文件那个过滤器。
对话框标题是显示在对话框上面那个可以拖动窗口的条条上,写不写无所谓。过滤器,在属性页写和在代码中写效果一样。
建议下载安装 MSDN for VB6,是VB6最原始最权威的帮助文档。这种问题查这个很简单就明白了。
追问
谢谢二位耐心指教,现在我知道上面那么多疑问都是因为过滤器中的分隔线用错了,我复制了第二位的分隔线后问题基本解决了,但CommonDialog1.Flags = vbOFNFileMustExist这一句我删除后在文件名中随便输入一个不存在的文件,也没有报错而是返回到对话框中,不知是什么原因?
追答
vbOFNFileMustExist这一句,输入不存在文件后,点击“打开”或”确定“按钮不会提示文件不存在?
我没装VB6,也是百度这个词查帮助文档的,您可以百度一下查查,解释就是说禁止选择不存在的文件什么的。
推荐于2018-04-13 · 知道合伙人软件行家
关注
展开全部
CommonDialog1.Filter = "Bitmap Files (*.*)|*.*|Word文档 (*.doc)|*.doc|"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询