Ce bloc-notes peut gérer des fichiers plus gros que celui qui est expédié avec Win9x.
Apprenez à faire des interfaces à la recherche de fenêtres dans HTML.
Utilisation intéressante des Commondialogs.
:
代码如下:
<html> <adref>
<HTA: application
ApplicationName = "htanotepad" id = "ohta" border = "épais"
Borderstyle = "normal" légende = "oui" contextMenu = "Oui"
Innerborder = "non" maximizebutton = "oui" minimiserbutton = "oui"
Navigable = "Oui"
Icon = "notepad.exe" scroll = "no" scrollflat = "non"
Sélection = "non" showintaskbar = "oui" singleinstance = "non"
Sysmenu = "oui" version = "0,3" windowState = "normal">
<Style type = "text / css">
<! -
Corps {xfont-Family: "Verdana, Arial, Helvetica, Sans-Serif";
Police: menu;
Color d'arrière-plan: menu;
Couleur: Menutext;
XFONT-Size: 8pt;
curseur: par défaut; // Auto, texte, pointeur
}
Tableau {xfont-Family: "Arial";
XFONT-Size: 8pt;
Police: menu;
rembourrage: 0pt;
Border: 0pt;
Filtre: PROGID: DxiageTransform.microsoft.alpha (style = 0, opacité = 90);
}
Iframe {height: expression (document.body.clientHeight-Menutable.ClientHeight);
Largeur: 100%;
}
TD {Border: "Menu solide 1px";}
.SubMenu {position: Absolute; top = 20;
Color d'arrière-plan: menu;
border = "2px Début";}
.Menuin {Border: '1px inset';}
.Menuover {Border: '1px début';}
.Menuout {Border: '1px solide';}
.SubMenuover {Background-Color: Highlight; Color: HighlightText;}
.SubMenuout {fond-couleur: menu; Couleur: MenuteXt;}
->
</ Style>
<Script Language = VBScript>
option explicite
Nom de fichier DIM, FMODIF, LASTCHILDMENU, LASTMENU
fmodif = false'not modifié
Étalage
Définir LastChildMenu = Rien
Définir LastMenu = Rien
Sous-affichage
Si filename = "" alors
document.title = "Sans Titre -" & ohta.ApplicationName
Autre
document.title = nom de fichier & "-" & ohta.applicationName
Terminer si
Sub-Sub
'' '' '' '' '' '' '' '' '' '
«Gestion des fichiers»
'' '' '' '' '' '' '' '' '' '
Sous-sauve
DIM ODLG
Définir odlg = createObject ("mscomdlg.commondialog")
Avec ODLG
.DialogTitle = "Saveas"
.Filter = "scripts | * .vbs; *. Hta; *. Wsf; *. Js | fichiers texte | * .txt | tous les fichiers | *. *"
.Maxfilesize = 255
.
Si .Filename <> "" alors
FileName = .Filename
Sauvegarder
Terminer si
Se terminer avec
Définir ODLG = rien
Étalage
Sub-Sub
Sub save ()
DIM FSO, F
Si le nom de fichier <> "" alors
Set fso = createObject ("scripting.fileSystemObject")
Set f = fso.createtextfile (nom de fichier, true)
f.write myframe.mytext.value