Notepad นี้สามารถจัดการไฟล์ที่ใหญ่กว่าไฟล์ที่ส่งด้วย Win9x
เรียนรู้วิธีการทำให้อินเทอร์เฟซ Windows ดูใน HTML
การใช้งานที่น่าสนใจของ commondialogs
效果图:
代码如下:
<html> <head>
<HTA: แอปพลิเคชัน
ApplicationName = "htanotepad" id = "ohta" border = "หนา"
Borderstyle = "Normal" Caption = "ใช่" ContextMenu = "ใช่"
innerBorder = "ไม่" maximizeButton = "ใช่" minimizeButton = "ใช่"
Navigable = "ใช่"
icon = "notepad.exe" scroll = "no" scrollflat = "ไม่"
selection = "no" showintaskbar = "ใช่" singleinstance = "ไม่"
sysmenu = "ใช่" เวอร์ชัน = "0.3" windowstate = "ปกติ">
<style type = "text/css">
-
ร่างกาย {Xfont-Family: "Verdana, Arial, Helvetica, Sans-Serif";
ตัวอักษร: เมนู;
พื้นหลังสี: เมนู;
สี: Menutext;
ขนาด Xfont: 8pt;
เคอร์เซอร์: ค่าเริ่มต้น; // อัตโนมัติ, ข้อความ, ตัวชี้
-
ตาราง {xfont-family: "Arial";
ขนาด Xfont: 8pt;
ตัวอักษร: เมนู;
Padding: 0pt;
ชายแดน: 0pt;
ตัวกรอง: progid: dximagetransform.microsoft.alpha (style = 0, opacity = 90);
-
iframe {ความสูง: expression (document.body.clientheiight-enutable.clientheight);
ความกว้าง: 100%;
-
TD {Border: "1px Solid Menu";}
.submenu {ตำแหน่ง: สัมบูรณ์; top = 20;
พื้นหลังสี: เมนู;
border = "2px ountset";}
.menuin {Border: '1px inset';}
.menuover {Border: '1px ontset';}
.menuout {Border: '1px solid';}
.submenuover {พื้นหลังสี: ไฮไลต์; สี: ไฮไลต์เท็กซ์;}
.submenuout {พื้นหลังสี: เมนู; สี: menutext;}
-
</style>
<ภาษาสคริปต์ = vbscript>
ตัวเลือกอย่างชัดเจน
ชื่อไฟล์สลัว, fmodif, lastchildmenu, LastMenu
fmodif = false'not modified
displaytitle
ตั้งค่า LastChildMenU = ไม่มีอะไร
ตั้งค่า LastMenU = ไม่มีอะไร
Sub DisplayTitle
ถ้า filename = "" แล้ว
document.title = "sans titre -" & ohta.applicationName
อื่น
document.title = filename & " -" & ohta.applicationName
สิ้นสุดถ้า
สิ้นสุดย่อย
-
'การจัดการไฟล์'
-
ย่อย
สลัว odlg
SET ODLG = CreateObject ("MSCOMDLG.COMMONDIALOG"))
ด้วย odlg
.dialogTitle = "Saveas"
.filter = "สคริปต์ |*.vbs;*. hta;*. wsf;*. js | ไฟล์ข้อความ |*.txt | ไฟล์ทั้งหมด |*.*"
.MaxFilesize = 255
. Showsave
ถ้า. filename <> "" แล้ว
ชื่อไฟล์ = .filename
บันทึก
สิ้นสุดถ้า
จบลงด้วย
ตั้งค่า odlg = ไม่มีอะไร
displaytitle
สิ้นสุดย่อย
sub save ()
สลัว fso, f
ถ้าชื่อไฟล์ <> "" แล้ว
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
ตั้งค่า f = fso.createTextFile (ชื่อไฟล์จริง)
f.write myframe.mytext.value