Dieser Notizblock kann größere Dateien abwickeln als die mit Win9x versendete Dateien.
Erfahren Sie, wie Sie Windows -Looking -Schnittstellen in HTML erstellen.
Interessante Verwendung von Commondialogs.
效果图 ：
代码如下::
<html> <kopf>
<Hta: Anwendung
ApplicationName = "htanotepad" id = "ohta" border = "dick"
BORDERSYLE = "Normal" caption = "Ja" contextMenu = "Ja"
Innerborder = "Nein" maximizeButton = "Ja" minimieren SieButton = "Ja"
Navigable = "Ja"
Icon = "notepad.exe" scroll = "no" scrollflat = "nein"
Selection = "nein" showIntaskbar = "yes" SingleInInstance = "Nein"
Sysmenu = "yes" Version = "0.3" windowState = "normal">
<Style type = "text/css">
<!-
Körper {xfont-familie: "Verdana, Arial, Helvetica, Sans-Serif";
Schriftart: Menü;
Hintergrundfarbe: Menü;
Farbe: Menutext;
XFONT-Größe: 8PT;
Cursor: Standard; // Auto, Text, Zeiger
}
Tabelle {xfont-familie: "Arial";
XFONT-Größe: 8PT;
Schriftart: Menü;
Polsterung: 0pt;
Grenze: 0pt;
Filter: progid: dimaTransform.microsoft.alpha (style = 0, opacity = 90);
}
Iframe {Höhe: Ausdruck (document.body.clientHeight-Menutable.ClientHeight);
Breite: 100%;
}
TD {Border: "1px Solides Menü";}
.SubMenu {Position: absolut; top = 20;
Hintergrundfarbe: Menü;
Border = "2PX Outset";}
.Menuin {Border: '1px Inset';}
.Menuover {Border: '1px Outset';}
.Menuout {Border: '1px solide';}
.SubMenuover {Hintergrundfarbe: Highlight; Farbe: HighlightText;}
.SubMenuout {Hintergrundfarbe: Menü; Farbe: Menutext;}
->
</Style>
<script Language = vbScript>
Option explizit
Dim Filesname, fmodif, lastChildmenu, lastMenu
fmodif = false'not modifiziert
DisplayTitle
LastChildMenu = nichts festlegen
LastMenu = nichts setzen
Subdisplaytitle
Wenn Dateiname = "" dann
document.title = "sans titre -" & ohta.applicationName
Anders
document.title = Dateiname & " -" & ohta.applicationName
Ende wenn
Ende sub
'' '' '' '' '' '' '' '' '' '' ''
"Dateiverwaltung"
'' '' '' '' '' '' '' '' '' '' ''
Sub Saveas
Dim Odlg
Setzen Sie ODLG = createObject ("mSCOMDLG.Commondialog").
Mit ODLG
.Dialogtitle = "Saveas"
Filter = "scripts |*.vbs;*. Hta;*. Wsf;*. Js | Textdateien |*.txt | Alle Dateien |*.*"
.MaxFileSize = 255
.Showsave
Wenn .filename <> "" dann
Dateiname = .FileName
Speichern
Ende wenn
Enden mit
Setzen Sie ODLG = nichts
DisplayTitle
Ende sub
Sub Save ()
Dim fso, f
Wenn Dateiname <> "" dann
Setzen Sie fso = createObject ("scripting.filesystemObject").
Setzen Sie f = fso.createTextfile (Dateiname, true)
f.write myframe.mytext.value