이 메모장은 Win9X로 배송 된 것보다 더 큰 파일을 처리 할 수 있습니다.
HTML에서 Windows 모양의 인터페이스를 만드는 방법을 알아보십시오.
Commondialogs의 흥미로운 사용.
效果图 ：
代码如下 :
<html> <head>
<HTA : 응용 프로그램
ApplicationName = "htanotepad"id = "ohta"border = "tick"
Borderstyle = "정상"캡션 = "예"ContextMenu = "Yes"
Innerborder = "no"maximizebutton = "yes"minimizebutton = "yes"
Navigable = "예"
icon = "notepad.exe"scroll = "no"scrollflat = "no"
선택 = "아니오"Showintaskbar = "예"Singleinstance = "No"
sysmenu = "예"버전 = "0.3"Windowstate = "Normal">
<스타일 유형 = "텍스트/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 Solid 메뉴";}
.Submenu {위치 : 절대; 상단 = 20;
배경색 : 메뉴;
Border = "2px Occetset";}
.menuin {Border : '1px inset';}
.menuover {Border : '1px Occetset';}
.menuout {border : '1px solid';}
.Submenuover {Back
.Submenuout {Back
->
</스타일>
<script language = vbscript>
옵션 명시 적
Dim Filename, FModif, LastChildMenu, Lastmenu
fmodif = false'not 수정
디스플레이
LastChildMenu = 아무것도 설정하지 않습니다
마지막 menu = 아무것도 설정하지 않습니다
서브 디스플레이
filename = ""라면
document.title = "sans titre-"& ohta.applicationName
또 다른
document.title = filename & " -"& ohta.applicationName
끝 If
종료 서브
'' '' '' '' '' '' '' '' '' '' ''
'파일 관리'
'' '' '' '' '' '' '' '' '' '' ''
Sub Saveas
Dim Odlg
set odlg = createobject ( "mscomdlg.commondialog")
ODLG와 함께
.dialogtitle = "Saveas"
.filter = "스크립트 |*.vbs;*. hta;*. wsf;*. js | 텍스트 파일 |*.txt | 모든 파일 |*.*"
.maxFilesize = 255
.Showsave
.filename <> ""라는 경우
filename = .filename
구하다
끝 If
끝납니다
ODLG = 아무것도 설정하지 않습니다
디스플레이
종료 서브
Sub Save ()
dim fso, f
Filename <> ""라면
set fso = createobject ( "scripting.filesystemobject")
set f = fso.creatextfile (filename, true)
f.write myframe.mytext.value