这个记事本可以处理比Win9x发货的文件更大的文件。
了解如何使Windows在HTML中看起来界面。
有趣的使用。
效果图:
代码如下:
<html> <head>
<hta:应用程序
applicationName =“ htanotepad” id =“ ohta” border =“厚”
borderstyle =“ normal”字幕=“是” contextMenu =“ yes”
innerborder =“ no” maximizebutton =“ yes” minimizebutton =“ yes”
导航=“是”
图标=“ notepad.exe” scroll =“ no” scrollflat =“ no”
选择=“ no” showintaskbar =“是” singleinstance =“ no”
sysmenu =“是”版本=“ 0.3” windowState =“ normal”>
<style type =“ text/css”>
<! -
身体{Xfont-Family:“ Verdana,arial,helvetica,sans-serif”;
字体:菜单;
背景色:菜单;
颜色:menutext;
Xfont-size:8pt;
光标:默认值; //自动,文字,指针
}
表{Xfont-Family:“ Arial”;
Xfont-size:8pt;
字体:菜单;
填充:0pt;
边界:0pt;
过滤器:progid:dximagetransform.microsoft.alpha(style = 0,不透明度= 90);
}
iframe {height:expression(document.body.clientheight-menutable.clientheight);
宽度:100%;
}
td {border:“ 1px固体菜单”;}
.submenu {位置:绝对; top = 20;
背景色:菜单;
border =“ 2px启动”;}
.menuin {border:'1px Intet';}
。
.menuout {border:'1px solid';}
。
。
- >
</style>
<脚本语言= vbscript>
选项显式
Dim FileName,Fmodif,LastchildMenu,LastMenu
fmodif = false'not修改
DisplayTitle
设置LastChildMenu =什么都没有
设置LastMenu =什么都没有
子显示标题
如果文件名=“”然后
document.title =“ sans titre - ”&ohta.applicationname
别的
document.title =文件名&“ - ”&ohta.applicationname
如果结束
结束子
''''''''''''''
“文件管理”
''''''''''''''
子Saveas
DIM ODLG
设置odlg = createObject(“ mscomdlg.commondialog”)
与ODLG
.dialogtitle =“ saveas”
。
.maxfilesize = 255
.showsave
如果.fileName <>“”然后
文件名= .fileName
节省
如果结束
以
设置ODLG =什么都没有
DisplayTitle
结束子
sub保存()
Dim FSO,f
如果文件名<>“”然后
set fso = createObject(“ scripting.filesystemobject”)
设置F = fso.CreateTextFile(文件名,true)
F.Write myFrame.mytext.Value