(原创)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>

C#对opendialog的一些整理

C#开发winform中OpenFileDialog的运用还可以多选   using System; using System.Drawing; using System.Collections...
  • njust_qhzt
  • njust_qhzt
  • 2013-04-16 18:13:07
  • 5271

c++builder选择文件,并得到文件路径!OpenDialog Edit!

首先需要一个Edit控件,一个Button和一个OpenDialog  Edit命名为urlOpen,Button为btnOpen,OpenDialog为OpenDialog1  那么在b...
  • goodai007
  • goodai007
  • 2011-11-21 10:36:56
  • 4267

delphi opendialog设置默认打开路径

错误的:path1 := ExtractFilePath(application.ExeName)+'\databack'; if DirectoryExists(path1) then ...
  • haibin_hu
  • haibin_hu
  • 2013-09-03 11:21:30
  • 3208

OpenDialog控件

ExpandFileName() 返回文件的全路径(含驱动器、路径)  ExtractFileExt() 从文件名中抽取扩展名  ExtractFileName() 从文件名中抽取不含路径的文件名...
  • u010359641
  • u010359641
  • 2014-09-29 16:45:36
  • 351

openDialog应用

  • 2013年07月16日 14:35
  • 7KB
  • 下载

原创企业级控件库之图片浏览控件

我想大家用过或听说过ACDSee 对于图片浏览的强大功能,我接下来介绍的控件与ACDSee相比,可谓是天壤之别,虽没有其强大的功能,但用在一些常用的软件上,提供一些常用的基本功能还是可以...
  • chinahuyong
  • chinahuyong
  • 2011-01-05 21:59:00
  • 2596

window.openDialog的实例

无标题文档 function getValue(){ var value=window.dialogArguments;//通过dialogArguments方法拿到父窗口中的va...
  • u011518709
  • u011518709
  • 2014-05-28 10:03:23
  • 9006

使用parent.openDialog弹出子窗体操作完成后自动关闭子窗体

eg: &paper_id=', 800, 800)">                             随机出题   ans:  this.Page.ClientScript.Regi...
  • u012801613
  • u012801613
  • 2015-02-27 11:23:33
  • 2054

Opendialog 定位到文件和文件夹

在Delphi中,定位文件的操作主要有两种方法。一种是直接定位文件,即通过“打开”对话框(OpenDialog)控件来实现。另一种是只定位到文件夹,然后再在此文件夹内寻找文件,这种定位方法是利用Del...
  • killer0717
  • killer0717
  • 2015-04-04 07:22:59
  • 1806

[语音合成技术第一讲]web 页面中使用语音合成技术

 web 页面中使用语音合成技术 前言:语音合成技术其实并没有什么神秘的,也不像想象中的那么繁杂。今天我就与大家一起来看一下,怎么让我们网页为我们朗读文本。怎样做到在web中进行语音合成 。我也将使用...
  • artlife
  • artlife
  • 2006-12-19 16:57:00
  • 5427
收藏助手
不良信息举报
您举报文章:(原创)OpenDialog控件在WEB上的应用
举报原因:
原因补充:

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