Este bloc de notas puede manejar archivos más grandes que el enviado con Win9x.
Aprenda a hacer interfaces de aspecto de Windows en HTML.
Uso interesante de Commondialogs.
效果图 :
代码如下:
<html> <cead>
<HTA: aplicación
ApplicationName = "htanotepad" id = "ohta" border = "grueso"
BorderStyle = "Normal" subtitción = "sí" contextmenu = "sí"
InnerBorDer = "no" maximizeButton = "sí" minimizeButton = "sí"
Navegable = "Sí"
Icon = "notepad.exe" scroll = "no" scrollflat = "no"
Selection = "no" showInTaskBar = "YES" SingleInstance = "No"
Sysmenu = "YES" Versión = "0.3" WindowState = "Normal">
<Style type = "text/css">
<!-
Cuerpo {Xfont-Family: "Verdana, Arial, Helvetica, Sans-Serif";
fuente: menú;
Color de fondo: menú;
Color: Menutext;
XFONT-SIZE: 8PT;
cursor: predeterminado; // Automático, texto, puntero
}
Tabla {Xfont-Family: "Arial";
XFONT-SIZE: 8PT;
fuente: menú;
relleno: 0pt;
borde: 0pt;
Filtro: progid: dximagetransform.microsoft.alpha (style = 0, opacidad = 90);
}
Iframe {Height: Expression (document.body.clientHeight-Menutable.clientHeight);
Ancho: 100%;
}
TD {border: "1px menú sólido";}
.submenu {posición: absoluto; top = 20;
Color de fondo: menú;
border = "2px de salida";}
.Menuin {border: '1px inset';}
.MenUover {border: '1px de origen';}
.MenUout {border: '1px sólido';}
.SubMenUover {Color de fondo: resaltado; color: stoppectText;}
.SubMenUout {Color de fondo: menú; color: Menutext;}
->
</style>
<Script Language = VBScript>
opción explícita
Dim File Name, FModif, LastChildmenu, Lastmenu
fmodif = false'Not modificado
Exhibición
Establecer lastchildmenu = nada
Establecer lastmenu = nada
Subplaytitle
Si FileName = "" entonces
document.title = "Sans Título -" y OHTA.ApplicationName
Demás
document.title = FileName & " -" & Ohta.ApplicationName
Final si
Final
'' '' '' '' '' '' '' '' '' '
'Administración de archivos'
'' '' '' '' '' '' '' '' '' '
Subdirector
Dim Odlg
Establecer odlg = createObject ("mscomdlg.commondialog")
Con odlg
.Dialogtitle = "Saveas"
.Filter = "scripts |*.vbs;*. Hta;*. Wsf;*. Js | archivos de texto |*.txt | todos los archivos |*.*"
.Maxfilesize = 255
.
If .filename <> "" entonces
Nombre de archivo = .FileName
Ahorrar
Final si
Terminar con
Establecer Odlg = nada
Exhibición
Final
Sub save ()
Dim FSO, F
Si el nombre de archivo <> "" entonces
Establecer fso = createObject ("scripting.filesystemObject")
Establecer f = fso.createTextFile (nombre de archivo, verdadero)
F.Write myframe.myText.Value