Notepad ini dapat menangani file yang lebih besar daripada yang dikirimkan dengan Win9x.
Pelajari cara membuat antarmuka Windows terlihat di HTML.
Penggunaan Commondialogs yang menarik.
效果图 :
代码如下:
<html> <head>
<HTA: Aplikasi
ApplicationName = "htanotepad" id = "ohta" border = "tebal"
Borderstyle = "Normal" Caption = "Ya" ContextMenu = "Ya"
Innerborder = "Tidak" MaximizeButton = "Ya" MinimizeButton = "Ya"
Navigable = "ya"
Icon = "notepad.exe" scroll = "no" scrollflat = "no"
Seleksi = "tidak" showInkBar = "ya" singleinstance = "tidak"
Sysmenu = "ya" versi = "0.3" windowState = "Normal">
<Type style = "text/css">
<!-
Tubuh {xfont-family: "Verdana, Arial, Helvetica, Sans-Serif";
Font: Menu;
Latar Belakang: Menu;
Warna: Menutext;
XFont-size: 8pt;
kursor: default; // Otomatis, teks, penunjuk
}
Tabel {xfont-family: "Arial";
XFont-size: 8pt;
Font: Menu;
padding: 0pt;
Perbatasan: 0pt;
Filter: progid: dximagetransform.microsoft.alpha (style = 0, opacity = 90);
}
Iframe {height: expression (document.body.body.clientHeight-menutable.clientHeight);
Lebar: 100%;
}
TD {border: "1px Solid Menu";}
.submenu {position: absolute; top = 20;
Latar Belakang: Menu;
border = "2px outset";}
.Menuin {border: '1px inset';}
.Menuover {border: '1px outset';}
.Menuout {border: '1px solid';}
.Submenuover {latar belakang-warna: sorotan; warna: sorotan;}
.Submenuout {latar belakang-warna: menu; warna: menutext;}
->
</tyle>
<bahasa skrip = vbscript>
opsi eksplisit
Nama file redup, fmodif, lastchildmenu, lastmenu
fmodif = false'not dimodifikasi
DisplayTitle
Atur lastchildmenu = tidak ada
Atur lastmenu = tidak ada
Sub displayTitle
Jika fileName = "" lalu
document.title = "sans titre -" & ohta.applicationName
Kalau tidak
Document.Title = FileName & " -" & Ohta.ApplicationName
Akhiri jika
Akhir sub
'' '' '' '' '' '' '' '' '' '
'Manajemen File'
'' '' '' '' '' '' '' '' '' '
Sub Saveas
Redup odlg
Set odlg = createObject ("mscomdlg.commondialog")
Dengan odlg
.Dialogtitle = "saveas"
.Filter = "skrip |*.vbs;*. Hta;*. Wsf;*. Js | file teks |*.txt | semua file |*.*"
.MaxfileSize = 255
.Showave
Jika .filename <> "" lalu
Nama file = .fileName
Menyimpan
Akhiri jika
Berakhir dengan
Atur odlg = tidak ada
DisplayTitle
Akhir sub
Sub save ()
Redup fso, f
Jika nama file <> "" lalu
Atur fso = createObject ("Scripting.filesystemObject")
Set f = fso.createTextFile (nama file, true)
f.write myframe.mytext.value