打开,另存为,属性,打印等14个JS代码
### CommonDialog 控件知识点 #### 一、CommonDialog 控件简介 - **定义**:`CommonDialog` 控件是用于提供一系列标准对话框操作的工具,这些操作包括但不限于打开文件、保存文件、设置打印选项、选择颜色和字体等。 - **应用场景**:此控件广泛应用于基于Visual Basic的应用程序开发中,以便简化用户界面的设计和实现。 #### 二、CommonDialog 控件的工作原理 - **依赖关系**:`CommonDialog` 控件依赖于 `ommdlg.dll` 文件,这是一个Windows系统动态链接库(DLL)。为了使控件正常工作,该DLL文件必须存在于系统的 `SYSTEM` 目录下。 - **接口功能**:该控件充当了Visual Basic应用程序与 `ommdlg.dll` 中的例程之间的桥梁,使得开发者能够轻松地利用这些例程提供的功能。 #### 三、CommonDialog 控件的使用方法 - **添加控件**:首先需要将 `CommonDialog` 控件添加到应用程序的窗体中。 - **设置属性**:可以通过设置控件的各种属性来定制对话框的行为和外观。 - **调用方法**:具体显示哪个对话框取决于调用了哪种方法。例如: - `ShowOpen` 方法用于显示“打开”对话框; - `ShowSave` 方法用于显示“另存为”对话框; - `ShowColor` 方法用于显示“颜色”对话框; - `ShowFont` 方法用于显示“字体”对话框; - `ShowPrinter` 方法用于显示“打印”或“打印选项”对话框; - `ShowHelp` 方法用于调用Windows帮助引擎。 #### 四、示例代码分析 以下是一段使用 `CommonDialog` 控件的示例代码,展示了如何在点击按钮后打开“打开”对话框,并获取用户选择的文件名: ```vb 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 ``` #### 五、JavaScript 中的使用方法 在JavaScript中,可以使用 `ActiveXObject` 来创建 `CommonDialog` 对象,并调用其方法来实现类似的功能。例如,以下代码展示了如何使用 `CommonDialog` 控件在JavaScript中实现“另存为”的功能: ```javascript function saveas() { var fd = new ActiveXObject("MSComDlg.CommonDialog"); fd.Filter = "Microsoft Office Excel (*.xls)|*.xls"; fd.FilterIndex = 2; // MaxFileSize. fd.MaxFileSize = 128; // 显示对话框 fd.ShowSave(); } ``` #### 六、注意事项 - **兼容性问题**:需要注意的是,`ActiveXObject` 和 `CommonDialog` 控件在现代浏览器中可能不受支持,尤其是在非IE浏览器中。 - **安全性限制**:由于安全性的考虑,使用这些对象可能会受到浏览器的安全策略限制。 #### 七、参考资料 - **MSDN**:Microsoft 官方文档提供了关于 `CommonDialog` 控件的详细信息和技术支持,是学习和使用该控件的重要资源。 通过以上分析,我们可以看到 `CommonDialog` 控件为开发者提供了一种简单而强大的方式来集成常用的标准对话框操作,极大地简化了用户界面的设计过程。无论是对于初学者还是有经验的开发者来说,掌握 `CommonDialog` 控件的使用都是十分有价值的。
{
var fd = new ActiveXObject("MSComDlg.CommonDialog");
fd.Filter = "Microsoft Office Excel(*.xls)|*.xls";
fd.FilterIndex = 2;
// 必须设置MaxFileSize. 否则出错
fd.MaxFileSize = 128;
// 显示对话框
fd.ShowSave();
}
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<object id="WebBrowser" width="0" height="0" classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
</object>
【<a href="#" onclick="javascript:WebBrowser.ExecWB(4,1)">另存为</a>】
【<a href="#" onclick="javascript:document.execCommand('saveAs')">另存为HTML文档</a>】
【<a href="#" onclick="javascript:window.print()">打印文章</a>】
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
■打开■
<input name=Button onClick=document.all.WebBrowser.ExecWB(1,1) type=button value=打开>
<OBJECT classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 id=WebBrowser width=0></OBJECT>
■另存为■
<input name=Button onClick=document.all.WebBrowser.ExecWB(4,1) type=button value=另存为><OBJECT classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 id=WebBrowser width=0></OBJECT>
■属性■
<input name=Button onClick=document.all.WebBrowser.ExecWB(10,1) type=button value=属性><OBJECT classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 id=WebBrowser width=0></OBJECT>
■打印■
- 粉丝: 69
- 资源: 6
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 10、安徽省大学生学科和技能竞赛A、B类项目列表(2019年版).xlsx
- 9、教育主管部门公布学科竞赛(2015版)-方喻飞
- C语言-leetcode题解之83-remove-duplicates-from-sorted-list.c
- C语言-leetcode题解之79-word-search.c
- C语言-leetcode题解之78-subsets.c
- C语言-leetcode题解之75-sort-colors.c
- C语言-leetcode题解之74-search-a-2d-matrix.c
- C语言-leetcode题解之73-set-matrix-zeroes.c
- 树莓派物联网智能家居基础教程
- YOLOv5深度学习目标检测基础教程
- 1
- 2
- 3
- 4
前往页