(原创)OpenDialog控件在WEB上的应用

原创 2004年08月19日 09:32:00

作者:死在水中的鱼(死鱼)


以前老觉得FORM里的FILE按钮不够完美,因为它没有FILTER,所以一打开窗口就全部文件也给显示出来。于是调用了系统的OpenDialog控件,这样以后写上传文件时就能够的显得个性化了。。但只对WIN系统有用!!!

测试代码如下:直接保存为一个HTM文件即可以看效果
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> OpenDialog控件测试 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<object id=FileDialog style="left: 0px; TOP: 0px" classid="clsid:f9043c85-f6f2-101a-a3c9-08002b2f49fb" codebase="http://activex.microsoft.com/controls/vb5/comdlg32.cab">
</object>
<input type=button value="打开文件" onclick='OpenFile()'><input type=button value="选择颜色" onclick='OpenColor()'><input type=button value="选择字体" onclick='OpenFont()'>
<div align=left id=App style="border:1 solid #000000;background-color:#FFFFFF;height:300px;overflow:auto;width:100%;z-index:2" contentEditable></div>
<SCRIPT LANGUAGE="VBScript">
'/***************************文件窗口测试****************************************
Sub OpenFile
On Error Resume Next
Dim sFilter
With FileDialog
 .FileName=""
 .DialogTitle="请选择要打开的文件"
 .Flags=4+4096          '打开文件窗口的样式;  4 = 隐藏“只读文件”按钮选项   4096 = 选择的文件必须存在  512 = 可以选择多文件(但窗口样式会改变成旧时系统的窗口样式)
    sFilter="可执行文件(*.exe,com)|*.exe;*.com"
    sFilter=sFilter + "|图片文件(*.jpeg,jpg,gif,png)|*.jpeg;*.jpg;*.gif;*.png;*.bmp"
 sFilter=sFilter + "|所有文件(*.*)|*.*"
 .Filter=sFilter       '打开文件窗口的过滤器
    .CancelError = True
 .ShowOpen             '写成.ShowSave则是显示保存文件的窗口
 If Err.Number<>0 Then
    Err.Clear
    document.all.App.innerText = "你没有选择任何文件"
    Exit Sub
 End If
 document.all.App.innerText= "你选择的文件是:"+.FileName
End With
End Sub
'/***************************颜色窗口测试****************************************
Sub OpenColor
On Error Resume Next
Dim sColor
With FileDialog
    .CancelError = True
 .Flags=2              '1 = 不显示自定义颜色面板  2 = 先显示自定义颜色面板
 .ShowColor
 If Err.Number<>0 Then
    Err.Clear
    document.all.App.innerText = "你没有选择任何颜色"
    document.all.App.style.background="#FFFFFF"
    Exit Sub
 End If
 sColor="#"+Left(StrReverse("000000"+Cstr(Hex(.Color))),6)
 document.all.App.innerHTML= "<font color="+sColor+">你选择的颜色是:"+sColor+"</font>"
End With
End Sub
'/***************************字体窗口测试****************************************
Sub OpenFont
On Error Resume Next
Dim sFont,sColor
With FileDialog
    .CancelError = True
 .Flags=3 + 256
 '1 = 屏幕字体集    2 = 打印机字体集 3 = 包含1,2的字体集  256 = 显示字体效果栏(颜色,下划线,删除线等)
 .ShowFont
 If Err.Number<>0 Then
    Err.Clear
    document.all.App.innerText = "你没有选择任何字体"
    Exit Sub
 End If
 sFont="名称:"+.FontName+" 字体大小:"+Cstr(.FontSize)
 If .FontBold Then
    sFont=sFont+" 粗体:是"
 Else
    sFont=sFont+" 粗体:否"
 End If
 If .FontItalic Then
    sFont=sFont+" 斜体:是"
 Else
    sFont=sFont+" 斜体:否"
 End If
 If .FontStrikeThru Then
    sFont=sFont+" 删除线:是"
 Else
    sFont=sFont+" 删除线:否"
 End If
 If .FontUnderLine Then
    sFont=sFont+" 下划线:是"
 Else
    sFont=sFont+" 下划线:否"
 End If
 sColor="#"+Left(StrReverse("000000"+Cstr(Hex(.Color))),6)
 sFont=sFont+" 字体颜色:"+sColor
 document.all.App.innerText= "你选择的字体是:"+sFont
End With
End Sub
</SCRIPT>
</BODY>
</HTML>

手把手教你玩转QQ的原创表情

QQ的原创表情非常的可爱,做得比较精致,深受广大QQ用户的喜爱;但怎么将这些表情保存下来,好让我可以在别的地方用呢? 乖乖牛在线将从不同的视角,为你解析QQ原创表情的存储、互通、保护的机制;熟悉了这些...
  • TragicGuy
  • TragicGuy
  • 2015年10月23日 13:58
  • 1097

OCX控件开发及WEB Javascript如何使用OCX控件

本文主要讲解如何使用VS 2010 的IDE开发网页OCX控件,及网页(Javascript)如何使用OCX控件(OCX控件在网页中使用方法)...
  • yangyuyu77584
  • yangyuyu77584
  • 2014年10月18日 20:35
  • 2189

Web应用程序中的脚本—客户端和服务器端

动态网页开发技术按照执行的位置不同,分为客户端和服务器端,如下图:     l  那么什么是客户端脚本,什么又是服务器端脚本?       ²  客户端脚本       客户端脚本:无论在牛腩...
  • u010955843
  • u010955843
  • 2014年12月14日 21:17
  • 1298

通过图像转换软件打造95%原创文章--真的可以告别伪原创(有点扯)

通过图像转换软件打造95%原创文章--真的可以告别伪原创   满大街都在吆喝,SEO优化什么最重要?“内容为王,外链为皇”。。。对,我也是这么认为的,可是能每天坚持写原创的又有几个呢?我相信我这篇文...
  • wuxinliulei
  • wuxinliulei
  • 2013年08月27日 13:09
  • 987

伪原创文章的方法

1.修改标题 标题是搜索引擎读取相关数据的第一步,因此,伪原创内容页的全新标题,搜索引擎而言对这个页面的评价也就高些。具体 的操作技巧有,添加或删减词语词组、换汤不换药(全新的描述方式,意义雷同)、同...
  • zongcaihui
  • zongcaihui
  • 2015年10月12日 15:18
  • 245

WEB免费打印控件推荐

在WEB系统中,打印的确是个烦人的问题。 要么自己开发打印控件,如果项目时间紧,肯定来不及。 要么购买成熟的打印控件,如果是大项目可以考虑,但如果项目只有几K到1、2W之间,这就麻烦了。 前段时...
  • yelin042
  • yelin042
  • 2017年12月19日 14:24
  • 299

强大的web电子表格控件dhtmlxSpreadsheet免费下载地址

tmlxSpreadsheet 是一个由JavaScript 和 PHP 写成的电子表格控件(包含WP插件, Joomla插件等等).。 程序员可以容易的添加一个类似Excel功能的,可编辑的表格功能...
  • u014542704
  • u014542704
  • 2014年09月26日 17:48
  • 1776

Web服务器控件和HTML控件区别

     这两天在学习ASP.NET,遇到了Web服务器控件和HTML控件。刚开始看见这两个控件的时候,感觉很相似。 所以就想到了如下问题:这两个控件有什么区别?后来又看到了HTML服务器控件...
  • u010539352
  • u010539352
  • 2014年12月10日 19:30
  • 1892

Web页面测试总结—控件类

原文:点击打开链接 web端页面测试,最常见的是基本控件的测试,只有了解常见的控件和其测试方法,才能掌握测试要点,避免漏测情况发生。根据日常工作总结,将控件和常见逻辑集合在一起,总结了几个控...
  • lb245557472
  • lb245557472
  • 2016年09月23日 16:40
  • 829

easyui的学习笔记--------dialog的使用

dialog的使用 为了方便以后的使用记录一下easyui的使用: 功能:点击链接,弹出一个dialog的框 建议:将其中的页面和js分离开,尽量通过js控制页面中的展示的信息和样式等,降低页面...
  • qq_15061629
  • qq_15061629
  • 2017年03月11日 09:59
  • 722
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:(原创)OpenDialog控件在WEB上的应用
举报原因:
原因补充:

(最多只允许输入30个字)