Этот блокнот может обрабатывать большие файлы, чем тот, который отправлен с Win9x.
Узнайте, как сделать Windows выглядеть интерфейсы в HTML.
Интересное использование коммонтиалогов.
效果图 :
代码如下:
<html> <голова>
<HTA: Приложение
ApplicationName = "htanotepad" id = "ohta" border = "толстый"
Borderstyle = "normal" caption = "yes" contextmenu = "Да"
Innerborder = "Нет" MaximizeButton = "Да" минимизируется, что "да"
Навигал = "Да"
Icon = "notepad.exe" scroll = "no" scrollflat = "нет"
Selection = "no" showintaskbar = "yes" singleinstance = "Нет"
Sysmenu = "yes" version = "0.3" windowstate = "Нормальный">
<Стиль типа = "text/css">
<!-
Тело {Xfont-family: «Вердана, Ариал, Хельветика, Санс-Сэриф»;
Шрифт: меню;
фоновый цвет: меню;
Цвет: 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 Solid Menu";}
.submenu {позиция: абсолют; top = 20;
фоновый цвет: меню;
border = "2px переживает";}
.Menuin {border: '1px inset';}
.Menuover {border: '1px upset';}
.Menuout {border: '1px solid';}
.Submenuover {founal-color: hoard; color: hightextext;}
.Submenuout {фоновый цвет: menu; color: menutext;}
->
</Style>
<script language = vbscript>
опция явная
DIM FILENAME, FMODIF, LastChildMenu, Lastmenu
fmodif = false'not модифицирован
DisplayTitle
Установите LastChildMenu = ничего
Установить Lastmenu = ничего
Sub Displaytitle
Если файл имени = "" Тогда
document.title = "sans titre -" & ohta.applicationname
Еще
document.title = filename & " -" & ohta.applicationname
Конец, если
Конец суб
'' '' '' '' '' '' '' '' '' ''
'Управление файлами'
'' '' '' '' '' '' '' '' '' ''
Sub Saveas
Dim Odlg
Установить ODLG = createObject ("mscomdlg.commondialog")
С ODLG
.Dialogtitle = "saveas"
.Filter = "Scripts |*.vbs;*. HTA;*. WSF;*. JS | Текстовые файлы |*.txt | Все файлы |*.*"
.Maxfilesize = 255
.Showsave
Если .filename <> "" Тогда
Filename = .filename
Сохранять
Конец, если
Закончить с
Установить ODLG = ничего
DisplayTitle
Конец суб
Sub save ()
Dim fso, f
Если имя файла <> "" Тогда
Установить fso = createObject ("scripting.filesystemobject")
Установите f = fso.createTextFile (имя файла, true)
F.Write myframe.mytext.value