(Original) Application of OpenDialog Controls on the Web

xiaoxiao2021-03-06  124

Author: Dead fish in the water (dead fish)

I used to feel that the File button in the Form is not perfect because it doesn't have a Filter, so the opening window is also displayed. So the system's OpenDialog control is called so that it can be personal when you write a file. . But only useful for WIN systems! ! !

The test code is as follows: Directly saved as an HTM file to see the effects OpenDialog control </ 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 = "Open file" οnclick = 'openfile ()'> <input type = button value = "Select Color" οnclick = 'OpenColor () '> "Select Font" οnclick =' OpenFont () '> <div align = left id = app style = "Border: 1 Solid # 000000; Background-Color: #ffff; height: 300px; Overflow: AUTO; Width: 100%; Z-Index: 2 "ContenTedITable> </ div> <script language =" vbscript "> '/ *************************** ******** File window test ******************************************************* * Sub Openfileon Error ResMe Nextdim Sfilterwith FileDialog .FileName = "" .dialogtitle = "Please select the file you want to open" .flags = 4 4096 'Open Will Pack of the window; 4 = Hide "Read-only File" button option 4096 = Selected file must exist 512 = You can select a multi-file (but window style changed to the window style of the old system) sfilter = "executable file (*. EXE, COM) | * .exe; *. com "sfilter = sfilter " | image file (* .jpeg, jpg, gif, png) | * .jpeg; *. jpg; *. gif; *. png; * .BMP "sfilter = sfilter " | All files (*. *) | *. * ".filter =</p> <p>Sfilter 'Opens the filter window of the file window. Cancelerror = true .showopen' writes .Showsave is the window of the window if Err.Number <> 0 Then Err.clext = "You did not select any files "EXIT SUB End if Document.All.App.innertext =" The file you selected is: " . Filenamend Withend Sub '/ ********************** ***** Color window test *********************************************** SUB OpenColoron Error Resume Nextdim Scolorwith FileDialog .canceLerror = true .flags = 2 '1 = Does not display Custom Color Panel 2 = First Display Custom Color Panel. Shotcolor if Err.Number <> 0 Then Err.clear Document.all.App.innertext = "You didn't choose any color" Document.all.App.style.background = "# fffff" EXIT SUB End if Scolor = "#" Left (Strreverse ("000000" CSTR (Hex (.color)), 6) Document.all.app.innerhtml = "<font color =" scolor "> The color you selected is:" Scolor "</ font>" end wirth sub '/ ********* **************** Font Window Test *************************************** ********** SUB OpenFonton Error Resume Nextdim Sfont, Scolorwith FileDialog .cancelerror = True .flags = 3 256 '1 = Screen Font Set 2 = Printer Font Set 3 = Contains 1, 2 Font Collection 256 = Display Font effect column (color, underscore, delete line, etc.) .ShowFont if err.number <> 0 Then Err.clear Document.all.App.innertext = "You didn't choose any font" exit sub) .FontName "Font size:" cstr (.fontsize) if .fontbold dam = sfont "bold: Yes SFONT = SFONT " bold: No "end if if .fontital the sfont = sfont " slope: Yes "Else sfont = sfont " slope: NO "</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-125610.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="125610" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.032</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'pVBIxig1dkWHkSvmKegSIEiXiz7VoY1qqYi8WW97rz6_2Fk_2FUolFuNaV6E_2FGgYaPHgKRTVAihPIuNXZY_2FTX6MFEw_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>